snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Leng
Member
Posts: 225 Joined: Tue Jun 26, 2018 5:19 pm
#21
Post
by Leng » Fri Jul 06, 2018 8:51 am
เวลากดปุ่ม ตามภาพจะบันทึกข้อมูลเวลาscanไปด้วยครับ
Attachments
Untitled-1.jpg (40.79 KiB) Viewed 43 times
Leng
Member
Posts: 225 Joined: Tue Jun 26, 2018 5:19 pm
#22
Post
by Leng » Fri Jul 06, 2018 8:55 am
เวลากดปุ่ม ตามภาพจะบันทึกข้อมูลเวลาscanไปด้วยครับ
Attachments
system GF.xlsm
(132.55 KiB) Downloaded 12 times
logic
Gold
Posts: 1511 Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365
#23
Post
by logic » Fri Jul 06, 2018 9:45 am
บันทึกข้อมูลเวลาไปตรงไหนหรือครับ
Leng
Member
Posts: 225 Joined: Tue Jun 26, 2018 5:19 pm
#24
Post
by Leng » Fri Jul 06, 2018 10:04 am
ผม scan ตรง combobox แล้ว ข้อมูลบันทึก อัตโนมัติ ครับ
logic
Gold
Posts: 1511 Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365
#25
Post
by logic » Fri Jul 06, 2018 4:14 pm
snasui wrote: Fri Jun 29, 2018 8:32 pm
Leng wrote: Fri Jun 29, 2018 8:48 am
ได้แล้วครับ แต่เวลากด botton อื่นข้อมูลก็บันทึกไปด้วย เราสามารถแก้อะไรได้ไหมครับ
กดปุ่มไหนถึงทำให้ข้อมูลถูกบันทึกไปด้วยช่วยแจ้งมาด้วยครับ
Leng wrote: Fri Jul 06, 2018 8:51 am
เวลากดปุ่ม ตามภาพจะบันทึกข้อมูลเวลาscanไปด้วยครับ
ลองคลิกดูแล้วไม่เห็นว่าจะบันทึกอะไรตรงไหน อ่านแล้วงงครับ
Leng wrote: Fri Jul 06, 2018 10:04 am
ผม scan ตรง combobox แล้ว ข้อมูลบันทึก อัตโนมัติ ครับ
อันนี้ทราบแล้วจากโพสต์ก่อน ๆ
สรุปแล้วยังติดปัญหาอะไรหรือครับ
Leng
Member
Posts: 225 Joined: Tue Jun 26, 2018 5:19 pm
#26
Post
by Leng » Sat Jul 07, 2018 9:50 am
ผมใสข้อมูลทุกช่องครบแล้ว แสกนในช่อง barcode แล้วข้อมูลก็จะคีร์ลงปกติ
แต่พอไปกับปุ่ม Save หรือปุ่มอื่นๆที่ได้ทำไว้ข้อมูลของช่องอื่นๆก็จะบันทึกลงไปด้วยครับทั้งๆที่ไม่ได้ Scan ในช่อง Barcode
snasui
Site Admin
Posts: 31191 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#27
Post
by snasui » 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 Sub
Leng
Member
Posts: 225 Joined: Tue Jun 26, 2018 5:19 pm
#28
Post
by Leng » Sat Jul 07, 2018 11:15 am
ได้ละครับขอบพระคุณมากจริงๆครับ