Excelのドロップダウンリストで複数の項目を選択する – 完全ガイド

Excelのドロップダウンリストは、データの一貫性を確保し、入力を容易にするための素晴らしいツールです。しかし、デフォルトでは1つの項目しか選択できません。では、同じドロップダウンリストから複数の項目を選択する必要がある場合はどうすればよいでしょうか？この包括的なガイドでは、Excelのドロップダウンリストで複数選択を有効にする方法、重複を管理する方法、カスタム区切り文字を設定する方法、およびこれらのリストの範囲を定義する方法について説明します。

• VBAコードの使用
• Kutools for Excel を数クリックで使用

• 重複項目の許可
• 既存の項目の削除
• カスタム区切り文字の設定
• 指定範囲の設定
• 保護されたワークシートでの実行

ドロップダウンリストでの複数選択の有効化

このセクションでは、Excelのドロップダウンリストで複数選択を有効にするための2つの方法を提供します。

VBAコードの使用

ドロップダウンリストで複数選択を許可するには、Excelで「Visual Basic for Applications」（VBA）を使用できます。このスクリプトは、ドロップダウンリストの動作を変更して、複数選択リストにします。以下の手順に従ってください。

ステップ 1: シート（コード）エディタを開く

1. 複数選択を有効にしたいドロップダウンリストが含まれているワークシートを開きます。
2. シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。
   

ステップ 2: VBAコードを使用する

次のVBAコードをコピーして、開いているシート（コード）ウィンドウに貼り付けます。

VBAコード: Excelのドロップダウンリストで複数選択を有効にする

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20240118
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim delimiter As String
    Dim TargetRange As Range

    Set TargetRange = Me.UsedRange ' Users can change target range here
    delimiter = ", " ' Users can change the delimiter here

    If Target.Count > 1 Or Intersect(Target, TargetRange) Is Nothing Then Exit Sub
    On Error Resume Next
    Set xRng = TargetRange.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False

    xValue2 = Target.Value
    Application.Undo
    xValue1 = Target.Value
    Target.Value = xValue2
    If xValue1 <> "" And xValue2 <> "" Then
        If Not (xValue1 = xValue2 Or _
                InStr(1, xValue1, delimiter & xValue2) > 0 Or _
                InStr(1, xValue1, xValue2 & delimiter) > 0) Then
            Target.Value = xValue1 & delimiter & xValue2
        Else
            Target.Value = xValue1
        End If
    End If

    Application.EnableEvents = True
    On Error GoTo 0
End Sub

結果

ワークシートに戻ると、ドロップダウンリストで複数のオプションを選択できるようになります。下記のデモをご覧ください：

Kutools for Excel を数クリックで使用

VBAに慣れていない場合、より簡単な代替手段は「Kutools for Excel」の「複数選択可能なドロップダウンリスト」機能です。この使いやすいツールは、ドロップダウンリストで複数選択を有効にするプロセスを簡素化し、区切り文字をカスタマイズし、重複を簡単に管理できるようにして、さまざまなニーズに対応します。

Kutools for Excel のインストール後、「Kutools」タブに移動し、「ドロップダウンリスト」＞「複数選択可能なドロップダウンリスト」を選択します。その後、次のように設定する必要があります。

1. 複数の項目を選択する必要があるドロップダウンリストを含む範囲を指定します。
2. ドロップダウンリストセル内で選択した項目の区切り文字を指定します。
3. 「OK」をクリックして設定を完了します。
   

結果

これで、指定した範囲内のドロップダウンリストを持つセルをクリックすると、その横にリストボックスが表示されます。目的の項目の横にある「+」ボタンをクリックして、ドロップダウンセルに追加し、「-」ボタンをクリックして不要になった項目を削除します。下記のデモをご覧ください：

複数選択可能なドロップダウンリストのその他の操作

このセクションでは、データ検証ドロップダウンリストで複数選択を有効にする際に必要なさまざまなシナリオを収集しています。

ドロップダウンリストでの重複項目の許可

複数選択が許可されているドロップダウンリストでは、重複が問題になることがあります。上記のVBAコードでは、ドロップダウンリスト内の重複項目は許可されません。重複項目を保持する必要がある場合は、このセクションのVBAコードをお試しください。

VBAコード: データ検証ドロップダウンリストで重複を許可する

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20240118
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim delimiter As String
    Dim TargetRange As Range

    Set TargetRange = Me.UsedRange ' Users can change target range here
    delimiter = ", " ' Users can change the delimiter here

    If Target.Count > 1 Or Intersect(Target, TargetRange) Is Nothing Then Exit Sub
    On Error Resume Next
    Set xRng = TargetRange.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False

    xValue2 = Target.Value
    Application.Undo
    xValue1 = Target.Value
    Target.Value = xValue2
    If xValue1 <> "" And xValue2 <> "" Then
        Target.Value = xValue1 & delimiter & xValue2
    End If

    Application.EnableEvents = True
    On Error GoTo 0
End Sub

結果

これで、現在のワークシートのドロップダウンリストから複数の項目を選択できるようになります。ドロップダウンリストセル内で項目を繰り返すには、リストからその項目を再度選択し続けます。スクリーンショットをご覧ください：

ドロップダウンリストからの既存の項目の削除

ドロップダウンリストから複数の項目を選択した後、ドロップダウンリストセルから既存の項目を削除する必要が生じることがあります。このセクションでは、このタスクを達成するのに役立つ別のVBAコードを提供します。

