hỏi code insert thêm sheet

[feelingyes]

Gửi các Huynh
Em đang định insert một lúc 40 sheet, em viêt code như sau nhưng ko được

sub insertsh()
For i = 1 To 40
If Sheets(i) > 1 Then
Sheets(i).Add = True
End If
Next
End Sub

Các huynh chỉ cho FY với

 

[Lam_A0]

sub insertsh()
 For i = 1 To 40
         Sheets.Add
 Next
End Sub

 

[feelingyes]

Cám ơn Lam_A0
Thấy Lam_A0 giải xong mới thấy nó dễ thế mà ko nghĩ ra, chờ đợi sách VBA của bác NVSON
để học quá!

 

[feelingyes]

Ví dụ trên là chèn thêm một sheet mới (blank). Nhưng trường hợp em muốn
copy từ một sheet mình chọn (active sheet) thành 10 sheet chẳng hạn thì code sẽ như nào
-em record lại rồi nhưng mấy mò mãi chưa ra

sub copy_sh()
for i =1 to 10
activesheet.copy before ...
end sub

xin được các huynh chỉ dẫn

 

[Lam_A0]

Ví dụ bác muốn copy sheet1 thành 10 sheet, rồi đổi tên chúng có thứ tự thì code sẽ là:

Sub Insert_sheets()
For i = 1 To 10
    Sheets(i).Copy After:=Sheets(i)
Next
For i = 2 To 11
    Sheets(i).Name = "sheet" & i
Next
End Sub

 

[ndu96081631]

Ví dụ trên là chèn thêm một sheet mới (blank). Nhưng trường hợp em muốn
copy từ một sheet mình chọn (active sheet) thành 10 sheet chẳng hạn thì code sẽ như nào
-em record lại rồi nhưng mấy mò mãi chưa ra


xin được các huynh chỉ dẫn

Trò này rất đơn giản! Thật sự bạn cũng không cần nhớ code, chỉ việc record macro quá trình bạn copy sheet là xong chuyện!
Mở code lên và ngâm cứu rồi tùy biến, tung hoành ngang doc tùy cảm hứng