如何解决生成的列表框并在VBA中动态添加项目?

时间:2019-07-03 13:31:28

标签: excel vba listbox

我成功地成功地动态生成了ListBox。但是我现在正在努力解决并填充那些生成的ListBox。此外,我不知道如何激活那些ListBoxes的MultiSelect属性。只能使用ActiveX吗?

我首先尝试了ActiveX-userForm上的ListBoxes。现在,我在WorkSheet上切换回“普通”列表框。 “ FS”是我正在处理的工作表的名称。为了理解:我遍历工作表FS上的列,并为每个列创建一个ListBox。在每个列表框中,将添加相应列的条目。

For i = 1 To 10
    LastRow = FS.Cells(Rows.Count, i).End(xlUp).Row
        With FS
            Set lb = FS.Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
            lb.ControlFormat.MultiSelect = 2
            For Each cell In FS.Range(Cells(1, i), Cells(LastRow,i)).Cells
                    lb.ControlFormat.AddItem cell.Value 'This is the problematic line
            Next cell
        End With
Next i

2 个答案:

答案 0 :(得分:0)

请改用.ControlFormat.ListFillRange,并将MultiSelect设置为3。类似这样的方法应该对您有用:

+----------+----------+------------------+----+ 
|antecedent|consequent|        confidence|lift| 
+----------+----------+------------------+----+ 
|         5|         1|               1.0| 1.0| 
|         5|         2|               1.0| 1.0| 
|       1-2|         5|0.6666666666666666| 1.0| 
|       5-2|         1|               1.0| 1.0| 
|       5-1|         2|               1.0| 1.0| 
|         2|         1|               1.0| 1.0| 
|         2|         5|0.6666666666666666| 1.0| 
|         1|         2|               1.0| 1.0| 
|         1|         5|0.6666666666666666| 1.0| 
+----------+----------+------------------+----+

答案 1 :(得分:0)

我建议您这样做:

Sub test()
''''Declarations'''''''''''''''''''''''''''
Dim lb As ListBox                           '
Dim sht As Worksheet                        '
Dim rng As Range                            '
Dim cell As Range                           '
Dim i As Long                               '
'''''''''''''''''''''''''''''''''''''''''''''
Set sht = ThisWorkbook.Worksheets("Name of your worksheet")
For i = 1 To 10
    With sht
        Set rng = .Range(.Cells(1, i), .Cells(.Rows.Count, i).End(xlUp))
        Set lb = sht.ListBoxes.Add(100 * i, 10, 100, 100) 'just an indicative way to create the List boxes without them overlapping
    End With
    lb.Name = "ListBox" & i
    lb.MultiSelect = 2
    For Each cell In rng
        lb.AddItem cell.Value
    Next cell
Next i
End Sub

更新(以覆盖所做的评论)

我更新了上面的代码,将列表框命名为“ ListBox1”,“ ListBox2”等,而不是“ List Box 1”等。

要引用列表框之一,您需要使用对ListBoxes集合的引用。该集合属于列表框所在的工作表。例如,要引用“ ListBoxi”,其中i = 1,2 ... n,您需要这样做:

sht.ListBoxes("ListBox" & i)

不幸的是,据我所知,尚无.SelectedItems.Count或类似方法可与表单控件列表框一起使用。

请记住,例如,您可以找到“ ListBox1”的选定项目数,如下所示:

Dim selectedItems As Long
selectedItems = 0
Set lb = sht.ListBoxes("ListBox" & 1)
For i = 1 To lb.ListCount Step 1
    If lb.Selected(i) Then
        selectedItems = selectedItems + 1
    End If
Next i
If selectedItems = 0 Then
    MsgBox "No user selected"
End If

请记住以下几点:

  1. 第一项的索引从01,这取决于列表框是否在用户窗体上
  2. 要使用名称类似于Listbox1.DoSomething的列表框,它必须是ActiveX控件而不是Form控件。