ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
แนบไฟล์ตัวอย่างมาด้วยครับ จะได้เห็นค่าการป้อนค่าว่างที่ว่านั้นเป็นอย่างไร หากไม่ได้ป้อนแต่ปล่อยให้ว่าง การดักด้วย Validation จะไม่ฟ้องออกมาให้เห็นว่าไม่เป็นไปตามเงื่อนไขที่กำหนด ถ้าต้องการให้ฟ้องก็ต้องพึ่ง VBA เข้ามาช่วยครับsnasui wrote:
ที่ 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 wrote:
เพิ่มเติมโค๊ดดังนี้
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
