填充组合框

Question

填充组合框时，我收到错误

  

“运行时错误424需要对象”。

以下是我的代码，我正在尝试在组合框中填充国家/地区列表（范围名称为国家/地区）。

Sub Country()
    Dim Count As Range
    Dim ws As Worksheet

    Set ws = Worksheets("sheet2")

    For Each Count In ws.Range("countries")
        With ComboBox1
            .AddItem Count.Value
        End With
    Next Count
End Sub

请帮我解决我的错误。 提前致谢

Answer 1

此外，根据您的代码所做的事情，为什么不使用.ListFillRange属性来执行此操作而不是循环。

Dynamically set ListFillRange in Excel ComboBox using VBA

代码在哪里？您只是引用ComboBox1，尝试在它所驻留的工作表上引用它。喜欢

With Sheets(1).OLEObjects("ComboBox1").Object.AddItem 

或

Sheets(1).ComboBox1.List = Sheets("countries").Range("A2:A10").Value

Answer 2

尝试将变量名称从Count更改为nCount