ขอคำแนะนำcode vba excel ครับ

[piches]

ขอคำแนะนำcode vba excel รันได้ครั้งเดียวตอนเปิดไฟล์ขึ้นมาครั้งแรกรันได้ทำงานปกติดี พอป้อนข้อมูลครั้งต่อไปรันไม่ได้ต้องปิดไฟล์แล้วเปิดใหม่ถึงจะทำงานปกติ ไม่ทราบว่าต้องแก้ไขยังไงครับ ขอบคุณครับ

[piches]

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$4" And Target <> "" Then
    adddata
ElseIf Target.Address = "$A$4" And Target = "" Then
    MsgBox "Please select data."
End If
End Sub

Application.EnableEvents ไม่ทำงาน แก้ไขยังไงครับ

[snasui]

จาก Code ที่โพสต์มา

ก่อน End Sub เพิ่มบรรทัด Application.EnableEvents = True เข้าไปด้วยครับ

[piches]

ขอบคุณครับอาจารย์ ใช้ได้แล้วครับ