Re: สอบถามการทำ userform scan vba
Posted: Fri Jul 06, 2018 8:51 am
เวลากดปุ่ม ตามภาพจะบันทึกข้อมูลเวลาscanไปด้วยครับ
Snasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
สอบถามการทำ userform scan vba
Page 2 of 2
Re: สอบถามการทำ userform scan vba
Posted: Fri Jul 06, 2018 8:55 am
เวลากดปุ่ม ตามภาพจะบันทึกข้อมูลเวลาscanไปด้วยครับ
Re: สอบถามการทำ userform scan vba
Posted: Fri Jul 06, 2018 9:45 am
บันทึกข้อมูลเวลาไปตรงไหนหรือครับ
Re: สอบถามการทำ userform scan vba
Posted: Fri Jul 06, 2018 10:04 am
ผม scan ตรง combobox แล้ว ข้อมูลบันทึก อัตโนมัติ ครับ
Re: สอบถามการทำ userform scan vba
Posted: Fri Jul 06, 2018 4:14 pm
ลองคลิกดูแล้วไม่เห็นว่าจะบันทึกอะไรตรงไหน อ่านแล้วงงครับ
อันนี้ทราบแล้วจากโพสต์ก่อน ๆ
สรุปแล้วยังติดปัญหาอะไรหรือครับ
Re: สอบถามการทำ userform scan vba
Posted: Sat Jul 07, 2018 9:50 am
ผมใสข้อมูลทุกช่องครบแล้ว แสกนในช่อง barcode แล้วข้อมูลก็จะคีร์ลงปกติ
แต่พอไปกับปุ่ม Save หรือปุ่มอื่นๆที่ได้ทำไว้ข้อมูลของช่องอื่นๆก็จะบันทึกลงไปด้วยครับทั้งๆที่ไม่ได้ Scan ในช่อง Barcode
แต่พอไปกับปุ่ม Save หรือปุ่มอื่นๆที่ได้ทำไว้ข้อมูลของช่องอื่นๆก็จะบันทึกลงไปด้วยครับทั้งๆที่ไม่ได้ Scan ในช่อง Barcode
Re: สอบถามการทำ userform scan vba
Posted: Sat Jul 07, 2018 10:35 am
ตัวอย่างการปรับ Code ครับCode: Select all
Private Sub Barcode_Ad_AfterUpdate()
If Me.Barcode_Ad.Text = "" Then Exit Sub
emptyrow = WorksheetFunction.CountA(Range("A:A")) + 1
Worksheets("Add02").Cells(emptyrow, 2).Value = Date_Ad.Value
Worksheets("Add02").Cells(emptyrow, 3).Value = Box_Ad.Value
Worksheets("Add02").Cells(emptyrow, 4).Value = Around_Ad.Value
Worksheets("Add02").Cells(emptyrow, 5).Value = Barcode_Ad.Value
Worksheets("Add02").Cells(emptyrow, 9).Value = No_Ad.Value
Worksheets("Add02").Cells(emptyrow, 1).Value = ComboBox1.Value
End SubRe: สอบถามการทำ userform scan vba
Posted: Sat Jul 07, 2018 11:15 am
ได้ละครับขอบพระคุณมากจริงๆครับ