Excel Forum

Posted: **Wed May 09, 2012 10:08 am**

คือผมทำฐานข้อมูลให้ทีมงานกรอก เเต่เกิดปัญหาการกรอกข้อมูลไม่ครบ

1 จะทำยังไงให้มันแจ้งเตือน "กรุณากรอกข้อมูลให้ครบ" ในตั้งแต่ตอนแรกที่เปิดขึ้นมา จะเขียนVB เพิ่มยังไงครับ?

2 แล้วถ้ากรอกไม่ครบตามช่องก็เตือนว่า "คุณกรอกข้อมูลไม่ครบ" และกด save data ไม่ได้ต้องไปแก้ก่อน จะเขียนVB เพิ่มยังไงครับ?

Posted: **Wed May 09, 2012 11:30 am**

ปรับโค๊ดเป็น

Code: Select all

Sub SaveData()
If Sheets("From").Range("B2") <> "" And Sheets("From").Range("B3") <> "" Then
  Sheets("Temp").Range("A2:Q196").Copy
  Sheets("Database").Range("A" & Rows.Count) _
 .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
 Else
 MsgBox "¤Ø³¡ÃÍ¡¢éÍÁÙÅäÁè¤Ãº"
 End If
End Sub

Posted: **Wed May 09, 2012 12:59 pm**

ขอบคุณครับพี่

Excel Forum

จะสร้าง การแจ้งเตือนในExcelได้ยังไงครับ

จะสร้าง การแจ้งเตือนในExcelได้ยังไงครับ

Re: จะสร้าง การแจ้งเตือนในExcelได้ยังไงครับ

Re: จะสร้าง การแจ้งเตือนในExcelได้ยังไงครับ