การโชว์ข้อมูลใน listbox ครับ
Posted: Thu May 21, 2020 1:32 am
ตอนข้อมูลมีมากเลยไม่ทันสังเกต
นั่งดู code ไฟลเมื่อตอนเย็น เทียบกับตอนกลางคืน ดูอยู่นานมาก code เหมือนกันทุกอบ่าง
เว้นแต่ข้อมูลไม่เหมือนกัน สรุปได้ว่าผิดทั้ง 2 ไฟล์ ไฟล์ที่มีข้อมูลมากมันผิดแต่ไม่สามารถสังเกตุเห็นได้ จากรูปข้อมูลไม่ได้ติดขอบบนสุด สามารถแก้ไข code ได้ไหมครับแก้อย่างไร
ข้อมูลนี้อยู่ใน sheet "DatabaseREQSIT"
code อยู่ใน Module2_Reset
ผลที่ได้จากการ Run ดังรูปล่าง
4 บรรทัดสุดท้ายหายครับ ทดลองลองลบคอลัมที่ว่างให้หายไป
ข้อมูลออกมาถูกต้องครับ
แต่จริงๆแล้วไม่สารถลบคอลัมดังกล่าวได้ครับผมเอาไว้กรองข้อมูลครับ
แก้ไข code อย่างไรดีครับ
นั่งดู code ไฟลเมื่อตอนเย็น เทียบกับตอนกลางคืน ดูอยู่นานมาก code เหมือนกันทุกอบ่าง
เว้นแต่ข้อมูลไม่เหมือนกัน สรุปได้ว่าผิดทั้ง 2 ไฟล์ ไฟล์ที่มีข้อมูลมากมันผิดแต่ไม่สามารถสังเกตุเห็นได้ จากรูปข้อมูลไม่ได้ติดขอบบนสุด สามารถแก้ไข code ได้ไหมครับแก้อย่างไร
ข้อมูลนี้อยู่ใน sheet "DatabaseREQSIT"
code อยู่ใน Module2_Reset
Code: Select all
Sub ResetReturntool1()
Dim iRow As Long
iRow = [Counta(DatabaseREQSIT!A:A)] ' idetifying the last row
With frmReturntool
.ListBox1.ColumnCount = 14
.ListBox1.ColumnHeads = True
.ListBox1.ColumnWidths = "0,0,75,45,100,150,0,90,0,0,70,60,0,0"
If iRow > 1 Then
.ListBox1.RowSource = "DatabaseREQSIT!A6:N" & iRow
Else
.ListBox1.RowSource = "DatabaseREQSIT!A6:N6"
End If
End With
End Sub4 บรรทัดสุดท้ายหายครับ ทดลองลองลบคอลัมที่ว่างให้หายไป
ข้อมูลออกมาถูกต้องครับ
แต่จริงๆแล้วไม่สารถลบคอลัมดังกล่าวได้ครับผมเอาไว้กรองข้อมูลครับ
แก้ไข code อย่างไรดีครับ
แก้ตัวแปรที่หาค่าบรรทัดสุดท้ายของข้อมูลครับ