อยากทราบ Code ปุ่มการบันทึกข้อมูล ของใบเสร็จรับเงิน
Posted: Sun Dec 04, 2016 11:56 am
เปิดดูไฟล์ ได้เลยค่ะ ช่วยหน่อยน้ะค่ะ เหลือปุ่มนี่ ปุ่มเดียว 
อันนี้เป็นโค้ดใบกำกับภาษีค่ะ (ต้องการโค้ดบันทึกข้อมูล)
=================================================================
Private Sub CmClear_Click()
Worksheets("Invoices").Cells(1, 8).Value = ""
Worksheets("Invoices").Cells(2, 8).Value = ""
Worksheets("Invoices").Cells(3, 8).Value = ""
Worksheets("Invoices").Cells(5, 2).Value = ""
Worksheets("Invoices").Cells(11, 2).Value = ""
Worksheets("Invoices").Cells(12, 2).Value = ""
Worksheets("Invoices").Cells(13, 2).Value = ""
Worksheets("Invoices").Cells(14, 2).Value = ""
Worksheets("Invoices").Cells(15, 2).Value = ""
Worksheets("Invoices").Cells(16, 2).Value = ""
Worksheets("Invoices").Cells(17, 2).Value = ""
Worksheets("Invoices").Cells(18, 2).Value = ""
Worksheets("Invoices").Cells(11, 4).Value = ""
Worksheets("Invoices").Cells(12, 4).Value = ""
Worksheets("Invoices").Cells(13, 4).Value = ""
Worksheets("Invoices").Cells(14, 4).Value = ""
Worksheets("Invoices").Cells(15, 4).Value = ""
Worksheets("Invoices").Cells(16, 4).Value = ""
Worksheets("Invoices").Cells(17, 4).Value = ""
Worksheets("Invoices").Cells(18, 4).Value = ""
End Sub
อันนี้เป็นโค้ดใบกำกับภาษีค่ะ (ต้องการโค้ดบันทึกข้อมูล)
=================================================================
Private Sub CmClear_Click()
Worksheets("Invoices").Cells(1, 8).Value = ""
Worksheets("Invoices").Cells(2, 8).Value = ""
Worksheets("Invoices").Cells(3, 8).Value = ""
Worksheets("Invoices").Cells(5, 2).Value = ""
Worksheets("Invoices").Cells(11, 2).Value = ""
Worksheets("Invoices").Cells(12, 2).Value = ""
Worksheets("Invoices").Cells(13, 2).Value = ""
Worksheets("Invoices").Cells(14, 2).Value = ""
Worksheets("Invoices").Cells(15, 2).Value = ""
Worksheets("Invoices").Cells(16, 2).Value = ""
Worksheets("Invoices").Cells(17, 2).Value = ""
Worksheets("Invoices").Cells(18, 2).Value = ""
Worksheets("Invoices").Cells(11, 4).Value = ""
Worksheets("Invoices").Cells(12, 4).Value = ""
Worksheets("Invoices").Cells(13, 4).Value = ""
Worksheets("Invoices").Cells(14, 4).Value = ""
Worksheets("Invoices").Cells(15, 4).Value = ""
Worksheets("Invoices").Cells(16, 4).Value = ""
Worksheets("Invoices").Cells(17, 4).Value = ""
Worksheets("Invoices").Cells(18, 4).Value = ""
End Sub