เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น

[snasui]

ลองเองได้เลยครับ ยกเลิกการซ่อนแล้วลองรัน Code จะได้ทราบว่าเกิดจากปัญหาการซ่อนชีตหรือไม่

[piman]

ครับอาจารย์

ผมลองพยายาม เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น ให้ข้อมูลไปอยู่ในช่องที่กำหนด Sheet Historyemp แต่ข้อมูลค่อนข้างไม่เป็นไปตามที่ต้องการครับอาจารย์

[snasui]

ช่วยอธิบายรายละเอียดมาพอสังเขปว่าไม่เป็นไปตามต้องการนั้นเป็นแบบใด สิ่งที่ต้องการเป็นแบบใดและสิ่งที่ได้มาเป็นแบบใดครับ

[piman]

ผมแนบรูปมาเป็นตัวอย่างครับอาจารย์

ชื่อรูป "ที่ต้องการ" คือที่ถูกต้องครับ

ชื่อรูป "ไม่ถูกต้อง" คือที่ไม่ถูกต้องครับ (เป็นรูปแบบที่รันในไฟล์ที่แนบไปก่อนหน้านี้ครับ)

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

For i = 0 To .lstData.ListCount - 1
    sh.Range("I2").Value = .lstData.List(i, 0)
    sh.Range("I4").Value = .lstData.List(i, 1)
    sh.Range("D8").Value = .lstData.List(i, 2)
    '...
    sh.Range("D46").Value = .lstData.List(i, 21)
    sh.PageSetup.PrintArea = "$A$1:$K$48"
    sh.PrintPreview
Next i

เครื่องหมาย ... คือ Code อื่น ๆ ที่จะต้องคีย์ให้ครบครับ

[piman]

ได้แล้วครับผม ขอบคุณมากครับอาจารย์

[piman]

ผมลองเล่นๆไปเรื่อยๆครับอาจารย์

ลองเลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น คราวนี้จะนำข้อมูลที่อยู่บรรทัดสุดท้ายไปแสดงที่ Sheet Historyemp ตลอดเลยครับ

ทั้งที่ก่อนหน้าสามารถใช้งานได้ปกติครับ

[snasui]

กรุณา Debug แล้วหาให้ได้ว่าเกิดจากบรรทัดไหนครับ

[piman]

ผมลองเช็ค Debug แล้ว การทำงานปกติทุกบรรทัดครับ

[snasui]

ไม่ใช่เช็คแค่ Error หรือไม่ แต่ต้องเช็คให้ได้ว่าบรรทัดไหนที่ทำงานเกินไปจากที่ต้องการครับ

ผมบอกวิธีการติดตาม Code ทีละบรรทัดไปแล้ว ต้องทำเองให้เป็นครับ

[piman]

ครับผม ขอบคุณมากครับ