Listbox แสดงผลไม่ถูกต้องครับ

[yodpao.b]

เลือกข้อความใน ComboBox1 มาแสดงผลใน Listbox ครับ
เลือก ใบคืน - 00000002 แสดงผลถูกต้อง
เลือก ใบคืน - 00000004 แสดงผลถูกต้อง
เลือก ใบคืน - 00000007 ไม่แสดงผล

ต้องการให้ 00000007 แสดงผลถูกต้อง

code ดังนี้

Code: Select all

    Me.ListBox1.Clear
        For I = 6 To Application.WorksheetFunction.CountA(Sheets("DatabaseREQSIT").Range("C:C"))
            If Sheets("DatabaseREQSIT").Cells(I, 3).Value = Me.ComboBox1.Value Then
            
                Me.ListBox1.AddItem Sheets("DatabaseREQSIT").Cells(I, 6).Value & " || ÃËÑÊ : " & Sheets("DatabaseREQSIT").Cells(I, 5).Value
            End If
        Next I

อยู่ใน ComboBox1 ครับ
ขั้นตอน
คลืกปุ่ม

2.JPG

เลือกข้อมูลลำดับ 1

0.JPG

แสดงผลดังรูป

1.JPG

ถูกต้อง
รองเลือกลำดับสุดท้าย
ไม่แสดงผลครับ

[yodpao.b]

เจอปัญหาแล้วครับในเชล A1,A2 ว่างครับ
เมื่อเติม ข้อความ (s)
แล้วลอง run ทำงานได้เป็นปกติครับ

แต่ปัญหาอยู่ที่ A1:A2 มันต้องว่างครับ เพราะอาจจะกระทบส่วนอื่นที่แน่คือ Filter
พอจะแก้ code ได้ไหมครับ

For I = 6 To Application.WorksheetFunction.CountA(Sheets("DatabaseREQSIT").Range("A:A"))

ผมว่าเป็นที " Range("A:A") " แน่นอน

0.JPG

[snasui]

กรุณาแนบไฟล์ Excel ที่เกิดปัญหานี้มาด้วยจะได้ช่วยทดสอบได้ครับ

[yodpao.b]

เริ่มต้นใหม่ครับ
เรียกข้อมูลในลำดับสุดท้ายไม่แสดงผลครับ

ขั้นตอนการทำงาน

0.JPG

คลิกปุ่ม

1.JPG

เลือกลำดับแรก
แสดงผลถูกต้อง มี 2 รายการ

2.JPG

เลือกลำดับสุดท้าย
ไม่แสดงผลตามรูป
ครับ

[yodpao.b]

ไฟล์แนบตรับ

Code: Select all

Private Sub ComboBox1_Change()

If ComboBox1 <> "" Then
    CommandButton1.Enabled = True
        Else
    CommandButton1.Enabled = False
End If

Sheets("DatabaseREQSIT").Select
Me.ListBox1.Clear
For i = 6 To Application.WorksheetFunction.CountA(Sheet8.Range("A:A"))
If Sheet8.Cells(i, 3).Value = Me.ComboBox1.Value Then
Me.ListBox1.AddItem Cells(i, 6).Value & " || รหัส : " & Cells(i, 5).Value
End If
Next i

End Sub

[yodpao.b]

เรียนอาจารย์ครับ
รบกวนช่วยตรวจสอบ code นี้หน่อยครับ
ลบไปลบมา เพิ่มไปเพิ่มมา ได้ผลตามต้องการ
ผมไม่แน่ใจครับ เพราะหาตัวอย่างจากที่ทำมาไม่ได้
code ดังนี้

Code: Select all

Private Sub ComboBox1_Change()

    If ComboBox1 <> "" Then
        CommandButton1.Enabled = True
            Else
        CommandButton1.Enabled = False
    End If

   irow = Worksheets("DatabaseREQSIT").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("DatabaseREQSIT").Select
    Me.ListBox1.Clear
        For i = 6 To (irow)
        If Sheet8.Cells(i, 3).Value = Me.ComboBox1.Value Then
            Me.ListBox1.AddItem Cells(i, 6).Value & " || ÃËÑÊ : " & Cells(i, 5).Value
        End If
        Next i

End Sub

For i = 6 To (irow) ถูกต้องไหมครับ เขียนแบบนี้

[snasui]

เมื่อ Code ทำงานได้ก็ไม่จำเป็นต้องตรวจสอบ และขออภัยที่จะแจ้งว่าผมไม่ตรวจสอบ Code ที่ไม่มีปัญหาครับ

(irow) เปลี่ยนเป็น irow ได้เลย ไม่ต้องครอบด้วบวงเล็บครับ

[yodpao.b]

ครับผม