Excel プルダウンで複数選択する方法
入力規則のプルダウンメニューで複数選択をしたい場合がありますが
単一選択しかサポートされていません。しかし替わりとなる方法は存在します。
この記事では、その方法と特徴を紹介します。
二つの方法と特徴
実現方法は二つあります。
- チェックボックス
- 複数選択リストボックス
①チェックボックスの特徴
複数選択の代表例です。
簡単に実現できる利点がありますが、選択肢が増えると場所を使ってしまうのと
手間が大きくなってしまうのが欠点です。
②複数選択リストボックス
プルダウンメニューをそのまま複数選択にした感覚に近いです。
スクロールすることが出来るため選択肢が増えても場所を取らず
更に手間も大きくならない利点があります。
ただしリストボックスを複数選択にする場合、
マクロ・VBAを使用する必要があるためハードルが高いのが欠点です。
設定手順
共通・「開発」メニューを追加
どちらの方法を使うにしても「開発」を使用します。
もしメニューに「開発」がない場合は追加しておきましょう。
メニューの何もない場所を右クリックし、「リボンのユーザー設定」を選択します。
「開発」にチェックを入れます。すると「開発」がメニューに表示されます。
①チェックボックス
「開発」より「挿入」、「フォームコントロール」の「チェックボックス」を選択します。
次にチェックボックスを置きたい場所をクリックすると
チェックボックスが一つ追加されます。
チェックボックスを右クリックしその状態で
チェック1となっている表記を左クリックすると編集可能です。
次に右クリックしてメニューを開き「コントロールの書式設定」をクリックします。
次にリンクするセルを設定します。
この状態でチェックボックスを押すと
リンクしたセルに論理値が反映されます。
これを繰り返すことで複数選択が可能になります。
なおチェック状態を数式に組み込む必要がない場合は
リンクするセルは設定の必要がありません。
②複数選択リストボックス
サンプルファイルと利用方法
サンプルファイルで使用可能です。
「リストボックス」シートに複数選択リストボックスを置いてあります。
このサンプルを利用するだけならマクロの知識は不要です。
「Work」シートの内容です。
A2セルから下に選択肢を記述します。
B2セルには選択した一覧がカンマ区切りで表示されます。
C2セルから右にはセル別に選択した一覧が表示されます。
この複数選択リストボックスは、そのままでは大きさの変更などが不可能です。
変更するには「開発」より「デザインモード」を選択します。
この状態でリストボックスを選択すると大きさの変更が可能です。
このデザインモードはオンのままだと項目選択が出来なくなるため
編集が終わったら再度、クリックして解除しましょう。
なお初期状態では選択肢は4個までです。
これを増やすためにはデザインモードにして
リストボックスを右クリックし、メニューの中から「プロパティ」を選択します。
「プロパティ」ウインドウが表示され、「ListFillRange」が選択肢のセル範囲です。
ここの範囲を大きくすると4つ以上の選択肢に対応可能です。
作り方とソースコード(コメントによる解説)
自力で1から作成したり、リストボックスを増やしたい方向けに
手順とソースコードを紹介します。
まず「開発」「挿入」「ActiveXコントール」より
「リストボックス」を選択し配置する場所をクリックします。
（フォームコントロールの方は設定がうまく出来ませんでした）
リストボックスが配置されます。
次に任意の位置に選択肢と選択状態をリンクするセルを用意します。
そして「デザインモード」の状態で右クリックし「プロパティ」を選択します。
プロパティの内容を変更します。
セルを指定する箇所はマウスで設定出来ません。
アドレスをキー入力する必要がある点に注意が必要です。
| プロパティ | 設定値と説明 |
|---|---|
| オブジェクト名 | マクロ・VBAからアクセスする変数名です。 必要であれば変更します。 |
| LinkedCell | 選択肢の状態をリンクするセルです。 Workシートではリンクセル（結合）の位置を設定します。 リストボックスを増やす場合は それぞれ異なるセルを設定。 |
| ListFillRange | 選択肢の一覧を設定します。 Workシートに用意した選択肢セルを範囲で記述します。 |
| MultiSelect | 「1 - fmMultiSelectMulti」に 変更すると複数選択になります。 |
プロパティ設定完了後、デザインモードのまま右クリックし「コードの表示」を選択します。
Visual Basicエディターが立ち上がり、List1_Click()が自動生成されますが、
それは無視してChangeを作成します。
ListBox1_Changeが追加されるので、ここにコードを入力していきます。
下記がChangeのコードです。
ListBox1はオブジェクト名によって変わる箇所です。
リストボックスを増やす場合は、ここを適宜変えていく必要があります。
Private Sub ListBox1_Change()
Dim i As Integer ' リストボックスカウンター
Dim j As Integer ' リンクセル(分割)カウンター
Dim 結果 As String ' リストボックスの選択値をカンマ区切りで保存
結果 = ""
j = 1
' リストボックスの全要素をループ。ListCountは要素数
For i = 0 To ListBox1.ListCount - 1
' リンクセル(分割)を一つづつ空白に戻す
'Evaluate…アドレスから範囲を取得。シート名指定(!)がある場合はRangeでなくEvaluate
Evaluate(ListBox1.LinkedCell).Offset(0, i + 1).Value = ""
' リストボックスの要素が選択されているかの判定
If ListBox1.Selected(i) = True Then
' カンマ区切りで選択値を保存
結果 = 結果 & ListBox1.List(i) & ","
' リンクセル(分割)に書き込み
Evaluate(ListBox1.LinkedCell).Offset(0, j).Value = ListBox1.List(i)
j = j + 1
End If
Next i
'リンクセル(結合)に書き込み
Evaluate(ListBox1.LinkedCell).Value = 結果
End SubExcelを効率的に習得したい方へ
当サイトの情報を電子書籍用に読み易く整理したコンテンツを
買い切り950円またはKindle Unlimited (読み放題) で提供中です。
Word-A4サイズ：1,400ページの情報量で
（実際のページ数はデバイスで変わります）
基本的な使い方、関数の解説(140種類)、
頻出テクニックと実用例(109種類)、
XLOOKUP関数、LET関数、シートビュー、LAMBDA関数、スピルなど便利な新機能を紹介。
体系的に学びたい方は是非ご検討ください。
アップデートなどの更新事項があれば随時反映しています。
なお購入後に最新版をダウンロードするには
Amazonへの問い合わせが必要です。