Page 1 of 1

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

Posted: Wed May 09, 2012 10:08 am
by Phrut.witt
คือผมทำฐานข้อมูลให้ทีมงานกรอก เเต่เกิดปัญหาการกรอกข้อมูลไม่ครบ

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

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

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

Posted: Wed May 09, 2012 11:30 am
by bank9597
:D ปรับโค๊ดเป็น

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

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

Posted: Wed May 09, 2012 12:59 pm
by Phrut.witt
ขอบคุณครับพี่ :D