Vòng lặp For cho Textbox (1 người xem)

[minhhahdvn]

Em có một userform gồm khoảng 15 cái Textbox từ 1 đến 15. EM muốn khi ấn vào Command button thì 15 dữ liệu điều ở 15 Textbox này điền lần lượt ở các ô hàng 1 từ cột 1 đến 15 thì làm thế nào ạ?
Dim i As Integer
With Sheet3
For i = 1 To 15
.Cells(1, i) = TextBoxi.Text
Next i
End With
End Sub
Em dùng code này thì nó báo lỗi chỗ bôi đỏ. Mong các bác giúp ạ

 

[phihndhsp]

Em có một userform gồm khoảng 15 cái Textbox từ 1 đến 15. EM muốn khi ấn vào Command button thì 15 dữ liệu điều ở 15 Textbox này điền lần lượt ở các ô hàng 1 từ cột 1 đến 15 thì làm thế nào ạ?
Dim i As Integer
With Sheet3
For i = 1 To 15
.Cells(1, i) = TextBoxi.Text
Next i
End With
End Sub
Em dùng code này thì nó báo lỗi chỗ bôi đỏ. Mong các bác giúp ạ

xem code này xem sao
Private Sub CommandButton1_Click()
For i = 1 To 3
Cells(i, 1) = Controls("Textbox" & i).Value
Next

End Sub

 

[VetMini]

Em có một userform gồm khoảng 15 cái Textbox từ 1 đến 15. EM muốn khi ấn vào Command button thì 15 dữ liệu điều ở 15 Textbox này điền lần lượt ở các ô hàng 1 từ cột 1 đến 15 thì làm thế nào ạ?

"khoảng" tức là bao nhiêu?

Private Sub CommandButton1_Click()
For Each cCtrl In Me.Controls
If TypeName(cCtrl) = "TextBox" Then
num = Replace(cCtrl.Name, "TextBox", "")
If IsNumeric(num) Then Cells(1, CInt(num)) = cCtrl.Text ' điều chỉnh những textbox ở đây
End If
Next cCtrl
End Sub