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 

エラープロンプト。コンパイルエラー：メソッドまたはデータメンバーが見つかりません

これらのコードが1つのユーザーフォームにないことは重要ですか？私は2つのユーザーフォームがあり、コンボボックスへの項目の追加は2番目にあり、コンボボックスのループは最初のものです。それは重要ですか？

Answer 1

あなただけのアイテムのためにループにしたい場合は数える、あなたはUserform1が含まれているフォームの名前である

Dim itm As Object 

    For i = 1 to UserForm1.Chapter.ListCount 

    Next 

を試すことができますコンボボックスと Chapterはコンボボックスの名前です

Answer 2

（オブジェクトとして宣言せずに）、これを試してみてください：

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

Next