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

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

ミッションの概要

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Private Sub データを取得_Click()

End Sub

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

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

  • 「ListBox1」でデータが選択されていない時のダイアログ表示
  • 「ListBox1」で選択しているデータをダイアログ表示

また、Textプロパティで取得する列を2列目にするため「ListBox1.TextColumn = 2」を指定します。

Private Sub UserForm_Initialize() 
    Dim ary_d                  'リストに設定するデータ用配列 
    ary_d = Worksheets("サザエさん").Range("A2:D9")
    With ListBox1
        .ColumnCount = 4                '表示列数
        .TextColumn = 2                 'Textプロパティで取得する列
        .ColumnWidths = "40;45;40;40"   '列幅
        .List = ary_d                   '参照範囲
    End With
End Sub

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

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

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

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

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

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

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

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

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

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

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

TextColumnプロパティ

TextColumnプロパティは「Textプロパティでデータを取得する列」を指定することができます。規定値は1列目です。

今回はTextプロパティで、2列目のデータが取得されるように設定しています。

ListBox1.TextColumn = 2

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

Textプロパティ

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

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

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

今回はTextColumnプロパティに「2」を指定しているため、Textプロパティでデータを取得すると2列目の「名前」を取得します。

ListBox1.Text

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

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

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

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

リストボックス 複数列の値リストで選択しているデータを、列指定して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)

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