รบกวนถาม คำสั่งใน VBA ของ EXcel ครับ
Posted: Wed Jun 27, 2018 3:29 pm
รบกวนถาม คำสั่งใน VBA ของ EXcel ครับ ถ้าเราจะให้เคลียร์ข้อมูลในฟอร์มที่เรากรอกแล้วกดส่ง แล้วเราจะเริ่มกรอกเพิ่มต่อต้องใช้คำสั่งในปุ่มคอนโทรลยังไงครับ
Code: Select all
Private Sub CommandButton1_Click()
EmptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(EmptyRow, 1).Value = TextBox1.Value
Cells(EmptyRow, 2).Value = TextBox2.Value
MsgBox ("บันทึกสำเร็จ")
TextBox1.Value = ""
TextBox2.Value = ""
End Sub