อยากใช้ Data Validate หรือ วิธีไหนก็ได้ ที่ป้องกันค่าว่าง

[netusernoname]

คือจะมี Cell ให้ คนกรอก แต่ไม่อนุญาตให้ป้อนค่าว่าง ทำไงครับ
ขอบคุณครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยครับ จะได้เห็นค่าการป้อนค่าว่างที่ว่านั้นเป็นอย่างไร หากไม่ได้ป้อนแต่ปล่อยให้ว่าง การดักด้วย Validation จะไม่ฟ้องออกมาให้เห็นว่าไม่เป็นไปตามเงื่อนไขที่กำหนด ถ้าต้องการให้ฟ้องก็ต้องพึ่ง VBA เข้ามาช่วยครับ

[brakubra]

แนบไฟล์ตัวอย่างมาด้วยครับ จะได้เห็นค่าการป้อนค่าว่างที่ว่านั้นเป็นอย่างไร หากไม่ได้ป้อนแต่ปล่อยให้ว่าง การดักด้วย Validation จะไม่ฟ้องออกมาให้เห็นว่าไม่เป็นไปตามเงื่อนไขที่กำหนด ถ้าต้องการให้ฟ้องก็ต้องพึ่ง VBA เข้ามาช่วยครับ

อาจารย์ผมรบกวนสอบถามหน่อยครับ ผมต้องการให้มีข้อความฟ้องขึ้นเมื่อเรากรอกข้อมูลไม่หมดจะสามารถใช้ VBA แบบไหนได้บ้างครับ

ใน Sheet input colum A3:F3 ไม่ต้องการให้เป็นค่าว่าง ถ้าเป็นค่าว่างให้ฟ้องให้กรอกข้อมูล ครับ

Repair Record.xlsm

ขอบคุณครับ

[bank9597]

ที่ H3 คีย์ =COUNTA(Masterrecord)

เพิ่มเติมโค๊ดดังนี้

Code: Select all

Sub Add()
'
' Add Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
If Sheets("Input").Range("H3") = 6 Then
   Application.Goto Reference:="MasterRecord"
   Selection.Copy
   Application.Goto Reference:="ulMyData1"
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
   
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False
   'Refresh Pivot Table
   Sheets("Input").PivotTables("PivotTable4").PivotCache.Refresh
   'Sheets("Data Base").Select
   Range("A3:F3").Select
   Sheets("Input").Select
   Selection.ClearContents
   Range("A3").Select
   MsgBox "Update data has finished."
   Else
   MsgBox "คุณกรอกข้อมูลไม่ครบ"
   End If
   
   
End Sub

[brakubra]

ที่ H3 คีย์ =COUNTA(Masterrecord)

เพิ่มเติมโค๊ดดังนี้

Code: Select all

Sub Add()
'
' Add Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
If Sheets("Input").Range("H3") = 6 Then
   Application.Goto Reference:="MasterRecord"
   Selection.Copy
   Application.Goto Reference:="ulMyData1"
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
   
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False
   'Refresh Pivot Table
   Sheets("Input").PivotTables("PivotTable4").PivotCache.Refresh
   'Sheets("Data Base").Select
   Range("A3:F3").Select
   Sheets("Input").Select
   Selection.ClearContents
   Range("A3").Select
   MsgBox "Update data has finished."
   Else
   MsgBox "คุณกรอกข้อมูลไม่ครบ"
   End If
   
   
End Sub

ขอบพระคุณมากครับอาจารย์ bank9597 เรียบร้อยครับ