トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 4-16　リストの項目数を取得する

Private Sub UserForm_Initialize()
    With ComboBox1
        .RowSource = "Sheet1!A2:B8"
        .ColumnCount = 2    '表示列範囲
        .ColumnHeads = True '見出しあり
    End With
End Sub

Private Sub CommandButton1_Click()
    MsgBox ComboBox1.ListCount '項目数表示
End Sub