Page 1 of 1
ขอคำแนะนำcode vba excel ครับ
Posted: Wed May 11, 2016 2:28 pm
by piches
ขอคำแนะนำcode vba excel รันได้ครั้งเดียวตอนเปิดไฟล์ขึ้นมาครั้งแรกรันได้ทำงานปกติดี พอป้อนข้อมูลครั้งต่อไปรันไม่ได้ต้องปิดไฟล์แล้วเปิดใหม่ถึงจะทำงานปกติ ไม่ทราบว่าต้องแก้ไขยังไงครับ ขอบคุณครับ
Re: ขอคำแนะนำcode vba excel ครับ
Posted: Wed May 11, 2016 4:25 pm
by 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 ไม่ทำงาน แก้ไขยังไงครับ
Re: ขอคำแนะนำcode vba excel ครับ
Posted: Wed May 11, 2016 8:31 pm
by snasui
จาก Code ที่โพสต์มา
ก่อน
End Sub เพิ่มบรรทัด
Application.EnableEvents = True เข้าไปด้วยครับ
Re: ขอคำแนะนำcode vba excel ครับ
Posted: Thu May 12, 2016 9:01 am
by piches
ขอบคุณครับอาจารย์ ใช้ได้แล้วครับ