Nhờ sửa code dùng vòng lặp điền giá trị vào Textbox

[le tin]

Nhờ các bạn xem và chỉnh giúp đoạn code này không chạy được :

For i = 1 to 5
UserForm1.TextBox(i).Value =cells(i,2)
Next

Cảm ơn trước

 

[ndu96081631]

Nhờ các bạn xem và chỉnh giúp đoạn code này không chạy được :

For i + 1 to 5
UserForm1.TextBox(i).Value =cells(i,2)
Next

Cảm ơn trước

For i + 1 to 5 là cái quái gì?
For i = 1 to 5 chứ
Mặc khác: TextBox(i) cũng vô nghĩa luôn
Tôi nghĩ nó phải là:

Dim i As Long
For i = 1 To 5
  Me.Controls("TextBox" & i).Value = Cells(i, 2)
Next