Excel VBA：從另一個用戶窗體循環顯示組合框的項目

Question

我想遍歷組合框的項目，但沒有獲取它們的值。我只想循環看看有多少物品。以下是我如何向它添加項目。

Private Sub UserForm_Initialize() 

    Chapter.AddItem "Chapter 1" 
    Chapter.AddItem "Chapter 2" 
    Chapter.AddItem "Chapter 3" 
    Chapter.AddItem "No　Chapter" 

End Sub 

這就是我試圖通過它循環。

 Dim itm As Object 

     For Each itm In UserForm.ComboBox1.Items.Count 

     Next 

但錯誤提示;編譯錯誤：未找到方法或數據成員

這些代碼不在一個用戶表單上嗎？我有兩個用戶窗體，添加項目到組合框是在第二個，並通過組合框循環是第一個。這很重要嗎？

Answer 1

如果你只想循環的項目數，你可以嘗試

Dim itm As Object 

    For i = 1 to UserForm1.Chapter.ListCount 

    Next 

哪裏Userform1是包含表單的名稱Combobox和 Chapter是組合框的名稱

Answer 2

試試這個（不聲明爲對象）：

For Each itm In ComboBox1.List 
'for example display in messagebox 
MsgBox itm 

Next