VBAコード: ドロップダウンリストセルから既存の項目を削除する

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 20240118
    Dim xRngDV As Range
    Dim TargetRange As Range
    Dim oldValue As String
    Dim newValue As String
    Dim delimiter As String
    Dim allValues As Variant
    Dim valueExists As Boolean
    Dim i As Long
    Dim cleanedValue As String

    Set TargetRange = Me.UsedRange ' Set your specific range here
    delimiter = ", " ' Set your desired delimiter here

    If Target.CountLarge > 1 Then Exit Sub

    ' Check if the change is within the specific range
    If Intersect(Target, TargetRange) Is Nothing Then Exit Sub

    On Error Resume Next
    Set xRngDV = Target.SpecialCells(xlCellTypeAllValidation)
    If xRngDV Is Nothing Or Target.Value = "" Then
        ' Skip if there's no data validation or if the cell is cleared
        Application.EnableEvents = True
        Exit Sub
    End If
    On Error GoTo 0

    If Not Intersect(Target, xRngDV) Is Nothing Then
        Application.EnableEvents = False
        newValue = Target.Value
        Application.Undo
        oldValue = Target.Value
        Target.Value = newValue

        ' Split the old value by delimiter and check if new value already exists
        allValues = Split(oldValue, delimiter)
        valueExists = False
        For i = LBound(allValues) To UBound(allValues)
            If Trim(allValues(i)) = newValue Then
                valueExists = True
                Exit For
            End If
        Next i

        ' Add or remove value based on its existence
        If valueExists Then
            ' Remove the value
            cleanedValue = ""
            For i = LBound(allValues) To UBound(allValues)
                If Trim(allValues(i)) <> newValue Then
                    If cleanedValue <> "" Then cleanedValue = cleanedValue & delimiter
                    cleanedValue = cleanedValue & Trim(allValues(i))
                End If
            Next i
            Target.Value = cleanedValue
        Else
            ' Add the value
            If oldValue <> "" Then
                Target.Value = oldValue & delimiter & newValue
            Else
                Target.Value = newValue
            End If
        End If

        Application.EnableEvents = True
    End If
End Sub

結果

このVBAコードにより、ドロップダウンリストから複数の項目を選択し、すでに選択した項目を簡単に削除できます。複数の項目を選択した後、特定の項目を削除したい場合は、リストからその項目を再度選択するだけです。

カスタム区切り文字の設定

上記のVBAコードでは、区切り文字がカンマに設定されています。この変数を任意の文字に変更して、ドロップダウンリスト選択の区切り文字として使用できます。以下のように行います：

上記のVBAコードには、次の行がすべて含まれていることがわかります：

delimiter = ", "

必要に応じて、カンマを任意の区切り文字に変更するだけです。たとえば、セミコロンで項目を区切りたい場合は、その行を次のように変更します：

delimiter = "; "

delimiter = vbNewLine

指定範囲の設定

上記のVBAコードは、現在のワークシート内のすべてのドロップダウンリストに適用されます。VBAコードを特定の範囲のドロップダウンリストにのみ適用したい場合は、上記のVBAコードで次のように範囲を指定できます。

上記のVBAコードには、次の行がすべて含まれていることがわかります：

Set TargetRange = Me.UsedRange

その行を次のように変更するだけです：

Set TargetRange = Me.Range("C2:C10")

保護されたワークシートでの実行

パスワード「123」でワークシートを保護し、保護をアクティブにする前にドロップダウンリストセルを「ロック解除」に設定したと想像してください。これにより、保護後も複数選択機能がアクティブであることが保証されます。ただし、上記のVBAコードはこの場合動作しないため、このセクションでは、保護されたワークシートでの複数選択機能を処理するために特別に設計された別のVBAスクリプトについて説明します。

VBAコード: 重複なしでドロップダウンリストで複数選択を有効にする

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 20240118
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim delimiter As String
    Dim TargetRange As Range
    Dim isProtected As Boolean
    Dim pswd As Variant

    Set TargetRange = Me.UsedRange ' Set your specific range here
    delimiter = ", " ' Users can change the delimiter here

    If Target.Count > 1 Or Intersect(Target, TargetRange) Is Nothing Then Exit Sub
    
    ' Check if sheet is protected
    isProtected = Me.ProtectContents
    If isProtected Then
        ' If protected, temporarily unprotect. Adjust or remove the password as needed.
        pswd = "yourPassword" ' Change or remove this as needed
        Me.Unprotect Password:=pswd
    End If

    On Error Resume Next
    Set xRng = TargetRange.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then
        If isProtected Then Me.Protect Password:=pswd
        Exit Sub
    End If
    Application.EnableEvents = False

    xValue2 = Target.Value
    Application.Undo
    xValue1 = Target.Value
    Target.Value = xValue2
    If xValue1 <> "" And xValue2 <> "" Then
        If Not (xValue1 = xValue2 Or _
                InStr(1, xValue1, delimiter & xValue2) > 0 Or _
                InStr(1, xValue1, xValue2 & delimiter) > 0) Then
            Target.Value = xValue1 & delimiter & xValue2
        Else
            Target.Value = xValue1
        End If
    End If

    Application.EnableEvents = True
    On Error GoTo 0

    ' Re-protect the sheet if it was protected
    If isProtected Then
        Me.Protect Password:=pswd
    End If
End Sub

Excelのドロップダウンリストで複数選択を有効にすることで、ワークシートの機能性と柔軟性を大幅に向上させることができます。VBAコーディングに慣れていなくても、Kutoolsのようなシンプルなソリューションを好む場合でも、標準的なドロップダウンリストをダイナミックで複数選択可能なツールに変える能力が得られます。これらのスキルがあれば、よりダイナミックでユーザーフレンドリーなExcel文書を作成する準備が整いました。Excelの機能についてさらに深く学びたい方のために、当サイトには豊富なチュートリアルがあります。 こちらでさらに多くのExcelのヒントやコツを発見してください。

関連記事