การใช้ ListBox

[yodpao.b]

การใช้ ListBox

Capture1.PNG

จากรูป เมื่อเปิดไฟล์มา วงกลมแถวหน้า จะขึ้นมาตามบรรทัดของข้อมูลครับ
แต่พอสั่งค้นหารายการใหม่ ให้ ListBox แสดงผลใหม่ วงกลมมีมากกว่าในเนื้อหาครับ
จะแก้ไขอย่างไรครับ

Code: Select all

Sheets("DATA0").Select
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 15
        .ColumnHeads = True
        .TextColumn = True
        If Range("AA3") = "" Then
            .RowSource = "DATA0!AA3:AN3"
        Else
            .RowSource = "DATA0!AA3:AN" & xlLastRow("DATA0")
        End If
        .ListStyle = fmListStyleOption
        .ListIndex = 0
    End With

[snasui]

แนบไฟล์ตัวอย่างมาด้วย จะได้สะดวกในการตรวจสอบครับ

[yodpao.b]

แนบไฟล์ครับ

Capture2.PNG

1. เปิดฟอร์มครับ
2. เลือกชนิด "CASSETTE"
จะเห็นวงกลม มากกว่าบรรทัดที่แสดง

[snasui]

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

Code: Select all

'Other code
Sheets("DATA0").Select
With ActiveSheet
    lastrow = .Range("aa" & .Rows.Count).End(xlUp).Row
End With
With Me.ListBox1
    .BoundColumn = 1
    .ColumnCount = 15
    .ColumnHeads = True
    .TextColumn = True
    If Range("AA3") = "" Then
        .RowSource = "DATA0!AA3:AN3"
    Else
        .RowSource = "DATA0!AA3:AN" & lastrow
    End If
    .ListStyle = fmListStyleOption
    .ListIndex = 0
End With
'Other code

[yodpao.b]

Capture3.PNG

วงกลมยังอยู่ครับ

[snasui]

ปรับ Code ตามที่ผมโพสต์ไปด้านบนทุกตำแหน่งที่มี Code นั้น หากยังติดปัญหาให้แนบไฟล์นั้นมาดูกันใหม่ครับ

[yodpao.b]

แนบไฟล์ครับ

[snasui]

ดูเหมือนก่อนหน้านี้จะมี Code สำหรับ Set RowSource ต่อท้ายอยู่ในทุก Procedure ที่เกียวกับ Combobox Change ก็ให้คงไว้เหมือนเดิมแต่เปลียนไปเป็น Code ที่ผมโพสต์ไป ตัวอย่างที่ ComboBox1_Change ตามภาพด้านล่างครับ

[yodpao.b]

ขอบคุณครับ