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