Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
If TextBox1.Value = "" Then
MsgBox "กรุณาใส่ข้อมูล"
GoTo bNext
End If
Dim r As Long
    With Sheets("บันทึกรายการซื้อขาย")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
            .Cells(r, 1) = ComboBox1.Value
            .Cells(r, 2) = TextBox6.Value
            .Cells(r, 3) = TextBox1.Value
            .Cells(r, 4) = ComboBox2.Value
            .Cells(r, 5) = TextBox5.Value
            .Cells(r, 6) = TextBox7.Value
                        .Cells(r, 7) = ListBox1.List(g, 0)
            .Cells(r, 8) = ListBox1.List(g, 1)
            .Cells(r, 9) = ListBox1.List(g, 2)
            .Cells(r, 10) = ListBox1.List(g, 3)
            .Cells(r, 11) = ListBox1.List(g, 4)
            .Cells(r, 12) = ListBox1.List(g, 5)
            .Cells(r, 13) = ListBox1.List(g, 6)
            .Cells(r, 14) = ListBox1.List(g, 7)
            .Cells(r, 15) = ListBox1.List(g, 8)
            .Cells(r, 16) = ListBox1.List(g, 9)
            .Cells(r, 17) = ListBox1.List(g, 10)
            .Cells(r, 18) = ListBox1.List(g, 11)
            .Cells(r, 19) = ListBox1.List(g, 12)
            .Cells(r, 20) = ListBox1.List(g, 13)
            .Cells(r, 21) = ListBox1.List(g, 14)
            .Cells(r, 22) = ListBox1.List(g, 15)
            .Cells(r, 23) = ListBox1.List(g, 16)
            .Cells(r, 24) = ListBox1.List(g, 17)
            .Cells(r, 25) = ListBox1.List(g, 18)
            .Cells(r, 26) = ListBox1.List(g, 19)
            .Cells(r, 27) = ListBox1.List(g, 20)
            .Cells(r, 28) = ListBox1.List(g, 21)
            .Cells(r, 29) = ListBox1.List(g, 22)
            .Cells(r, 30) = ListBox1.List(g, 23)
            .Cells(r, 31) = ListBox1.List(g, 24)
            .Cells(r, 32) = ListBox1.List(g, 25)
            .Cells(r, 33) = ListBox1.List(g, 26)
            .Cells(r, 34) = ListBox1.List(g, 27)
            .Cells(r, 35) = ListBox1.List(g, 28)
            .Cells(r, 36) = ListBox1.List(g, 29)
            .Cells(r, 37) = ListBox1.List(g, 30)
            .Cells(r, 38) = ListBox1.List(g, 31)
            .Cells(r, 39) = ListBox1.List(g, 32)
            .Cells(r, 40) = ListBox1.List(g, 33)
            .Cells(r, 41) = ListBox1.List(g, 34)
            .Cells(r, 42) = ListBox1.List(g, 35)
            .Cells(r, 43) = ListBox1.List(g, 36)
            .Cells(r, 44) = ListBox1.List(g, 37)
            .Cells(r, 45) = ListBox1.List(g, 38)
            .Cells(r, 46) = ListBox1.List(g, 39)
            .Cells(r, 47) = ListBox1.List(g, 40)
            .Cells(r, 48) = ListBox1.List(g, 41)
            .Cells(r, 49) = ListBox1.List(g, 42)
            .Cells(r, 50) = ListBox1.List(g, 43)
            .Cells(r, 51) = ListBox1.List(g, 44)
            .Cells(r, 52) = ListBox1.List(g, 45)
            .Cells(r, 53) = ListBox1.List(g, 46)
            .Cells(r, 54) = ListBox1.List(g, 47)
            .Cells(r, 55) = ListBox1.List(g, 48)
            .Cells(r, 56) = ListBox1.List(g, 49)
            .Cells(r, 57) = ListBox1.List(g, 50)
            .Cells(r, 58) = ListBox1.List(g, 51)
            .Cells(r, 59) = ListBox1.List(g, 52)
            .Cells(r, 60) = ListBox1.List(g, 53)
            .Cells(r, 61) = ListBox1.List(g, 54)
            .Cells(r, 62) = ListBox1.List(g, 55)
            .Cells(r, 63) = ListBox1.List(g, 56)
            .Cells(r, 64) = ListBox1.List(g, 57)
            .Cells(r, 65) = ListBox1.List(g, 58)
            .Cells(r, 66) = ListBox1.List(g, 59)
            .Cells(r, 67) = ListBox1.List(g, 60)
            .Cells(r, 68) = ListBox1.List(g, 61)
            .Cells(r, 69) = ListBox1.List(g, 62)
            .Cells(r, 70) = ListBox1.List(g, 63)
            .Cells(r, 71) = ListBox1.List(g, 64)
            .Cells(r, 72) = ListBox1.List(g, 65)
            .Cells(r, 73) = ListBox1.List(g, 66)
            .Cells(r, 74) = ListBox1.List(g, 67)
            .Cells(r, 75) = ListBox1.List(g, 68)

 


 
End With

ActiveWorkbook.Save
bNext:
End Sub

Code: Select all

'Other code
Dim r As Long, i As Integer, j As Integer, k As Integer
With Sheets("ºÑ¹·Ö¡ÃÒ¡Òë×éÍ¢ÒÂ")
    r = .Range("a" & Rows.Count).End(xlUp).Row + 1
    .Cells(r, 1) = ComboBox1.Value
    .Cells(r, 2) = TextBox6.Value
    .Cells(r, 3) = TextBox1.Value
    .Cells(r, 4) = ComboBox2.Value
    .Cells(r, 5) = TextBox5.Value
    .Cells(r, 6) = TextBox7.Value
    k = 7
    For i = 0 To ListBox1.ListCount - 1
        For j = 0 To 3
            .Cells(r, k) = ListBox1.List(i, j)
            k = k + 1
        Next j
    Next i
End With
'Other code