Excel で複数選択可能なデータ検証ドロップダウン リストを作成する

この記事では、複数選択の Excel データ検証ドロップダウン リストを作成する方法を学習します。データ検証を使用していますが、リストから 1 つの項目しか選択できません。しかし、データ検証リストのドロップダウン メニューから複数の項目を選択したい場合はどうでしょう。したがって、このチュートリアルでは、いくつかのマクロを使用して、データ検証ドロップダウン リストからの複数選択の制限を解決します。

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

Excel で複数選択可能なデータ検証ドロップダウン リストを作成する 3 つの例

VBA の適用プロセス マクロを使用して、複数の選択肢があるデータ検証ドロップダウン リストを作成するのは、少し複雑なプロセスです。したがって、理解を深めるために 3 をデモンストレーションします。 データ検証ドロップダウン リストからの複数選択のさまざまな例。

1.単一セルでの複数選択用の Excel データ検証ドロップダウン リストの作成

何よりもまず、 4 の名前で構成される次のデータセットがあります。 国。これらの名前から複数を選択できるデータ検証ドロップダウン リストを作成します。通常、データ検証では、1 つのセルで 1 つの国の名前しか選択できません。しかし、データ検証リストから複数の国名を 1 つのセルに入力したいと考えています。

それでは、このアクションを実行する手順を見てみましょう。

手順:

• まず、セル範囲 (D4:D8) を選択します ）。名前の範囲「dv_list_0」を設定します

• 次に、セル範囲を選択します (B5:B8 ）、名前範囲「Country_Range」を設定します

• 3 番目に データ に移動します> データ ツール > データ検証 > データ検証 .

• 上記の操作により、「データ検証」という名前の新しいダイアログ ボックスが開きます
• 次に、オプション リスト を選択します 許可から ソース に次の式を入力します。 テキスト フィールド:

=dv_list_0

• [OK] をクリックします .

• したがって、選択したセルの右側にドロップダウン アイコンが表示されます。

• 次に、右クリック アクティブなシートのシート名。 [コードを表示] オプションを選択します

• 上記のコマンドは空白の VBA を開きます そのモジュールに次のコードを挿入してください:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value_Old As String
Dim Value_New As String
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, ActiveSheet.Range("Country_Range")) Is Nothing Then
Application.EnableEvents = False
Value_New = Target.Value
On Error Resume Next
Application.Undo
On Error GoTo 0
Value_Old = Target.Value
If InStr(Value_Old, Value_New) Then
If InStr(Value_Old, ",") Then
If InStr(Value_Old, ", " & Value_New) Then
Target.Value = Replace(Value_Old, ", " & Value_New, "")
Else
Target.Value = Replace(Value_Old, Value_New & ", ", "")
End If
Else
Target.Value = ""
End If
Else
If Value_Old = "" Then
Target.Value = Value_New
Else
If Value_New = "" Then
Target.Value = ""
Else
If InStr(Target.Value, Value_New) = 0 Then
Target.Value = Value_Old & ", " & Value_New
End If
End If
End If
End If
Application.EnableEvents = True
Else
Exit Sub
End If
End Sub

• [実行] ボタンをクリックするか、F5 キーを押します コードを実行するためのキー

• では、マクロに名前を付けて、[実行] をクリックします。 . マクロ の名前 この例では VBA です .

• その後、USA を選択します セル B5 のドロップダウン メニューから .国名 USA を入力します セル B5 内 .

• 最後に、カナダを選択します と メキシコ ドロップダウンからも。ドロップダウン メニューのすべての値が 1 つのセルで選択されていることがわかります。

続きを読む:データ検証用の Excel ドロップダウン リストの作成方法 (8 つの方法)

2. Excel データ検証ドロップダウン リストを作成して複数選択を隣接する列に挿入

2 番目の例では、隣接する列を複数選択するためのデータ検証ドロップダウン リストを作成します。データ検証ドロップダウン リストから項目を選択すると、隣接する列で自動的に選択されます。この例を説明するために、以前のデータセットを引き続き使用します。

それでは、この例を解決する手順を見てみましょう。

手順:

• まず、セル D5 を選択します .前の方法と同様に、データ検証ドロップダウンを作成します。範囲を使用 (B5:B8 ) を検証のソース値として使用します。

• 次に、右クリック アクティブなシート名をクリックし、[コードを表示] オプションを選択します

