Vòng lặp với đối tượng lặp là các điều khiển trên Userform!

[milan061084]

Trước tiên xin cảm ơn các bạn đã đọc Topic này. Mình có vấn đề sau search mãi không ra, mong các anh chị giải đáp.
Trên một userform giả sử có 20 ô textbox để nhập liệu có tên là textbox1...textbox20. Sau khi nhap xong 20 ô đó, ấn nút save để lưu vào range("A1:A20).
Với ví dụ trên cách đơn giản nhất là viết 20 dòng code, gán textbox1 vào A1.... Nhưng làm cách này thật là chẳng hay chút nào. Liệu có đoạn code nào để làm 20 thao tác giống nhau kia không ah.
Kiểu như
For i=1 to 20
Cells(i,"A")=Textbox (i)

Mong các bác chỉ giúp.

 

[PhanTuHuong]

Bạn dùng thủ tục này để duyệt qua từng đối tượng trong UserForm nhé:

Dim objControl As Object
For Each objControl In Me.Controls
    MsgBox objControl.Name
Next

 

[sealand]

Bạn viết code như sau:

......................
Dim i as Integer
For i=1 to 20
Sheetxxxx.Cells(i,1)=Me.Controls("Textbox" & i)
Me.Controls("Textbox" & i)=""
Next
.......................

 

[milan061084]

Cám ơn các bác đã nhiệt tình giúp đỡ.
Hôm nay 8-3. Giờ mới có thời gian ngồi nghiên cứu!

 

[anbinh111]

Bạn dùng thủ tục này để duyệt qua từng đối tượng trong UserForm nhé:

Dim objControl As Object
For Each objControl In Me.Controls
    MsgBox objControl.Name
Next

Trường hợp nó là 1 label thì nó cũng xét. có cách nào để xét chỉ xét các textbox hoặc các combobox thôi không bác.

 

[Nhattanktnn]

Trường hợp nó là 1 label thì nó cũng xét. có cách nào để xét chỉ xét các textbox hoặc các combobox thôi không bác.

if TypeName(objcontrol)="TextBox" or TypeName(objcontrol)="ComboBox" then

 

[befaint]

if TypeName(objcontrol)="TextBox" or TypeName(objcontrol)="ComboBox" then

Dùng Instr() hợp lý hơn.

 

[Nhattanktnn]

Dùng Instr() hợp lý hơn.

Em ghi nhận !

 

[vu_tuan_manh_linh]

Nếu là tôi, tôi sử dụng giải pháp này: dùng 1 textbox thôi, dùng đế nhập vào 1 listbox. Sau đó đưa listbox vào cell.