列表框:添加组合框作为项目?

时间:2012-07-01 08:24:34

标签: excel vba excel-vba

是否可以将列表框中的每个项目都作为组合框? 我需要这个,因为我使列表框可以检查,然后我需要让用户为列表的每个元素选择不同的选项。

谢谢!

2 个答案:

答案 0 :(得分:5)

如果您不打算分发应用程序,那么您还可以查看TreeView控件。见这个例子。

<强> CODE

Private Sub CommandButton1_Click()
    With TreeView1.Nodes
        .Add , , "R1", "Root 1"
        .Add "R1", tvwChild, , "Test 1"
        .Add "R1", tvwChild, , "Test 2"
        .Add "R1", tvwChild, , "Test 3"
        .Add "R1", tvwChild, , "Test 4"
        .Add "R1", tvwChild, , "Test 5"

        .Add , , "R2", "Root 2"
        .Add "R2", tvwChild, , "Test 11"
        .Add "R2", tvwChild, , "Test 22"
        .Add "R2", tvwChild, , "Test 33"
        .Add "R2", tvwChild, , "Test 44"
        .Add "R2", tvwChild, , "Test 55"
    End With
End Sub

<强>快照

enter image description here

使用控件

为了能够使用Treeview控件,您的系统必须已注册MSCOMCTL.OCX。然后,您可以通过右键单击

添加控件

<强>快照

enter image description here

设计时间快照

enter image description here

下载OCX

如果您没有OCX,则可以从here

下载

答案 1 :(得分:3)

您可以通过在数据表视图中将子列表替换为列表来实现此类效果 您可以通过提供一个复选框来模拟多选,并且您可以将第二列作为列表框。