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

试试这个（不声明为对象）：

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

Next

Answer 2

如果您只想循环计算项目数，则可以尝试

    Dim itm As Object

    For i = 1 to UserForm1.Chapter.ListCount

    Next

其中Userform1是包含组合框的窗体的名称，而Chapter是组合框的名称