เมื่อ Scan barcode แล้วให้บันทึกข้อมูล โดยไม่ต้องกดปุ่ม save เพื่อ run macro

[ch.jew10]

ผมได้สร้าง form ที่ sheetชื่อ form เพื่อให้ user กรอกข้อมูล เมื่อกดปุ่ม save ที่มุมขวาด้านล่าง

จะ copy ข้อมูลไปใน sheet List non conform ครับ ที่ต้องการคือ หากมีการ scan barcode รับค่า imei ที่ช่อง cell c10

แล้วให้บันทึกข้อมูลไปเลย โดยไม่ต้องกดปุ่ม save จะทำได้หรือไม่ครับ ขอบคุณมากครับ

[puriwutpokin]

ไปที่ VBA ที่ชีท Form
ใส่โค้ดตามนี้ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range) 'Excel VBA change event test for close.
If Not Intersect(Target, Range("c10")) Is Nothing Then
Application.EnableEvents = False
If Target = Range("c10") Then
Call Macro1
End If
End If
Application.EnableEvents = True
End Sub

[ch.jew10]

ทดลองแล้วยังไม่ได้ผล error อยู่ครับ

Private Sub Worksheet_Change(ByVal Target As Range) 'Excel VBA change event test for close. แถบสีเหลือง
If Not Intersect(Target,Range("C10") Is Nothing Then ตัวหนังสือสีแดง
แล้วพอใส่ code ที่ sheet form ปุ่ม save ไม่สามารถใช้งานได้ครับ

[puriwutpokin]

แนบไฟล์​ที่ใส่โค้ดนั้นมาดูครับ

[ch.jew10]

ผมทดลองอีกที ใช้งานได้ตามที่ต้องการแล้วครับ ขอบคุณมากครับ