Excel Forum

ไฟล์มันลิ้งกันค่ะพอตัดออกแล้ว มันเกิดบัคเพิ่มค่ะ เลยตัดไม่ถูกจริงๆ ค่ะ

เฉพาะตรงนี้ที่เกิดบัคค่ะ

ขอบคุณค่ะ


ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export 'C:\Users\Admin\OneDrive\BillLine\น้าน้อย\
Filename = Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value ...

ขอบคุณค่ะ เดียวลองแล้วจะมาแจ้งน่ะค่ะ

อาจารย์ค่ะ ตอนนี้ได้แล้วค่ะ ขอบคุณมากค่ะ สำหรับความรู้ ที่ได้จากเพจนี้ค่ะ

ขอบคุณค่ะ

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

ขอบคุณค่ะ

รบกวนอาจารย์เพื่อนสมาชิก
ช่วยดูโค๊ด ที่ดิฉัน ทำให้มาให้หน่อยค่ะ

ความต้องการคือ
ต้องการปริ้นบิลที่มีในชีต บันทึกรายการซื้อขาย ตามเลขที่บิลในช่อง A8:A2000

พอกดรันแล้วเกิดเป็นบัค ขึ้นค่ะ
104675349_[attachment=1]104476437_265887077852175_5129502601957606481_n.png 4327725897252469_224922886446123285_n ...

สอบถามเพิ่มเติมค่ะ
ถ้าเราจะทำให้Sheetที่แยกข้อมูล มีฟอร์มติดไปกับsheetข้อมูลที่แยกออก ทำได้ไหมค่ะ
ขอบคุณค่ะ

ได้แล้วค่ะ ขอบคุณค่ะ

ลองทำแล้ว ไม่ได้ค่ะ ขอบคุณค่ะ

แนบไฟล์ให้แล้วน่ะค่ะ

ขอบคุณค่ะ

รบกวนช่วยดูโค๊ด
ใช้สูตร Match ผลลัพออกมาถูกต้อง แต่ผลที่ไม่เจอเป็นเลข1 ปกติต้องเป็นเลข0
รบกวนช่วยหน่อยค่ะ

ข้อมูลอยู่ในSheet ฐานข้อมูล ช่วงเซล DO4 ถึง FE4 ค่ะ ตัวอย่าง ช่วงเซลที่ คำตอบอยู่ใน DO4 แต่อ้างจาก AC4 แนบไฟล์มาให้ดูแล้วค่ะ
ลิ้ง ดาวโหลดเอกสาร (ไฟล์ใหญ่อัพไม่ได้ค่ะ)
https://we.tl/t ...

ขอบคุณอาจารย์ค่ะ ที่แนะนำให้ ไม่งั้นเริ่มไม่ถูกเลยค่ะ ตอนนี้ทำได้แล้วน่ะค่ะ

อ้อพอนึกออกแล้วค่ะ ขอบคุณค่ะ

ขอบคุณค่ะ จะลองเขียนดูค่ะ

แนบรูปให้ดูน่ะค่ะ

รบกวนขอคำปรึกษาค่ะ
ขอบคุณค่ะ

snasui (คนควน) ขอบคุณค่ะ
แต่ติดปัญหาขอสอบถามเพิ่มเติมค่ะ

***การบวกยอดซื้อ ในListBox เพื่อรวมเป็นยอดเงินทั้งหมด สามารถหาข้อมูลจากไหนได้บ้างค่ะ
หรืออาจารย์พอจะแนะนำได้ไหมค่ะ***
เช่น : ในListBox เราทำไว้ 4 ข้อมูลต่อรายการ แต่อยากให้รายการที่ 4+8+16 = จำนวนซื้อ
1 / 2 / 3 / 4
5 / 6 / 7 / 8
9 / 10/ 11 ...

รบกวนช่วยดูโค๊ดให้หน่อยค่ะ
ลองบันทึก ListBox แล้วเกิด บัค ใน rowที่17ค่ะ
พร้อมนี้ได้แนบไฟล์มาให้ช่วยดูด้วยค่ะ

ขอบคุณค่ะ

Private Sub CommandButton2_Click()
If TextBox1.Value = "" Then
MsgBox "กรุณาใส่ข้อมูล"
GoTo bNext
End If
Dim r As Long
With Sheets("บันทึกรายการซื้อขาย")
r = .Range("a" & Rows ...