LVòng lặp for.... next tạo nhiều module (đã giải quyết)

[YêuCN]

Mình đang tìm code VBA để tự động tạo nhiều module theo vòng lặp for....next ví dụ như sau:
Public Sub AddModule()

Dim proj As VBIDE.VBProject
Dim comp As VBIDE.VBComponent

Set proj = ActiveWorkbook.VBProject
Set comp = proj.VBComponents.Add(vbext_ct_StdModule)
for i=0 to 6
comp.Name = "MyNewModule" & i
next i
End Sub
Mong các bạn hỗ trợ thêm, mình xin chân thành cảm ơn !
Xin lỗi vì đăng nhằm chủ đề mong BQT di chuyển giúp mình sang chủ đề lập trình VBA. Chân thành cảm ơn !

 

[Kiều Mạnh]

Mình đang tìm code VBA để tự động tạo nhiều module theo vòng lặp for....next ví dụ như sau:
Public Sub AddModule()

Dim proj As VBIDE.VBProject
Dim comp As VBIDE.VBComponent

Set proj = ActiveWorkbook.VBProject
Set comp = proj.VBComponents.Add(vbext_ct_StdModule)
for i=0 to 6
comp.Name = "MyNewModule" & i
next i
End Sub
Mong các bạn hỗ trợ thêm, mình xin chân thành cảm ơn !
Xin lỗi vì đăng nhằm chủ đề mong BQT di chuyển giúp mình sang chủ đề lập trình VBA. Chân thành cảm ơn !

Tạo xong rồi làm cái gì trong đó mới quan trọng ???!!!

 

[YêuCN]

Tạo xong rồi làm cái gì trong đó mới quan trọng ???!!!

Mục đích để dỡ mất công insert module thủ công thôi bác .

 

[truongvu317]

Đoán là cho Set comp = proj.VBComponents.Add(vbext_ct_StdModule) cái này vào trong vòng for

 

[ndu96081631]

Mục đích để dỡ mất công insert module thủ công thôi bác .

Bạn tạo virus sao mà tạo nhiều?
Một project cùng lắm chứa chừng 20 module là quá rồi. Mặc khác ta chỉ tạo một lần, dùng mãi mãi chứ có phải ngày nào cũng tạo đâu mà cần tự động?
Nói chung là chưa hiểu "động cơ" của việc làm này

 

[YêuCN]

Bạn tạo virus sao mà tạo nhiều?
Một project cùng lắm chứa chừng 20 module là quá rồi. Mặc khác ta chỉ tạo một lần, dùng mãi mãi chứ có phải ngày nào cũng tạo đâu mà cần tự động?
Nói chung là chưa hiểu "động cơ" của việc làm này

vì mình hay nghịch nên cần tạo Module kiểu này nói chung động cơ hướng đến cái chân thiện mỹ.

Bài đã được tự động gộp: 22/3/20

Đoán là cho Set comp = proj.VBComponents.Add(vbext_ct_StdModule) cái này vào trong vòng for

Quá chuẩn cảm ơn bác đúng là xa tận chân trời gần nơi trước mắt !

 

[ndu96081631]

vì mình hay nghịch nên cần tạo Module kiểu này nói chung động cơ hướng đến cái chân thiện mỹ.

Bấm Alt + F11 vô cửa sổ VBE, xong bấm giữ phím Alt rồi bấm phím I rồi bấm phím M, rồi lại bấm I rồi bấm M... cứ làm một hồi ra cả thúng

 

[YêuCN]

Bấm Alt + F11 vô cửa sổ VBE, xong bấm giữ phím Alt rồi bấm phím I rồi bấm phím M, rồi lại bấm I rồi bấm M... cứ làm một hồi ra cả thúng

Dạ em cám ơn bác !

 

[SA_DQ]

Bấm Alt + F11 vô cửa sổ VBE, xong bấm giữ phím Alt rồi bấm phím I rồi bấm phím M, rồi lại bấm I rồi bấm M... cứ làm một hồi ra cả thúng

Thúng gì í nhỉ, có phải Covid20(?)

 

[VetMini]

vì mình hay nghịch nên cần tạo Module kiểu này nói chung động cơ hướng đến cái chân thiện mỹ.
...

Hổng dám chân thiện mỹ đâu.
Mấy thằng thả worm và virus vào mạng ARPANET hồi cuối thập niên 80's cũng lý luận là mình "đang nghịch thử, và muốn cảnh báo thế giới mạng"

 

[YêuCN]

Hổng dám chân thiện mỹ đâu.
Mấy thằng thả worm và virus vào mạng ARPANET hồi cuối thập niên 80's cũng lý luận là mình "đang nghịch thử, và muốn cảnh báo thế giới mạng"

Dạ em hiểu thà tin là có còn hơn không nên ông bà ta thường nói giết lầm còn hơn bỏ xót !

 

[VetMini]

Dạ em hiểu thà tin là có còn hơn không nên ông bà ta thường nói giết lầm còn hơn bỏ xót !

Ông bà nào theo chính sách Tào Tháo khát máu ấy vậy?

 

[YêuCN]

Ông bà nào theo chính sách Tào Tháo khát máu ấy vậy?

Hiii coi phim tào nhiều quá nhiễm

 

[VetMini]

Ba cái mớ phim ảnh xem riết rồi nhiễm. Đạo lý luân thường đảo lộn hết, không nhớ nổi cái nào là cái thực của ông bà đã dạy.