無法將值添加到VBA中的組合框

Question

我試圖將值添加到由工作表上的宏創建的組合框。 組合框已創建，但是我無法在其中填充數據。

我懂了

運行時錯誤438：對象不支持此屬性...

我試圖將sComboBox聲明為Shape / Object /也將其留空，但無濟於事。 .list屬性上的代碼錯誤。 VBA intellisense也不選擇.list屬性。 我也嘗試使用OLEObjects，但是遇到了不同的編譯器錯誤。

另一個問題是：如何在特定的單元格中創建組合框，以使它們不會在周圍浮動或彼此重疊？

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