填充组合框

在填充组合框，我得到的错误填充组合框

“所需的运行时错误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

请帮我解决我的错误。在此先感谢

来源

2017-08-29 ankit

在这行是错误？这是一个用户表单吗？ –

不，它不是一个用法。错误是在行“与ComboBox1 .AddItem Count.Value” – ankit

代码在哪里？您只是引用ComboBox1，请尝试在它所在的工作表上引用它。类似'With Sheets（1）.OLEObjects（“ComboBox1”）。Object' or'Sheets（1）.ComboBox1.List = Sheets（“countries”）。Range（“A2：A10”）。Value' –

尝试从Count改变你的变量名类似nCount

来源

2017-08-29 12:42:39 braX

没有错使用count作为变量名称（除了样式）。它不是保留关键字，只是许多对象的属性。 – CallumDA

此外，从你的代码是什么样子它是干什么的，为什么不使用.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

来源

2017-08-29 13:02:36

我试过但又一次得到相同的错误 – ankit

回答

相关问题