Excel VBA – 创build一个ListBox

如何在Excel VBA中创build(不修改/填充)ListBox? 我需要为列中的每个单元格生成各种列表框,而不使用VBA将是不切实际的。 我正在寻找像这样的东西:

Dim lb as ListBox ' Populate ListBox Here ' worksheet.Cells(1,1) = lb ' Apply ListBox to cell ' 

我已经彻底search了这个(也许我的术语是错误的),但我无法find创build一个列表框,并将其应用到各种单元格的单一参考。

谢谢!

编辑:应该指出的是Dim lb As MSForms.ListBox引发错误

“用户定义types未定义”

。 也许这是如何创build列表框…但我需要包括这个库????? 我不知道该怎么做,但…

如果您知道如何从Excel创build列表框,而不是使用VBA,只需要logging一个macros,然后检查结果代码。

LE:这是我能logging的。 源值与目标列表位于同一张表上,但我认为您可以从此处接pipe并根据需要展开。

 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