• 新しいブランク VBA モジュールは、その空のモジュールに次のコードを書き留めます:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim DV_Range As Range
Dim Col_i As Integer
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If DV_Range Is Nothing Then GoTo exitHandler
If Intersect(Target, DV_Range) Is Nothing Then
Else
Application.EnableEvents = False
If Target.Column = 4 Then
If Target.Value = "" Then GoTo exitHandler
If Target.Validation.Value = True Then
Col_i = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(Target.Row, Col_i).Value = Target.Value
Else
MsgBox "Invalid entry"
Target.Activate
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub

• F5 を押します キーを押すか、 実行 をクリックします コードを実行するためのアイコン

• 次に、マクロ という名前の新しいダイアログ ボックスが表示されます VBA1 という名前のマクロを作成します [実行] をクリックします。 .

• その後、セル D5 のドロップダウン アイコンから アメリカという名前の国を選択してください .

• 上記のコマンドは国名 USA を入力します セル内 E5 隣の列 E にあります .

• 最後に、カナダを選択します と メキシコ 選択した値が隣接する列にそれぞれ配置されていることがわかります。

続きを読む: Excel VBA (マクロおよびユーザー フォーム) を使用したデータ検証リストの既定値

類似の読み方:

• Excel のオートコンプリート データ検証ドロップダウン リスト (2 つの方法)
• Excel で表からデータ検証リストを作成する方法 (3 つの方法)
• Excel の 1 つのセルに複数のデータ検証を適用する (3 つの例)
• Excel のデータ検証リストから空白を削除する方法 (5 つの方法)
• Excel データ検証 英数字のみ (カスタム数式を使用)

3. Excel のデータ検証ドロップダウン リストを使用して、別々の行で複数選択を行う

3 番目の例は、2 番目の例とよく似ています。 2 番目の例では、隣接する列で複数の選択が行われましたが、この例では複数の選択が別々の行で行われます。たとえば、この例で複数選択用のデータ検証ドロップダウン リストを作成するには、前の例で使用したデータセットも引き続き使用します。

それでは、このアクションを実行する手順を見ていきましょう。

手順:

• 最初に、セル D5 を選択します .前の手順と同様に、データ検証ドロップダウンを作成します。範囲を使用して検証します (B5:B8 ) をソース値として使用します。

• 次に、右クリック アクティブシートに。利用可能なオプションから「コードを表示」を選択します

• 上記の操作により、空白の VBA が開きます そのモジュールに次のコードを入力してください:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim DV_Range As Range
Dim Row_1 As Long
Dim Col_1 As Long
Col_1 = Target.Column
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If DV_Range Is Nothing Then GoTo exitHandler
If Intersect(Target, DV_Range) Is Nothing Then
Else
If Target.Value = "" Then GoTo exitHandler
Application.EnableEvents = False
Select Case Target.Column
Case 4
If Target.Offset(0, 1).Value = "" Then
Row_1 = Target.Row
Else
Row_1 = Cells(Rows.Count, Col_1 + 1).End(xlUp).Row + 1
End If
Cells(Row_1, Col_1 + 1).Value = Target.Value
Target.ClearContents
End Select
End If
exitHandler:
Application.EnableEvents = True
End Sub

• コードを実行するには、[実行] をクリックします。 アイコンを押すか、F5 を押します キー。

• 次に、Macros という名前の新しいダイアログ ボックスが表示されます .マクロ名 VBA2 を付けます [実行] をクリックします。 .

• その後、セル D5 のドロップダウン リストから オプション USA を選択してください .

• つまり、USA という名前が表示されます。 同じ行の隣の列で行われます。

• 最後に、カナダを選択します 、メキシコ 、および イングランド 一つずつ。選択された値が同じ列に 1 つずつ配置されますが、別の行に表示されます。

続きを読む:フィルタを使用した Excel データ検証ドロップダウン リスト (2 つの例)

結論

したがって、このチュートリアルでは、複数選択用のデータ検証ドロップダウン リストの作成の概要を説明します。スキルをテストするには、この記事に付属の演習用ワークブックをダウンロードしてください。ご不明な点がございましたら、下のボックスにコメントを残してください。私たちのチームは、できるだけ早く返信するよう努めます。将来的には、より革新的な Microsoft Excel に注目してください。

関連記事

• Excel のデータ検証式で IF ステートメントを使用する方法 (6 つの方法)
• 色付きの Excel でデータ検証を使用する (4 つの方法)
• 別のシートからデータ検証リストを使用する方法 (6 つの方法)
• Excel の VBA でデータ検証リストに名前付き範囲を使用する
• [修正] Excel でのコピー貼り付けでデータ検証が機能しない (ソリューションあり)