Page 2 of 2
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 10:09 am
by snasui
ลองเองได้เลยครับ ยกเลิกการซ่อนแล้วลองรัน Code จะได้ทราบว่าเกิดจากปัญหาการซ่อนชีตหรือไม่
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 3:29 pm
by piman
ครับอาจารย์
ผมลองพยายาม เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น ให้ข้อมูลไปอยู่ในช่องที่กำหนด Sheet Historyemp แต่ข้อมูลค่อนข้างไม่เป็นไปตามที่ต้องการครับอาจารย์
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 7:06 pm
by snasui
ช่วยอธิบายรายละเอียดมาพอสังเขปว่าไม่เป็นไปตามต้องการนั้นเป็นแบบใด สิ่งที่ต้องการเป็นแบบใดและสิ่งที่ได้มาเป็นแบบใดครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 8:05 pm
by piman
ผมแนบรูปมาเป็นตัวอย่างครับอาจารย์
ชื่อรูป "ที่ต้องการ" คือที่ถูกต้องครับ
ชื่อรูป "ไม่ถูกต้อง" คือที่ไม่ถูกต้องครับ (เป็นรูปแบบที่รันในไฟล์ที่แนบไปก่อนหน้านี้ครับ)
ขอบคุณครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 8:22 pm
by 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 อื่น ๆ ที่จะต้องคีย์ให้ครบครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 9:56 pm
by piman
ได้แล้วครับผม ขอบคุณมากครับอาจารย์
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 10:39 pm
by piman
ผมลองเล่นๆไปเรื่อยๆครับอาจารย์
ลองเลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น คราวนี้จะนำข้อมูลที่อยู่บรรทัดสุดท้ายไปแสดงที่ Sheet Historyemp ตลอดเลยครับ
ทั้งที่ก่อนหน้าสามารถใช้งานได้ปกติครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 10:46 pm
by snasui
กรุณา Debug แล้วหาให้ได้ว่าเกิดจากบรรทัดไหนครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 11:02 pm
by piman
ผมลองเช็ค Debug แล้ว การทำงานปกติทุกบรรทัดครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 11:06 pm
by snasui
ไม่ใช่เช็คแค่ Error หรือไม่ แต่ต้องเช็คให้ได้ว่าบรรทัดไหนที่ทำงานเกินไปจากที่ต้องการครับ
ผมบอกวิธีการติดตาม Code ทีละบรรทัดไปแล้ว ต้องทำเองให้เป็นครับ
Re: เลือกข้อมูลใน List Box แล้วกดปุ่มปริ๊น
Posted: Tue Sep 01, 2020 11:29 pm
by piman
ครับผม ขอบคุณมากครับ