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

[Phrut.witt]

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

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

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

[bank9597]

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

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

[Phrut.witt]

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