Excel VBA リストボックスで選択されたリストの値を取得する

• オブジェクト（必須）
  対象となるListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトの「オブジェクト名」を指定します。
• 設定値（必須）
  リストボックスを表示したときに選択状態にしておきたい行番号をリストの先頭行を「0」として上から数えた数値で指定します。

• オブジェクト（必須）
  対象となるListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトの「オブジェクト名」を指定します。
• pvargIndex【ﾋﾟｲﾌﾞｲｱｰｸﾞｲﾝﾃﾞｯｸｽ】（省略可）
  値を取得または設定したい行位置を指定します。指定する値は先頭行を「0」として上から順番に数えた数値です。省略した場合は先頭行を表す「0」が設定されます。
• pvargColumn【ﾋﾟｲﾌﾞｲｱｰｸﾞｶﾗﾑ】（省略可）
  値を取得または設定したい列位置を指定します。指定する値はリストの左端列を「0」として左から順番に数えた数値です。省略した場合は先頭列を表す「0」が設定されます。
• 設定値（必須）
  リストボックスの項目に追加したい値を設定します。

Private Sub CommandButton1_Click()
With ListBox1
  If .ListIndex = -1 Then
      MsgBox "未選択です。"
  Else
      MsgBox .List(.ListIndex, 0)
  End If
End With
End Sub

2行目【With ListBox1】
ListBox【ﾘｽﾄﾎﾞｯｸｽ】コントロールオブジェクトを表すListBox1オブジェクトをWith【ｳｨｽﾞ】ステートメントで指定します。

3行目【If .ListIndex = -1 Then】
If【ｲﾌ】ステートメント（条件分岐）を使用して、ListIndex【ﾘｽﾄｲﾝﾃﾞｯｸｽ】の値が‐１のとき
すなわち、「リストが選択されていないとき」を定義します。

4行目【 MsgBox “未選択です。”】
3行目の条件分岐で条件が成立したとき（リストが選択されていないとき）
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してリストが選択されていないことをユーザーに伝えます。

5行目～6行目【Else
MsgBox .List(.ListIndex, 0)】
Else【ｴﾙｽﾞ】ステートメントを使用して3行目の条件分岐が成立しなかったとき（リストが選択されているとき）の処理をします。List【ﾘｽﾄ】プロパティを使用して、値を取得する行位置を設定する引数pvargIndexにLiseIndex【ﾘｽﾄｲﾝﾃﾞｯｸｽ】プロパティを使用して選択されている
行番号を設定し値を取得する列位置を設定する引数pvargcolumnにリストの1列目を表「0」を設定してMsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用して取得した値を表示します。

Private Sub CommandButton1_Click()
With ListBox1
  If .ListIndex = -1 Then
      MsgBox "未選択です。"
  Else
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = .List(.ListIndex, 0)
  End If
End With
End Sub