リストボックスの項目数を取得する方法

【目的】
VBAでリストボックスの項目数を取得します。



【手順１】
１．『標準モジュールの作成方法』の手順で、『MainModule』という標準モジュールを作成。
２．『フォーム(ウィンドウ)を追加する方法』の手順で、『MainForm』というフォームを作成。
３．『フォームにコントロールを配置する方法』の手順で、以下のようなフォームを作成。

【手順２】
１．『MainForm』を以下の様に入力。

Option Explicit

Private Sub CommandButton1_Click()
    ListBox1.AddItem ("項目")
End Sub

Private Sub CommandButton2_Click()
    Debug.Print ("項目数=" & ListBox1.ListCount)
End Sub

３．『MainModule』を以下の様に入力。

Option Explicit

Sub main()
    MainForm.Show
End Sub

【手順３】
１．『関数を実行する方法』の手順で、main関数を実行。
２．以下の様に、フォーム(ウィンドウ)が表示されるのでボタンをクリック。

【手順４】
１．イミディエイトウィンドウが表示されない場合は、『イミディエイトウィンドウの表示方法』でイミディエイトウィンドウを表示させます。
２．以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。

以上です。