【本日のミッション】
リストボックスの値リストで、データを複数選択できるようにせよ。
目次
ミッションの概要
リストボックスの値リストで、データを複数選択できるようにせよ、というのが今回のミッションです。
リストボックスにListプロパティを使って配列に格納した複数列のセルデータを値リストとして設定（Excel VBA)で作ったリストボックスを使用して、データを複数選択できるようにします。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
通常、一つのデータしか選択できませんが・・・・
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
値リストのデータを複数選択することができるようになります。
値リストのデータを複数選択できる設定
この設定は、プロパティウィンドウで行う方法と、コードに記述する方法の2つがあります。
リストボックスのプロパティに設定
プロパティウィンドウ（表示されていない場合は、［F4］キーで表示できます。）で MultiSelect で「fmMultiSelectExtended」を選択します。
ユーザーフォーム Initializeにコード記述
上記プロパティウィンドウに設定していなくても、画面表示される時に設定することができます。コードウィンドウを表示します。（フォームが表示されている場合は、［F7］キーで表示できます。）
リストボックスにListプロパティを使って配列に格納した複数列のセルデータを値リストとして設定（Excel VBA)で作成した「UserForm_Initialize」に赤字部分を追加します。
Private Sub UserForm_Initialize()
Dim ary_d 'リストに設定するデータ用配列
ary_d = Worksheets("サザエさん").Range("A2:D9")
With ListBox1
.MultiSelect = fmMultiSelectExtended '複数選択
.ColumnCount = 4 '表示列数
.ColumnWidths = "40;45;40;40" '列幅
.List = ary_d '参照範囲
End With
End Sub
「配列」参照：セル範囲を一気に変数（配列）に入れる ～バリアント型(Variant)変数を配列として使用する～（Excel VBA）
ユーザーフォームを表示して動作を確認
このコード内にカーソルを置いたまま、［F5］キー（ユーザーフォームの実行）をクリックするとユーザーフォームが表示されます。
[Ctrl]キーを押しながらクリックすると連続していない複数行を選択できます。
選択する範囲の初めのデータをクリックし、[Shift]キーを押しながら最後のデータをクリックすると、連続した行を選択することができます。また、クリック＆ドラッグでも同様の選択が可能です。
選択を解除するには、選択行を[Ctrl]キーを押しながらクリックします。
今回は、［閉じる］ボタンを付けていないため［×］ボタンでユーザーフォームを閉じます。
MultiSelectプロパティ
値リストのデータ選択方法を指定します。
| 定数 | 内容 | 値 |
|---|---|---|
| fmMultiSelectSingle | 1つのデータのみ選択できます。（既定値） | ０ |
| fmMultiSelectMulti | クリックで複数行選択できます。 選択を解除するには、選択行をクリックします。  | １ |
| fmMultiSelectExtended | [Ctrl]キーを押しながらクリックすると 連続していない複数行を選択できます。 選択する範囲の初めのデータをクリックし、[Shift]キーを押しながら最後のデータをクリックすると、連続した行を選択することができます。また、クリック＆ドラッグでも同様の選択が可能です。
選択を解除するには、選択行を[Ctrl]キーを押しながらクリックします。 | ２ |
【参考】
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)
指定した行（インデックス値）のデータをリストボックスの値リストから選択する（Excel VBA)
リストボックスの値リストに列見出しを表示する設定/ColumnHeadsで見出しが設定できない理由（Excel VBA)
リストボックス値リストAddItemメソッド・RowSourceプロパティ・Listプロパティ違い Excel VBA
リストボックス TextプロパティとValueプロパティの違い（Excel VBA）
リストボックスに重複しないユニークな値リスト（1列）を設定する（Excel VBA)
リストボックスに重複しないユニークな値リスト（複数2列）を設定する（Excel VBA)
リストボックスに重複しないユニークな値リスト（複数列 3列以上）を設定する（Excel VBA)
リストボックスの値リストで、データを複数選択できるようにする設定（Excel VBA)
