填充組合框

在填充組合框，我得到的錯誤填充組合框

「所需的運行時錯誤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

回答

相關問題