[XL]リスト ボックスで選択された項目を取得する方法

詳細

ListBox オブジェクトには「単一選択」、「複数選択」、「拡張選択」の三つの選択方法が提供されています。
「単一選択」に設定しているリスト ボックスの場合は、Value や ListIndex などのプロパティを使用して選択されている項目を調べることができます (「サンプル1 」参照)。「複数選択」あるいは「拡張選択」に設定しているリスト ボックスの場合は、Selected プロパティを使用して選択されている項目を調べることができます。Selected プロパティは、リスト ボックスの各項目の選択状態を示す値をブール値 (True、False) の配列で返します。この配列の中で、値が True のものが「現在選択されている項目」と認識することができます。この配列を使用してループ処理を行うことにより、簡単に利用することができます (「サンプル 2 」参照)。

サンプル 1

「単一選択」リスト ボックスで選択された項目の表示

次のサンプル モジュールでは、ダイアログ ボックスを表示し、リスト ボックスで選択された項目を MsgBox 関数を使用して表示しています。

  Sub MyDia1()
      DialogSheets("Dialog1").Show
      itemNo = DialogSheets("Dialog1").ListBoxes("リスト 4").Value
      MsgBox DialogSheets("Dialog1").ListBoxes("リスト 4").List(itemNo)
  End Sub

サンプル 2

「複数選択」あるいは「拡張選択」リスト ボックスで選択された項目の表示

次のサンプル モジュールでは、ダイアログ ボックスを表示し、リスト ボックスで選択された項目を MsgBox 関数を使用して表示しています。

  Sub MyDia2()
      Dim selectitem As Variant
      DialogSheets("Dialog2").Show
      selectitem = DialogSheets("Dialog2").ListBoxes("リスト 4") _
      .Selected
      For i = 1 To DialogSheets("Dialog2").ListBoxes("リスト 4") _
      .ListCount
          If selectitem(i) = True Then
              MsgBox DialogSheets("Dialog2").ListBoxes("リスト 4") _
              .List(i)
          End If
      Next i
  End Sub