Hỏi Cách Rút Gọn Code Trên forms

[huynhdat195]

Em có đoạn code nhập liêu như:

Private Sub btmua_Click()
On Error Resume Next
Dim J As Integer, EnRow As Long, Cont

EnRow = Worksheets("MUA").Range("A12").End(xlDown).Row + 1
With Dxmua
If .txthnngaymua = "" Then MsgBox "VUI LONG NHAP NGAY XUAT", vbCritical, "THONG BAO"
If .txthnngaymua = "" Then Exit Sub
    For J = 1 To 50
    Cont = Choose(J, EnRow - 13, .txthnngaymua.Text, .cbkh.Text, .cbsdt.Text, .txthn.Text, .txthn1.Text, .txtkghn1.Text, .txtgiahn1.Text, .txthn2.Text, .txtkghn2.Text, .txtgiahn2.Text, .txthn3.Text, .txtkghn3.Text, .txtgiahn3.Text, .txthnbi.Text, .txtkghnbi.Text, .txtgiahnbi.Text _
    , .txtcanh.Text, .txtc1.Text, .txtkgc1.Text, .txtgiac1.Text, .txtc2.Text, .txtkgc2.Text, .txtgiac2.Text, .txtc3.Text, .txtkgc3.Text, .txtgiac3.Text, .txtcbi.Text, .txtkgcbi.Text, .txtgiacbi.Text, .txttc.Text _
    , txthn.Text, .txthn1.Text, .TextBox1.Text, .TextBox2.Text, .TextBox3.Text, .TextBox4.Text, .TextBox5.Text, .TextBox6.Text, .TextBox7.Text, .TextBox8.Text, .TextBox9.Text, .TextBox10.Text, .TextBox11.Text, .TextBox12.Text, .TextBox13.Text, .TextBox14.Text, .TextBox15.Text, .TextBox16.Text, .TextBox17.Text, .TextBox18.Text, .TextBox19.Text, .TextBox20.Text, .TextBox21.Text, .TextBox22.Text, .TextBox23.Text, .TextBox24.Text, .TextBox25.Text)
    
        Worksheets("MUA").Cells(EnRow, J) = Cont
        Next J
        End With

Cho em hỏi có cách nào rút gọn lại từ Textbox1 Đến Textbox25 không..Em Xin Cảm Ơn

 

[tigertiger]

Em có đoạn code nhập liêu như:

Private Sub btmua_Click()
On Error Resume Next
Dim J As Integer, EnRow As Long, Cont

EnRow = Worksheets("MUA").Range("A12").End(xlDown).Row + 1
With Dxmua
If .txthnngaymua = "" Then MsgBox "VUI LONG NHAP NGAY XUAT", vbCritical, "THONG BAO"
If .txthnngaymua = "" Then Exit Sub
    For J = 1 To 50
    Cont = Choose(J, EnRow - 13, .txthnngaymua.Text, .cbkh.Text, .cbsdt.Text, .txthn.Text, .txthn1.Text, .txtkghn1.Text, .txtgiahn1.Text, .txthn2.Text, .txtkghn2.Text, .txtgiahn2.Text, .txthn3.Text, .txtkghn3.Text, .txtgiahn3.Text, .txthnbi.Text, .txtkghnbi.Text, .txtgiahnbi.Text _
    , .txtcanh.Text, .txtc1.Text, .txtkgc1.Text, .txtgiac1.Text, .txtc2.Text, .txtkgc2.Text, .txtgiac2.Text, .txtc3.Text, .txtkgc3.Text, .txtgiac3.Text, .txtcbi.Text, .txtkgcbi.Text, .txtgiacbi.Text, .txttc.Text _
    , txthn.Text, .txthn1.Text, .TextBox1.Text, .TextBox2.Text, .TextBox3.Text, .TextBox4.Text, .TextBox5.Text, .TextBox6.Text, .TextBox7.Text, .TextBox8.Text, .TextBox9.Text, .TextBox10.Text, .TextBox11.Text, .TextBox12.Text, .TextBox13.Text, .TextBox14.Text, .TextBox15.Text, .TextBox16.Text, .TextBox17.Text, .TextBox18.Text, .TextBox19.Text, .TextBox20.Text, .TextBox21.Text, .TextBox22.Text, .TextBox23.Text, .TextBox24.Text, .TextBox25.Text)
  
        Worksheets("MUA").Cells(EnRow, J) = Cont
        Next J
        End With

Cho em hỏi có cách nào rút gọn lại từ Textbox1 Đến Textbox25 không..Em Xin Cảm Ơn

Rút ngắn nhất là xem lại FORM
không ai thiết kế quá nhiều Textbox vậy,
Khi nhiều giá trị thì người ta nghĩ đến combobox, hay listbox, ......hay Grid, ...vv

 

[ptm0412]

Gán property tag cho các control bằng các giá trị từ 1 đến 50

For Each Ctrl  in Me.Controls
   If IsNumeric(Ctrl.Tag) Then Worksheets("MUA").Cells(EnRow, Val(ctrl.Tag)) = Ctrl.Text
Next