无法将值添加到VBA中的Combobox

我正在尝试将值添加到由工作表上的macros创build的combobox。 combobox被创build，但我无法填充它们中的数据。

我明白了

运行时错误438：对象不支持此属性…

我试图将sComboBox声明为Shape / Object /将其留空，但无济于事。 .list属性代码错误。 VBA智能感知也不拿起.list属性。 我也尝试使用OLEObjects，但我得到不同的编译器错误。

另一个问题是：如何在特定的单元格中创buildcombobox，以便它们不会彼此浮动或重叠？

 Dim sComboBox If (wsTO.Cells(intLoopCounter, 5).Value <> "") Then cBoxName = "cBox" & wsTO.Cells(intLoopCounter, 5).Value Set sComboBox = wsTO.Shapes.AddFormControl(xlDropDown, Left:=Cells(intLoopCounter, 12).Left, _ Top:=Cells(intLoopCounter + 1, 12).Top, Width:=250, Height:=25) With sComboBox .Name = cBoxName .List = Array("Apple", "Orange") End With End If 

Answer 1

代替 ：

 With sComboBox .Name = cBoxName .List = Array("Apple", "Orange") End With 

使用 ：

  With sComboBox .Name = cBoxName .ControlFormat.List = Array("Apple", "Orange") End With 

要么 ：

  With sComboBox .Name = cBoxName .ControlFormat.AddItem "Apple" .ControlFormat.AddItem "Orange" .ControlFormat.AddItem "Peach" End With