Thực hiện một lệnh nhiều lần!

[hcl_pt]

Mình thực hiện một lệnh nhiều lần bằng đoạn code sau: ví dụ mình thực hiện lệnh copy 5 lần thì mình làm như sau:

Sub copy ()
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"

End Sub

- Vậy GPE có cách viết nào khác gọn hơn không? Xin cảm ơn rất nhiều!

 

[Quang_Hải]

Mình thực hiện một lệnh nhiều lần bằng đoạn code sau: ví dụ mình thực hiện lệnh copy 5 lần thì mình làm như sau:

Sub copy ()
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"
Application.Run "'book1.xlsm'!copy"

End Sub

- Vậy GPE có cách viết nào khác gọn hơn không? Xin cảm ơn rất nhiều!

Thử vầy coi

Sub copy ()
Dim I as Long
For I = 101 to 1000-895
Application.Run "'book1.xlsm'!copy"
Next
End Sub

 

[minhhangg]

Thử vầy coi

Sub copy ()
Dim I as Long
For I = 101 to 1000-895
Application.Run "'book1.xlsm'!copy"
Next
End Sub

Biết là thực hiện nhiều lần mình dùng dòng lập for net, nhưng em chưa hiểu các số hoạt động như thế nào? nhờ anh giải thích dùm em nhé anh Hải

 

[hcl_pt]

Biết là thực hiện nhiều lần mình dùng dòng lập for net, nhưng em chưa hiểu các số hoạt động như thế nào? nhờ anh giải thích dùm em nhé anh Hải

Thầy Hải đùa 1 chút thôi ạ, số hoạt động: từ 101 to 1000-895=105 vẫn là 5 lần thực hiện ạ!