これまで、私たちが見てきたのは ドロップダウンリストの作成方法 を紹介します。 Excel で複数選択可能なドロップダウンリストを作成する方法 .

練習用ワークブックをダウンロードする

練習用ワークブックは、こちらからダウンロードできます。

Excelで複数選択可能なドロップダウンリストを作成する手順

ここでは、データセットにカラム 書籍名 今日の目的は、このデータセットに基づいて、複数選択可能なドロップダウンリストを作成することです。 以下のセクションで、ステップバイステップで手順を説明します。

STEP1：データバリデーションでドロップダウンリストを作成する

複数選択可能なドロップダウンリストを作成するためには、まずドロップダウンリストを作成する必要があります。 その手順を説明します。

• まず、ドロップダウンリストを作成したいセルを選択します。 私は、選択した セルD5 .

• 次に データ タブを選択し データバリデーション をリボンから削除します。

• では、その中から データバリデーション を選択します。 リスト において 許可する セクションに、リストに追加したいデータの範囲セルを書き込んでください。 出典 のフィールドを使用します。
• または、↑の小さな矢印をクリックします。 出典 セクションを開き、ワークシートのデータ範囲を選択します。

• 最後に、作成されたドロップダウンリストを確認します。 セルD5 .

類似の読み物。

• Excelでドロップダウンリストを作る方法（独立型と従属型）
• Excelでドロップダウンリストを複数選択する（3つの方法）
• Excelで従属的なドロップダウンリストを作成する方法
• Excelで複数列のドロップダウンリストを作成する（3つの方法）

STEP2：VBAコードでドロップダウンリストを複数選択できるようにする

ドロップダウンリストの作成は完了しました。 次は、複数選択可能なドロップダウンリストを用意します。 ここでは 2 VBA のコードで、リストが複数選択を受け付けるようにします。 一つはデータの繰り返しを受け付け、もう一つはデータの繰り返しを受け付けません。

ケース1：繰り返しで複数選択するVBAコード

ここでは、データの繰り返しを取る複数選択可能なドロップダウンリストを作成する方法を紹介します。

では、その手順を説明しましょう。

• まず、以下を押します。 ALT + F11 を開いてください。 ブイビーエー ウィンドウに表示されます。
• 次に、以下を選択します。 プロジェクト・エクスプローラ . また 二重 - クリック を、タスクを実行させたいシートの上に置いてください。

• 同時に コード のウィンドウが表示されます。
• その後、そのウィンドウに以下のコードを記述してください。

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then...Target.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• 最後に、ワークシートに戻ってくれば、ドロップダウン・リストで同じ要素を繰り返しながら、複数の要素を選択することができるようになります。

ケース2：繰り返しのない複数選択を行うVBAコード

ここでは、データの繰り返しを取らない複数選択可能なドロップダウンリストを作成する方法を紹介します。

では、その手順を説明しましょう。

• まず、以下を押します。 ALT + F11 を開いてください。 ブイビーエー ウィンドウに表示されます。
• 次に、以下を選択します。 プロジェクト・エクスプローラ . また 二重 - クリック を、タスクを実行させたいシートの上に置いてください。

• 同時に コード のウィンドウが表示されます。
• その後、そのウィンドウに次のコードを入力してください。

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = false Application.EnableEvent = TrueTarget.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub. 

• 最後に、ワークシートに戻ってくれば、ドロップダウン・リストで同じ要素を繰り返すことなく、複数の要素を選択することができるようになります。

結論

この方法を使うと、Excelで複数選択可能なドロップダウンリストを作成することができます。 ご質問がありましたら、コメント欄でお知らせください。 私たちのウェブサイトをご覧ください。 ExcelWIKIウェブサイト に関する記事をもっと見る エクセル .