1

如何在 Excel VBA 中创建（而不是修改/填充）ListBox？我需要为列中的每个单元格生成各种列表框，没有 VBA 这样做是不切实际的。我正在寻找类似的东西：

Dim lb as ListBox
' Populate ListBox Here '

worksheet.Cells(1,1) = lb ' Apply ListBox to cell '

我已经彻底搜索了这个（也许我的术语是错误的），但我找不到一个关于创建列表框并将其应用于各种单元格的引用。

谢谢！

编辑：应该注意Dim lb As MSForms.ListBox抛出错误

“未定义用户定义类型”

. 也许这就是创建 ListBoxes 的方法……但我需要包含这个库？？？？？？虽然我不知道该怎么做...

4

1 回答 1

1

如果您知道如何从 Excel 创建列表框，而不是使用 VBA，只需录制一个宏，然后检查生成的代码。

LE：这是我可以记录的。源值与目标列表在同一张纸上，但我认为您可以从这里接管并根据需要进行扩展。

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=$A$1:$A$6"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
于 2013-01-23T14:48:24.750 回答