Vòng lập cho textbox

[Onlyd2016]

Các cao nhân chao e hỏi. E có 1 userForm gồm 50 textbox
E muốn gán cho 50 textbox đó giá trị của 50 ô trong sheet1 từ ô C2 đến ô C51 thì viết vòng lập như thế nào ạ

 

[ptm0412]

Đặt tên cho textbox theo thứ tự từ txtbox1 đến txtbox50

For i = 1 to 50
    Me.Controls("txtbox" & i).Value = ActiveSheet.Cells(i + 1, 3).Value
Next

 

[vu_tuan_manh_linh]

Các cao nhân chao e hỏi. E có 1 userForm gồm 50 textbox
E muốn gán cho 50 textbox đó giá trị của 50 ô trong sheet1 từ ô C2 đến ô C51 thì viết vòng lập như thế nào ạ

Bạn xem xét dùng listbox cho nó nhàn!

 

[Hamedanger]

Bổ sung cho bạn một cách nữa không cần đặt tên nhưng code sẽ dài lằng ngoằng

Dim VarTextbox As Variant, I As Long
VarTextbox = Array(TextBox1, TextBox2, TextBox3........) 'Khai báo hết textbox vào đây
For I = 0 To UBound(VarTextbox, 1)
VarTextbox(I).Value = Sheet1.Range("C" & I + 2)
Next