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

概要

本文書は、 Microsoft(R) Visual Basic(R) Programming System Applications Edition (以下 VBA) でダイアログボックスおよびワークシート内のリストボックスまたはドロップダウンリストボックスで選択された項目の文字列を取得するための方法を、サンプルモジュールと共に解説しています。

使用例

ダイアログシート上の [書式] - [オブジェクト] コマンド - [コントロール]パネル - [リンクするセル] テキストボックスでの指定では、選択されているものの位置番号 (何番目が選択されているか) しか取得することができませんが、VBA の ListIndex プロパティと List メソッドを組み合わせて使用することで、選択されている文字列の内容を取得することができます。

1.「単一選択」リストボックス

「単一選択」のリストボックスやドロップダウンリストボックスで選択された項目の文字列を取得するためには、List メソッドを使用します。この List メソッドを使用するときに必要となる引数は項目の位置番号です。現在選択されている項目の位置番号を取得するには、各オブジェクトの ListIndex プロパティで求めることが可能です。

サンプル 1-1

次のサンプルモジュールでは、ダイアログボックス "Dialog1" を表示し、ダイアログボックス内のリストボックスで選択された項目の文字列をワークシート "Sheet1" のセル "$D$1" に入力しています。

  Sub DlgSamp()
      DialogSheets("Dialog1").Show
      Worksheets("Sheet1").Range("$D$1").Value = _
          DialogSheets("Dialog1").ListBoxes("リスト 4").List( _
          DialogSheets("Dialog1").ListBoxes("リスト 4").ListIndex)
  End Sub

サンプル 1-2

次のサンプルモジュールでは、ワークシート "Sheet1" 上に存在するドロップダウンリストボックス "ドロップ 1" で選択された項目の文字列をワークシート"Sheet1" のセル "$D$1" に入力しています。
ドロップダウンリストボックス "ドロップ 1" に以下のマクロを登録することにより、リストから項目が選択されるたびに、セル "$D$1" に文字列が代入されます。

  Sub DropSamp()
      Worksheets("sheet1").Range("$D$1").Value = _
          Worksheets("sheet1").DropDowns("ドロップ 1").List( _
          Worksheets("sheet1").DropDowns("ドロップ 1").ListIndex)
  End Sub

2.「複数選択」、「拡張選択」リストボックス

「複数選択」および「拡張選択」のリストボックスやドロップダウンリストボックスで選択された項目の文字列を取得するためには、List メソッドを使用します。この List メソッドを使用するときに必要となる引数は項目の位置番号です。現在選択されている項目の位置番号を取得するには、各オブジェクトの Selected プロパティで求めることが可能です。

サンプル 2-1

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

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

サンプル 2-2

次のサンプルモジュールでは、ワークシート "Sheet1" 上に存在するドロップダウンリストボックス "ドロップ 1" で選択された項目すべての文字列を MsgBox 関数を使用して表示しています。
ドロップダウンリストボックス "ドロップ 1" に以下のマクロを登録することにより、リストから項目が選択されるたびに、MsgBox が表示されます。

  Sub MultiDropSamp()
      Dim selectitem As Variant
      selectitem = WorkSheets("Sheet1").DropDowns("ドロップ 1").Selected
      For i = 1 To WorkSheets("Sheet1"). _
          DropDowns("ドロップ 1").ListCount
          If selectitem(i) = True Then
            MsgBox WorkSheets("Sheet1"). _
                DropDowns("ドロップ 1").List(i)
          End If
      Next I
  End Sub