ล้างข้อมูลออกจาก UserForm เมื่อคลิกปุ่มบันทึกแล้ว

[san02551]

เรียน อาจารย์ที่เคารพ
ที่ UserForm2 ผมต้องการทำอยู่ 3 ปุ่ม
- ปุ่มบันทึกข้อมูล (CommandButton1) ทำได้แล้ว หากเพิ่มอีกสัก 100 textBox จะบันทึกช้ามาก
- ปุ่มล้างข้อมูล(CommandButton2) คือ เมื่อกรอกข้อมูลเสร็จแล้ว คลิกปุ่มบันทึก และให้แสดงหน้าต่างยืนยันบันทึกข้อมูล แล้วคลิกปุ่มล้างข้อมูล เพื่อกรอกข้อมูลใหม่ครับ
- ปุ่มยลเลิก (CommandButton3)ทำได้แล้ว
ผมเรียนมาเพื่อขอรบกวนหน่อยครับ

[snasui]

Code สำหรับล้างข้อมูลชื่อว่าอะไร ติดที่บรรทัดใดครับ

[san02551]

ล้างข้อมูลใน User Form2 ครับ
1.กรอกข้อมูลใน UserForm2 แล้วคลิกปุ่มบันทึก ข้อมูลก็จะไปบันทึกใน Sheet Data ครับ
2.ใน UserForm2 ต้องการกรอกข้อมูลเพิ่มอีก
3.ข้อมูลมีหลายชุดครับ ถ้าผมให้กรอกข้อมูลสัก 10 ชุด โปรแกรมจะบันทึกช้าครับ รอประมาณ 2 นาที
4.ผมเลยอยากบันทึก สัก 5 ชุด โดยทำปุ่มล้างข้อมูลใน UserForm2 ก่อน แล้วก็บันทึกต่อไปครับ
5.ติดตรงที่ปุ่ม ล้างข้อมูล จะเลือกล้างข้อมูลที่ UserForm2 ได้ไหมครับ

[snasui]

ผมทราบในสิ่งที่ต้องการจะทำครับ การล้างข้อมูลจะต้องเขียน Code มาเอง ติดแล้วค่อยถามกันต่อ อ่านกฎข้อ 5 ด้านบนประกอบด้วยครับ

[san02551]

แนบไฟล์แล้วครับ ติดที่
Private Sub CommandButton2_Click()
Selection.ClearContents
'ขออนุญาต ต้องใช้คำสั่งใดครับ'
Range("textBox1:textBox20").Select
Selection.ClearContents
End Sub

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton2_Click()
    TextBox1.Text = ""
    TextBox2.Text = ""
    '...
    TextBox20.Text = ""
End Sub