[VBA] ดึงข้อมูลจาก Sheet มาแสดงบน ListBox

[kannaree]

สวัสดีค่ะ ดิฉันต้องการให้ข้อมูลใน Sheet2 แสดงบน ListBox เป็น Column ซึ่งตอนนี้สามารถแสดงได้เพียงคอลัมเดียวคือ B

อยากให้แสดง ตั้งแต่ B-G ค่ะ ต้องเพิ่ม Code อย่างไรค่ะ
ขอบคุณค่ะ

xxxx.png (89.79 KiB) Viewed 238 times

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
     
     'Load the combobox with a variety of household pets
    With Me.ListBox1
         'Clear the rowsource in case it has been set
        .RowSource = ""
         
         'Add the items from Cell A10 to the last used row in column A
    [b]    For Each cl In Worksheets("Sheet2").Range("B2:B" & _
            Worksheets("sheet2").Range("B65536").End(xlUp).Row)
[/b]            .AddItem cl.Value
        Next cl
    End With
End Sub

ขอบคุณค่ะ

[snasui]

Code แทนที่จะ Loop แต่ค่าเข้าไปวางให้ Set RowSource ให้กับ ListBox จะง่ายกว่า Loop ค่าเข้าไปวางครับ ตัวอย่างการกำหนด RowSource ครับ https://msdn.microsoft.com/VBA/Language ... es-example

นอกจากนี้ต้องกำหนดคอลัมน์ของ ListBox เพื่อรองรับหลายคอลัมน์ด้วย สามารถกำหนดตามภาพหรือด้วย Code ครับ

[kannaree]

ทำได้แล้วค่ะ ขอบคุณอาจารย์ค่ะ

[kannaree]

ขอโทษนะคะอาจารย์มีติดปัญหานิดหน่อยตรง ปุ่ม Move
จะต้องแก้ไขโค้ดอย่างไรค่ะ

222.png (147.46 KiB) Viewed 217 times

1111.png (103.3 KiB) Viewed 217 times

Code: Select all

Private Sub BTN_moveAllRight_Click_Click()
Dim iCtr As Long

    For iCtr = 0 To Me.ListBox1.ListCount - 1
        Me.ListBox2.AddItem Me.ListBox1.list(iCtr)
    Next iCtr

    Me.ListBox1.Clear

End Sub

Code: Select all

Private Sub BTN_MoveSelectedRight_Click()
 Dim iCtr As Long

    For iCtr = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(iCtr) = True Then
            Me.ListBox2.AddItem Me.ListBox1.list(iCtr)
        End If
    Next iCtr

    For iCtr = Me.ListBox1.ListCount - 1 To 0 Step -1
        If Me.ListBox1.Selected(iCtr) = True Then
            Me.ListBox1.RemoveItem iCtr
        End If
    Next iCtr

End Sub

[snasui]

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

[kannaree]

เมื่อคลิก Select Material Button
ไฟล์เทส

CreateFileCopy - 1Copy.xlsm

(48 KiB) Downloaded 44 times

[snasui]

เนื่องจากต้อง Remove Item ออกไปเมื่อคลิกย้าย จะไม่สามารถใช้ RowSource ได้ครับ

เราจะใช้การ Loop รายการดัง Code ตัวอย่างด้านล่างแทนการใข้ RowSource ลองปรับใช้ดูครับ

Code: Select all

Private Sub UserForm_Initialize()
    Dim r As Range, i As Byte
    With Sheets("Sheet2")
        For Each r In .Range("b3", .Range("b" & .Rows.count).End(xlUp))
            Me.ListBox1.AddItem
            Me.ListBox1.List(i, 0) = r.Value
            Me.ListBox1.List(i, 1) = r.Offset(0, 1).Value
            Me.ListBox1.List(i, 2) = r.Offset(0, 2).Value
            i = i + 1
        Next r
    End With
    ListBox1.ColumnCount = 3
    ListBox1.BoundColumn = 0
End Sub