Snasui Excel Forum

ไฟส์สำเร็จรูปลองให้สมาชิกนำไปทดลองใช้งานดู ขัดข้อง ผิดพลาด เชิญที่ kuaduang_t@hotmail.com ครับ

หาสาเหตุเจอพอดี ขอบคุณครับ การป้องกันแผ่นงาน เผื่อไปลบโดยบังเอิญ ป้องกันแล้ว ปุ่มบันทึก ปุ่มยกเลิกใช้ไม่ได้

ขอเพิ่มอีกนิดหนึ่ง ต้องการ ให้เลขที่บิล ขึ้นอัตโนมัติเมื่อมีการขายไปแต่ละบิลที่ G3 ต้องเพิ่ม code vba หรือ ใช้ฟังก์ชั้น
รบกวนแค่นี้ครับ ขอบคุณครับ

แนบไฟส์มาให้ช่วยตรวจความถูกต้องให้ด้วย

ใช้ได้แล้วครับ ไปต่างจังหวัดเสียหลายวัน แต่มันยังมีปัญหาอยู่อีกนิดหนึ่งครับ เมื่อบันทึกบิลเรียบร้อยแล้ว จะขึ้นบิลใหม่มันไม่ยอมทำงานอีก คือ พอเราจบบิลการขายครั้งหนึ่งมีการบันทึกบิลเก็บเอาไว้ โดยกด บันทึก เป็นอันว่าเสร็จการขาย 1 บิล ตอนนี้ขายต่อ กด ป้อนรหัสลูกค้าเสร็จ ไปเลือกรายการสินค้า กด E7 ปกติ รห ...

กดปุ่มยกเลิก

แนบ ภาพ 1

จะแนบไฟล์ให้มันใหญ่เกิน เมื่อใส่ code สินค้าซ้ำเปลี่ยนจำนวนสินค้าอัตโนมัติมันใช้ได้ แต่เวลายกเลิกบิล มัน error 8iy[
จาก sheet service เลือกป้อนชื่อสินค้าตามต้องการ E7 จะได้บิลขาย 1 บิล แต่บิลผิดพลาดต้องการยกเลิก กดปุ่มยกเลิก
ตอบ Yes มันจะขึ้น error ครับ

เวลายกเลิกบิล Run.time error "13:" Type mismatch. ต้องปรับโค๊ดตรงใหนครับ เดิมผมใช้
Range. Service CurrentID ( >=A13,<=A22)

code ได้ตามเป้าประสงค์ครับ แต่เวลา เคลียร์บิลไม่ต้องการมัน Errer 13
i = Application.Match(id, .Range("A:A"), 0) ต้องเปลี่ยนตัวใหนด้วยดรับ

ขอบคุณครับ แจ้งลบไฟล์แนบให้ด้วยครับ

ขอขอบพระคุณมากๆ ที่ให้ตรงตามเป้าประสงค์ครับ อีกนิดหนึ่ง เวลาเลือกแถวใน sheet มันล้นไปหนึ่งแถว เช่น เลือกแถว A13-A22 มันจะไปถึง
A23 ด้วย ในโปรแกรมผมลักไก่คือ ตั้งไว้ที่ A13-A21 จะได้ A22 ด้วย ขอคุณมากๆครับ

ที่แก้ไขนั้นก็ดีแล้ว แต่ที่ต้องการคือ เมื่อเลือกชิ่อสินค้าซ้ำ จำนวนสินค้าจะเพิ่มเอง สมมุติซื้อเบียร์ลีโอแคน 1 กระป๋อง ต้องการเพิ่มอีก 1 กระป๋อง
โดยเลือกที่ E7 เป็นชื่อเบียร์ลีโอแคน ส่วนจำนวนจะเพิ่มเองคือ 1 กระป๋อง(อัตโนมัติ เพราะตั้งจำนวนไว้แล้วคือ 1 ) โปรแกรมตั้งไว้จำนวน 1 ทุกชื่อสินค้าเมื่อไม่ระบ ...

ปรับแล้วยังเหมือนเดิม

โปรแกรมร้านค้า.xlsm
Public Sub addNewItem(id As String)
If id = "" Then Exit Sub

Dim r As Range, f As Range
Set r = Range("item")
Set f = r.Find(What:=id, LookAt:=xlWhole, MatchCase:=True)

Dim foundRow As Long
If f Is Nothing Then
MsgBox " äÁ辺ª×èÍÊÔ¹¤éÒ " & id, vbCritical ...

เมื่อเลือก input ที่ E7 จะได้รหัสสินค้าตามต้องการจำนวนชิ้นใส่เองหรือตั้งใว้ที่ 1 แต่ต้องการเมื่อเลือกรายการสินค้าซ้ำให้ใส่จำนวนเพิ่มให้อัตโนมัติ เปลี่ยน code ตรงไหน

เมื่อเลือก input ที่ E7 ชื่อสินค้า จะไปที่ A13-A22 แต่เขียน code แล้วมันจะไปโพล่อถึง A23 ด้วยเกินแถวที่ต้องการ
ประการที่สองต้องการเมื่อเลือกสินค้าซ้ำมันจะไปนับจำนวนเพิ่ม แต่กลับไม่เพิ่มจำนวนให้ ไปเพิ่มชื่อสินค้าแถวใหม่
จะต้องเปลี่ยน code อันใหน