使用 Excel VBA 从 ListBox 存储多个用户输入答案

【问题标题】：Storing Multiple User Inputs from a ListBox using Excel VBA使用 Excel VBA 从 ListBox 存储多个用户输入
【发布时间】：2017-03-11 20:51:32
【问题描述】：

我试图让用户从 ActiveX 列表框 (ListBoxTest1) 中选择多个选项，然后将他们的选择存储在另一张工作表上的单独行中。当此处显示的第一行即将执行时，我不断收到错误“无法获取 Worksheet 类的 ListBoxes 属性”。

Set listX = Sheets("Availability Criteria").ListBoxes("ListBoxTest1")

With listX
    For i = 1 To .ListCount
        If .Selected(i) Then
            Sheets("WorkingSheet").Cells(i + 4, "F").Value = .Items(i)
        End If
    Next i
End With

我认为 .Items 属性是我从 ListBox 获取输入所需的，但也许这是有问题的非法属性。我所有的代码都在模块部分，而不是私有子。

我对 Excel 的 VBA 还是很陌生....请帮忙。

【问题讨论】：

标签： vba excel listbox multipleselection

【解决方案1】：

Worksheet 实际上本身没有ListBoxes 属性，而Sheets("Availability Criteria") 返回一个强类型Worksheet。访问集合的最简单方法可能是后期绑定Worksheet：

Dim sh As Object
Set sh = Sheets("Availability Criteria")
Set listX = sh.ListBoxes("ListBoxTest1")

编辑

以上代码仅适用于表单控件。对于 ActiveX 控件，您需要通过 OLEObjects 集合访问它们：

Dim listX As MSForms.ListBox
Set listX = Sheets("Availability Criteria").OLEObjects("ListBoxTest1").Object

With listX
    For i = 1 To .ListCount
        If .Selected(i) Then
            Sheets("WorkingSheet").Cells(i + 4, "F").Value = .List(i)
        End If
    Next i
End With

【讨论】：

嗯。我把它放在我在我的问题中粘贴的代码之上，我仍然得到与之前相同的运行时错误“无法获取工作表类的 ListBoxes 属性”。这段代码是否打算放在工作表的私有子中？
我的 ListBox 名称错误（使用的是我的测试代码中的名称）。我是从工作表的模块中运行的。
我在最初测试时注意到并修复了它
这是我现在的代码： Dim lstX As ListBox Dim sh As Object Set sh = Sheets("Availability Criteria") Set listX = sh.ListBoxes("ListBoxTest1") 'Set listX = Sheets("可用性标准").ListBoxes("ListBoxTest1") With listX For i = 1 To .ListCount If .Selected(i) Then Sheets("WorkingSheet").Cells(i + 4, "F").Value = .AddItem( i)
End If Next i End With
@Fahvs - 只要所有内容都正确声明，我就无法复制错误。注意你有Dim lstX As ListBox，但是Set listX = ...。