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

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

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

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

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

VBA コードの使用

ドロップダウン リストで複数の選択を許可するには、次を使用できます。 アプリケーション用のVisual Basic （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

結果

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

数回のクリックでExcel用Kutoolsを使用する

VBA に慣れていない場合は、より簡単な代替手段があります。 Kutools for Excel's 複数選択ドロップダウンリスト 特徴。このユーザーフレンドリーなツールにより、ドロップダウン リストでの複数選択の有効化が簡素化され、さまざまなニーズに合わせてセパレーターをカスタマイズし、重複を簡単に管理できるようになります。

後 Kutools for Excelのインストール、に行きます クツール タブ、選択 ドロップダウンリスト > 複数選択ドロップダウンリスト。次に、次のように設定する必要があります。

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 の機能をさらに詳しく知りたい人のために、当社の Web サイトには豊富なチュートリアルが用意されています。 Excel のヒントとテクニックの詳細については、こちらをご覧ください.

関連記事