リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

【本日のミッション】

リストボックス 1列の値リストで選択しているデータを、Textプロパティで取得せよ。

ミッションの概要

リストボックス 1列の値リストで選択しているデータを、Textプロパティで取得せよ、というのが今回のミッションです。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

リストボックスにListプロパティを使って 配列に格納したセルデータを値リストとして設定する(Excel VBA)で作成したリストボックスの下に、

  • 値リストで選択しているデータを取得するコマンドボタン

を作り、選択しているデータをダイアログ表示します。

【その他 リストボックスからデータを取得する方法】
リストボックス 1列の値リストで選択しているデータをValueプロパティで取得(Excel VBA)
リストボックス 1列の値リストで選択しているデータをListプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してTextプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してValueプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してListプロパティで取得(Excel VBA)

ユーザーフォームにコマンドボタンを追加する

ユーザーフォームを表示させる

画面左のプロジェクトエクスプローラーから、ユーザーフォームをダブルクリックして表示させます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

ツールボックスを表示させる

ツールボックスを、下記方法で表示させます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

ツールボックスを表示する方法1

[表示]-[ツールボックス]

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

ツールボックスを表示する方法2

標準ツールバーの[ツールボックス]ボタンをクリックします。

標準ツールバーが表示されていない場合は、[表示]-[ツールバー]-[標準]で表示されます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

■■■スポンサーリンク■■■

ユーザーフォームにコマンドボタンを配置する

ツールボックスから「コマンドボタン」をクリックします。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

リストボックスの下にコマンドボタンを作成します。
リストボックス・コマンドボタンの位置は、程よく調整します。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

左のプロパティウインドウで確認すると、コマンドボタンのオブジェクト名が「CommandButton1」ということが確認できます。

この「CommandButton1」というオブジェクト名を「データを取得」、Captionも「データを取得」に変更します。Captionを変更することで、ボタンの表示名が「CommandButton1」から「データを取得」に変更されます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

値リストで選択しているデータを取得するコードを、コマンドボタンに設定

[データを取得]ボタンをダブルクリックすると、コードウィンドウが表示され、下記コードが追加されています。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

「Private Sub 〇〇〇_Click()」に書いた処理は、〇〇〇をクリックした時に行われます。

Private Sub データを取得_Click()

End Sub

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

ここに[データを取得]ボタンをクリックした時の動作を追加します。

  • 「ListBox1」でデータが選択されていない時のダイアログ表示
  • 「ListBox1」で選択しているデータをダイアログ表示
Private Sub UserForm_Initialize() 
    Dim ary_d                  'リストに設定するデータ用配列 
    ary_d = Worksheets("サザエさん").Range("A2:A9") 
    ListBox1.List = ary_d 
End Sub

Private Sub データを取得_Click()
    If ListBox1.Text = "" Then
        MsgBox "何も選択されていません。"
    Else
        MsgBox ListBox1.Text
    End If
End Sub
■■■スポンサーリンク■■■

ユーザーフォームを表示して動作を確認

このコード内にカーソルを置いたまま、[F5]キーをクリックすると(ユーザーフォームの実行)ユーザーフォームが表示されます。

配列に入れるデータの参照先にシート名が含まれていないと、アクティブになっているシートのセルデータが使用されるので注意が必要です。シート名を参照先に含めていない場合は、参照データのシートをアクティブにしてからマクロを実行してください。

ary_d = Worksheets("サザエさん").Range("A2:A9")

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

「配列」参照:セル範囲を一気に変数(配列)に入れる ~バリアント型(Variant)変数を配列として使用する~(Excel VBA)

メイン画面が表示されます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

値リストから「マスオ」さんを選択し、<データを取得>ボタンをクリックします。
選択している「マスオ」さんがダイアログ表示されます。

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

Textプロパティ

リストボックスの値リストで選択している行の値を取得します。

リストボックスオブジェクト.Text

TextColumnプロパティでデータ取得列を指定している場合は、その列のデータを取得します。指定していない場合は、規定値の1列目のデータを取得します。

今回は値リストが1列なので、TextColumnプロパティは指定していません。

ListBox1.Text

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

値リストでデータが選択されていない時は ””(空欄)を取得しますので、空欄表示を回避するコードも入れておきます。

If ListBox1.Text = "" Then
    MsgBox "何も選択されていません。"

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)

【参考】

VBA(マクロ)作成の前、リボンに開発タブを表示させる(Excel VBA)
ユーザーフォームの作成方法 準備(Excel VBA)
ユーザーフォームのオブジェクトの名前を「UserForm1」から変更する方法(Excel VBA)
ユーザーフォームの上のバー(タイトルバー)の名前を「UserForm1」から変更する(Excel VBA)
ユーザーフォームのオブジェクトウィンドウとコードウィンドウを表示切替させる方法(Excel VBA)
「オブジェクト名が不正です」を出さないようにユーザーフォームオブジェクト名を命名規則に従って変更(Excel VBA)
エクセルファイルが開いた時にユーザーフォームを表示させる方法(Excel VBA)
エクセル フォームのラベルのテキストを縦書きにする方法(Excel VBA)
AddItemメソッドを使ってリストボックスの値リストを設定する(Excel VBA)
RowSourceプロパティを使ってセル範囲とリストボックスの値リストをリンク設定させる(Excel VBA)
RowSourceプロパティでリンク設定したリストボックス値リストにデータを追加・削除する(Excel VBA)
リストボックスにListプロパティを使って 配列に格納したセルデータを値リストとして設定する(Excel VBA)
既存のリストボックスの値リストにAddItemメソッドでデータを追加する(Excel VBA)
既存のリストボックスの値リストのデータを、Clearメソッドで全て削除して初期化する(Excel VBA)
既存のリストボックスの値リストの項目を1件 RemoveItemメソッドで削除する(Excel VBA)
リストボックス リストから初期値としてはじめに選択しておく値を設定する(Excel VBA)
リストボックスの値リストに設定された項目の件数を取得する(Excel VBA)
RowSourceプロパティを使って 複数列のセル範囲とリストボックスの値リストをリンク設定(Excel VBA)
リストボックスにListプロパティを使って配列に格納した複数列のセルデータを値リストとして設定(Excel VBA)
リストボックス 複数列の値リストの列幅を変えたり非表示にしたりする設定(Excel VBA)
リストボックスで選択しているデータがリストの上から何番目(インデックス値)かを取得(Excel VBA)
リストボックス 1列の値リストで選択しているデータをTextプロパティで取得(Excel VBA)
リストボックス 1列の値リストで選択しているデータをValueプロパティで取得(Excel VBA)
リストボックス 1列の値リストで選択しているデータをListプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してTextプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してValueプロパティで取得(Excel VBA)
リストボックス 複数列の値リストで選択しているデータを、列指定してListプロパティで取得(Excel VBA)

■■■スポンサーリンク■■■