ドロップダウンリストからExcelのセルに複数のアイテムを選択するにはどうすればよいですか？

ドロップダウンリストは、Excelの日常業務で頻繁に使用されます。 デフォルトでは、ドロップダウンリストで選択できる項目はXNUMXつだけです。 ただし、以下のスクリーンショットに示すように、ドロップダウンリストから複数のアイテムをXNUMXつのセルに選択する必要がある場合があります。 Excelでどのように処理できますか？

ドロップダウンリストからVBAを使用してセルに複数のアイテムを選択します

ドロップダウン リストからセルに複数の項目を簡単かつ迅速に選択します。

ドロップダウンリストからVBAを使用してセルに複数のアイテムを選択します

ここに、この仕事を解決する上であなたに有利なVBAがいくつかあります。

セルのドロップダウンリストから重複するアイテムを選択します

1.ドロップダウンリストを作成したら、シートタブを右クリックして選択します コードを表示 コンテキストメニューから選択します。

2.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のコードをコピーして空白のスクリプトに貼り付けます。

VBA：セルのドロップダウンリストから複数のアイテムを選択します

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3.コードを保存し、ウィンドウを閉じてドロップダウンリストに戻ります。 これで、ドロップダウンリストから複数のアイテムを選択できます。

注意：

1. VBAを使用すると、アイテムがスペースで区切られ、変更できます xStrNew = xStrNew＆ "" ＆Target.Value 必要に応じて区切り文字を変更するために他の人に。 例えば、 xStrNew = xStrNew＆ "、" ＆Target.Value 項目はコンマで区切ります。

2.このVBAコードは、シート内のすべてのドロップダウンリストで機能します。

ドロップダウンリストからセルに繰り返しなしで複数のアイテムを選択します

ドロップダウンリストからセルに一意のアイテムを選択するだけの場合は、上記の手順を繰り返して、以下のコードを使用できます。

VBA：ドロップダウンリストからセルに複数のアイテムを繰り返し選択する

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

上記の VBA コードは両方とも、セルの内容の一部を削除することをサポートしていません。セルのすべての項目をクリアすることのみをサポートしています。

ドロップダウン リストからセルに複数の項目を簡単かつ迅速に選択します。

Excel では、VBA コードを除いて、セル内のドロップダウン リストから複数の項目を選択できるようにする他の方法はありません。 しかし 複数選択ドロップダウンリスト の特徴 Kutools for Excel クリックするだけで、このジョブをすばやく簡単に処理できます。

ステップ1： クツールを選択 > ドロップダウンリスト > 複数選択ドロップダウンリスト

ステップ 2: [複数選択ドロップダウン リスト] ダイアログで、設定を指定します。

1. 範囲を設定します。
2. セル内の区切り項目のセパレーターを指定します。
3. 文字の向きを決める；
4. [OK]をクリックします。
   

結果：

Excelで動的な2レベルまたは複数レベルの依存ドロップダウンリストを簡単に作成

Excelでは、2レベルまたは複数レベルのドロップダウンリストを作成するのは複雑です。 ここに 動的ドロップダウンリスト の有用性 Kutools for Excel あなたに恩恵を与えることができます。 表示されている例のようにデータを注文し、データ範囲と出力範囲を選択して、ユーティリティに任せるだけです。  30日間の無料トライアルをクリックしてください！

Kutools for Excel：300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。