Excel VBA多列列表框添加非連續範圍

Question

我試圖找出如何將行中的非連續範圍的單元格添加到多列列表框但只有第二行波紋管工作。

lbxSelectable.List = Sheets("DB").Range("A1,B1,C1").Value 
lbxSelectable.List = Sheets("DB").Range("A1:C1").Value 

有沒有什麼有效的功能，可以讓我連續選擇某些collumns並堅持在multicollumn列表框中的條目？

非常感謝

Answer 1

要顯示在一行中的列表框multicollumn的非連續的單元格範圍，必須首先創建一個數組，然後將其分配給列表框的.list。這是一個例子。

Option Explicit 

Private Sub CommandButton1_Click() 
    Dim Ar() As String 
    Dim rng As Range, cl As Range 
    Dim i As Long 

    Set rng = Range("A1,C1,E1") 

    i = 1 

    For Each cl In rng 
     ReDim Preserve Ar(1, 1 To i) 
     Ar(1, i) = cl.Value 
     i = i + 1 
    Next 

    With ListBox1 
     .ColumnCount = i - 1 
     .ColumnWidths = "50;50;50" 
     .List = Ar 
    End With 
End Sub 

快照