Ðề: Xin giúp bài toán Insert dòng trong Excel !
![Trích dẫn](images/styles/AnimatedArena/misc/quote_icon.png)
Gửi bởi
qnivni
Tôi có một file Excel gồn 8 cột và 1200 dòng (như file đính kèm). Nội dung cần giúp tôi đã trình bày trong file. Các pro tải về và nghiên cứu làn giúp tôi nhé! Xin cảm ơn.
Chép code này vào một modul và chạy nó
Mã nguồn PHP:
[COLOR=#000000]
Option Explicit
Sub InsertRow[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim SoDong [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long
Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer
n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row
[/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]n To 3 Step [/COLOR][COLOR=#007700]-[/COLOR][COLOR=#0000BB]1
[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])) = [/COLOR][COLOR=#0000BB]True Then
SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown
[/COLOR][COLOR=#007700]Else
[/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 Then
Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]SoDong [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown
[/COLOR][COLOR=#007700]Else
[/COLOR][COLOR=#0000BB]Sheet1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]":H" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlDown
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]Next
End Sub[/COLOR]
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông