สอบถาม การใส่จำนวนสินค้า ก่อนยิง barcode ครับ

[akranan]

สวัสดีครับอาจารย์

ตอนนี้ไฟล์ทุกอย่างใช้ได้อย่างเรียบร้อย

ในชีท "คิวขาย" จะยิง barcode แล้วข้อมูลจากในหน้าสินค้าจะมาแสดงในคิวขายตามที่ได้ใส่ไว้

ถ้าต้องการเพิ่มฟังชั่น(เงื่อนไขที่ 2) โดยในช่อง barcode โดยกำหนดเงื่อนไขดังนี้

เงื่อนไขที่ 1 : ยิง barcode แล้วข้อมูลแสดงสินค้าปกติแบบในไฟล์ที่แสดงอยู่
เงื่อนไขที่ 2 : กด เครื่องหมาย * แล้วเด้งไปใส่จำนวนสินค้า เช่น 25 ชิ้น แล้วให้กลับมาช่องเดิมเพื่อยิง barcode แล้วคำนวณราคาใหม่ตามจำนวนชิ้นที่ใส่เข้าไปครับ

เหมือนกับถ้าสินค้า 1 ชิ้น ก็ยิง barcode ปกติ
แต่ถ้าสินค้า 25 ชิ้น ก็ พิมพ์ "*"(เครื่องหมายคูณ) + เลข 25 และยิง barcode ลงไปแล้วให้จำนวนสินค้าเปลี่ยนครับ

สามารถทำได้หรือไม่ครับ ตอนนี้ทำโดยการใช้ barcode ระบุจะนวน เป็น 10 20 30 ชิ้นแทน แต่ barcode มันเยอะมากครับต้องการแก้ไขเรื่องนี้

ขอบคุณมากครับอาจารย์

[parakorn]

แนะนำให้ Clear สูตรช่อง F ออก แล้งลองเพิ่ม Object สำหรับกรอกจำนวนดูครับ
ตัวอย่างการบันทึก Macro สำหรับ Object ที่สร้างดังนี้ครับ
Go to(Ctrl+G) เซลล์ F5 > End Mode(Ctrl+ลูกศรลงล่าง/กดปุ่ม End แล้วกดลูกศรลงล่าง)
> Set Relative Ref (View > Macros > Use Relative Ref) > กดลูกศรลงหนึ่งครั้ง > จบการบันทึก Macro

คราวนี้เราก็จะได้ ปุ่มสำหรับกรอกจำนวนแล้วครับ
และลองสร้างอีกปุ่ม สำหรับกลับไป ยิงบาร์โค้ด โดยใช้หลักการเดียวกันด้วย
เพื่อความรวดเร็วในการทำงานนะครับ

[akranan]

สวัสดีครับ

ตอนนี้สามารถทำได้ในแบบที่ต้องการ ขอบคุณมากสำหรับแนวทางครับ แต่ติดปัญหาดังนี้ครับ

ตอนนี้ใช้ code นี้

Sub Goto_Qty()
'
' Goto_Qty แมโคร
'

'
ActiveCell.Offset(0, 4).Range("A1").Select
Selection.ClearContents
FormEX1.Show
ActiveCell.Offset(0, -4).Range("A1").Select
End Sub

Sub Button1_Click()
FormEX1.Show
End Sub

ทำงานโดยคลิกที่ ปุ่ม "Button1_Click()" จะรันไปที่ "Sub Goto_Qty()"

ติดปัญหาดังนี้ครับ
1. ถ้าต้องการให้กดเครื่องหมาย ดอกจัน บนแป้นพิมพ์ตัวเลข แทนการเลื่อนเม้าส์แล้วกดที่ปุ่ม "Button1_Click()" สามารถทำได้หรือไม่ครับ
2. เมื่อใส่จำนวนสินค้าครั้งที่ 2 เป็นต้นไปจะขึ้นดังรูป (ตามไฟล์แนบ)

[snasui]

หากต้องการใช้ Short cut สามารถทำได้ตอนบันทึก Macro ครับ ดูตัวอย่างที่ Link นี้ครับ http://snasui-excelvba.blogspot.com/

การใช้ Short cut ควรใช้ปุ่มอื่นร่วมด้วย การใช้เพียงปุ่มเดียวจะทำให้เกิดข้อผิดพลาดหากว่าไม่ได้ทำงานนี้แต่ไปกดปุ่มที่ Run Macro

สำหรับการโพสต์ Code ให้อ่านกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกในการอ่านและ Copy ไปทดสอบครับ