Giúp rút gọn code VBA trên form có nhiều texbox hoặc Label

[hondacrv2019]

Chào cả nhà GPE
Em có 1 form gồm 30 textbox hiện em đang dùng code này thấy khá là dài

Sub hienform()
UserForm1.TextBox1.Value = Range("a1").Value
UserForm1.TextBox2.Value = Range("a2").Value
UserForm1.TextBox3.Value = Range("a3").Value
'---
'---
UserForm1.TextBox30.Value = Range("a30").Value
End Sub

Có cách nào rút gọn ngắn ngắn dòng FOr next hay gì gì đó cho ngắn lại giúp em. em xin chân thành cảm ơn!

 

[BuiQuangThuan]

Chào cả nhà GPE
Em có 1 form gồm 30 textbox hiện em đang dùng code này thấy khá là dài

Có cách nào rút gọn ngắn ngắn dòng FOr next hay gì gì đó cho ngắn lại giúp em. em xin chân thành cảm ơn!

Ban nên chỉ định rõ nó vào sheet nào nhé

Sub hienform()
Dim i As Long
For i = 1 To 30
UserForm1.TextBox(i).Value = Range("A" & i).Value
Next i
End Sub

 

[thuanfun]

Chào cả nhà GPE
Em có 1 form gồm 30 textbox hiện em đang dùng code này thấy khá là dài

Sub hienform()
UserForm1.TextBox1.Value = Range("a1").Value
UserForm1.TextBox2.Value = Range("a2").Value
UserForm1.TextBox3.Value = Range("a3").Value
'---
'---
UserForm1.TextBox30.Value = Range("a30").Value
End Sub

Có cách nào rút gọn ngắn ngắn dòng FOr next hay gì gì đó cho ngắn lại giúp em. em xin chân thành cảm ơn!

Bác thử code này xem sao:

For i = 1 To 30
      UserForm1.Controls("TextBox" & i).Value = Range("A" & i).Value
Next

 

[snow25]

Chào cả nhà GPE
Em có 1 form gồm 30 textbox hiện em đang dùng code này thấy khá là dài

Sub hienform()
UserForm1.TextBox1.Value = Range("a1").Value
UserForm1.TextBox2.Value = Range("a2").Value
UserForm1.TextBox3.Value = Range("a3").Value
'---
'---
UserForm1.TextBox30.Value = Range("a30").Value
End Sub

Có cách nào rút gọn ngắn ngắn dòng FOr next hay gì gì đó cho ngắn lại giúp em. em xin chân thành cảm ơn!

Bạn thử lâu mình không dùng không biết đúng không.

   For i = 1 To 30
      UserForm1.Controls("textbox" & i).Value = Range("A" & i).Value
   Next i

 

[VetMini]

Làm kiểu chảnh:
For Each ctrl In UserForm1.Controls
If ctrl.Name Like "TextBox*" Then _
ctrl.Value = Range(Replace("TextBox", "A")).Value
Next ctrl

 

[VetMini]

1 cái form 30 textbox. Nhìn như bảng yết thị trước cổng cơ quan ngày xưa.

Thiết kế kiểu này quả là hiếm có hơn người.

 

[hondacrv2019]

1 cái form 30 textbox. Nhìn như bảng yết thị trước cổng cơ quan ngày xưa.

Thiết kế kiểu này quả là hiếm có hơn người.

cam ơn bác nhiều

Bài đã được tự động gộp: 25/12/19

Bạn thử lâu mình không dùng không biết đúng không.

   For i = 1 To 30
      UserForm1.Controls("textbox" & i).Value = Range("A" & i).Value
   Next i

cam ơn bác nhiều

 

[ppc0312]

Sao form lại tới 30 text box vậy, chủ khổ?
Sao không hiện ở dạng listbox?

 

[VetMini]

Sao form lại tới 30 text box vậy, chủ khổ?
Sao không hiện ở dạng listbox?

Các bộ óc siêu việt có tính chất "trừ hao".
Có chừng nửa chục thì lên đây hỏi phải trừ hao thành vài chục. Người nghe mới cảm động, sốt sắng giúp.