Collection to combobox

我在宏中創建了一個集合（CollWk）。該集合包含特定工作表中存在的周編號。我想把這個集合放在組合框（或下拉列表）中，以便用戶可以選擇一個星期編號。Collection to combobox

這是我迄今爲止

Dim CollWk As New Collection 

For i = wkLow To wkHigh 
    CollWk.Add i 
Next

這是我創建集合。 Currnetly頁「而額外」有效組合框是在紙張上「StartSheet」

我試圖做combobox1.additem我在for循環只需添加項目，但它好好嘗試工作

當我嘗試添加一些組合框的

Startsheet.ComboBox1.Additem「你好」

它不會運行

來源

2015-11-23 Henk Schins

你可以簡單地通過收集循環，在ComboBox像添加的每個項目這個：

Sub Test_Henk_Schins() 

Dim CollWk As Collection 
Dim aWeek 

'With UserForm1.ComboBox1 
With Sheets("SheetName").ComboBox1 
    .Clear 
    For Each aWeek In CollWk 
     .AddItem aWeek 
    Next aWeek 
End With 

End Sub

來源

2015-11-23 12:27:10 R3uK

我得到錯誤424，Object requierd。我是否已將某周分配爲某種東西？ –

在哪一行？你可以聲明與你的集合中的對象類型相同的'aWeek'（我不知道這就是我沒有精確的原因）。你是否改變了'UserForm1'和'ComboBox1'來適應你的UserForm和ComboBox的名字？ – R3uK

更重要的是，用戶窗體中還是excel中的組合框？如果在Excel中，你用什麼來創建它（哪個菜單，以便我們可以知道它是否是一個ActiveX，一個控件，...） – R3uK

Collection to combobox

回答

相關問題