【本日のミッション】
RowSourceプロパティを使って、複数列のセル範囲とリストボックスの値リストをリンク設定させよ。
目次
ミッションの概要
RowSourceプロパティを使って、複数列のセル範囲とリストボックスの値リストをリンク設定させよ、というのが今回のミッションです。
RowSourceプロパティを使ってセル範囲とリストボックスの値リストをリンク設定させる（Excel VBA)では一列だけのデータを値リストにしていましたが、今回は複数列を値リストにしてみます。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
ユーザーフォームに リストボックスを作る
ユーザーフォームを開く
画面左のプロジェクトエクスプローラーから、ユーザーフォームをダブルクリックして開きます。
リストボックスを作るためのツールボックスを、下記方法で表示させます。
ツールボックスを表示する方法1
[表示]－[ツールボックス]
ツールボックスを表示する方法2
標準ツールバーの［ツールボックス］ボタンをクリックします。
標準ツールバーが表示されていない場合は、［表示］－[ツールバー］－[標準］で表示されます。
リストボックスの作成
ツールボックスから「リストボックス」ボタンをクリックします。
ユーザーフォームのリストボックスを配置したい位置に、左上から左クリックのまま右下までドラッグします。
ユーザーフォームにリストボックスが作成されます。
左のプロパティウインドウを確認すると、このリストボックスのオブジェクト名が「ListBox1」ということが確認できます。
ユーザーフォームの Initialize 処理で、リストボックスの値リストを設定する
UserForm_Initialize に記述した処理は、ユーザーフォームが画面表示される時に行われます。ユーザーフォームに設置したオブジェクト（リストボックス・コンボボックス・テキストボックス等）で、
- プルダウンを開いた時に出てきて欲しい値リスト
- 初めから表示されていて欲しい選択リスト
- テキストの初期値
- 値リストの列幅・列数
等は、ユーザーフォームが開くと同時に設定されるようにしておきます。
今回は、ユーザーフォーム「frmMain」が画面表示される時に、リストボックス「ListBox1」に値リストが表示されるようにします。
ユーザーフォームのコードウィンドウを表示
プロジェクトエクスプローラーから、リストボックスを設置しているユーザーフォームを右クリックします。
［コードの表示］をクリックし、コードウィンドウを表示させます。（［F7］キーでもコード表示できます。）
UserFormの選択
コードウィンドウ上部の「(General)」と表示されているプルダウンを開き、「UserForm」を選択します。
自動的に下記コードが挿入されますが、削除するとUserFormの選択が解除されるため、そのままにしておきます。
Initializeの選択
右側のプルダウン（「Click」と表示されています。）を開き、「Initialize」を選択します。
下記コードが表示されます。
ここで先ほどの「Private Sub UserForm_Click() ～ End Sub」は不要になりますので、削除しておきましょう。
UserForm_Initialize にコードの追加
Private Sub UserForm_Initialize ～ End Sub 内に下記の通り、コードを追加します。
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 4 '表示列数
.ColumnHeads = True '見出し有
.ColumnWidths = "40;45;40;40" '列幅
.RowSource = "サザエさん!A2:D9" '参照範囲
End With
End Sub
ユーザーフォームの実行
このコード内にカーソルを置いたまま、［F5］キーをクリックする（ユーザーフォームの実行）とユーザーフォームが表示されます。
リストボックスの値を選択すると、青色に反転します。
今回は、［閉じる］ボタンを付けていないため［×］ボタンでユーザーフォームを閉じます。
RowSourceプロパティ
RowSourceプロパティを使用すると、指定したセル範囲のデータを値リストにリンク設定させることができます。
ユーザーフォーム Initializeにコード記述
今回は、「frmMain」が画面表示された時に「ListBox1」の値リストが設定されるように「UserForm_Initialize」にコードを設定しました。
リストボックス.RowSource = "シート名!セル範囲アドレス"
セル範囲アドレスはテキストで指定してもOKですし、
ListBox1.RowSource = "サザエさん!A2:D9"
Address関数で指定することも可能です。
「External:=True」を指定しておかないと、その時アクティブなっているシートのセル範囲が値リストに設定されます。ご注意ください。
ListBox1.RowSource = Worksheets("サザエさん").Range("A2:D9").Address(External:=True)リストボックスのプロパティに設定する
リストボックスのプロパティにあらかじめ値リストを指定しておくこともできます。
プロパティウィンドウの「RowSource」にセル範囲アドレスを入力しておくと、ユーザーフォームのInitializeで指定しなくても、値リストが設定されます。
シート名!セル範囲アドレス
RowSource以外に、ColumnCount、ColumnHeads、ColumnWidths もリストボックスのプロパティにあらかじめ設定しておくことができます。
実行時エラー ’70’: 書き込みできません。
RowSourceプロパティには弱点があります。
RowSourceプロパティで設定した値リストに、AddItemメソッドで値を追加することはできません。AddItemメソッドを使おうとすると下記エラーが表示されます。
実行時エラー ’70’: 書き込みできません。
実行時エラー ‘-2147467259(80004005)’:予期せぬエラーが発生しました。
RowSourceプロパティにはまだ弱点があります。
RowSourceプロパティで設定した値リストから、Clear、RemoveItem メソッドで値を削除をすることはできません。
Clear、RemoveItem メソッドを使おうとすると下記エラーが表示されます。
実行時エラー ‘-2147467259(80004005)’:予期せぬエラーが発生しました。
ColumnCountプロパティ
リストボックスに表示する列数を設定します。既定値は1です。
今回は「ID」「名前」「性別」「年齢」の4列にしています。
ListBox1.ColumnCount = 4
ColumnHeadsプロパティ
リストボックスに列見出しを表示する・表示しないを設定します。
| 値 | 内容 |
|---|---|
| True | 列見出しを表示します。 |
| False | 列見出しを表示しません。（既定値） |
今回は「True」としているので、列見出しは表示されます。
ListBox1.ColumnHeads = True
ColumnWidthsプロパティ
リストボックスの値リストの各列の幅を設定します。列幅と列幅の間に「；」セミコロンを入れて区切ります。
「0」を指定すると、その列は非表示になります。
空白を指定すると、既定の列幅での表示になります。
単位の規定値は「ポイント」ですが、ほかの単位を指定することもできます。
今回は全ての列を表示させています。
ListBox1.ColumnWidths = "40;45;40;40"
「0」に指定した列は非表示に、空白を指定した列は規定幅に設定されます。
ListBox1.ColumnWidths = "0;45;;40"
数値の後ろに単位を入れれば、ポイント以外の単位を使うことも可能です。
ListBox1.ColumnWidths = "1cm;2cm;40;40"
Withステートメント
1つのオブジェクトに対して、複数のプロパティやメソッドを記述する際、Withステートメントを使用して、コードを簡略化することができます。
今回は ListBox1 に対して、下記のような処理を指定するのですが「ListBox1.」が何度も出てきて、画面がゴチャゴチャしていますよね。
ListBox1.ColumnCount = 4 '表示列数 ListBox1.ColumnHeads = True '見出し有 ListBox1.ColumnWidths = "40;45;40;40" '列幅 ListBox1.RowSource = "サザエさん!A2:D9" '参照範囲
Withステートメントを使うと、このように簡略化できます。
With ListBox1
.ColumnCount = 4 '表示列数
.ColumnHeads = True '見出し有
.ColumnWidths = "40;45;40;40" '列幅
.RowSource = "サザエさん!A2:D9" '参照範囲
End with【参考】
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)
