ドロップダウンリストから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 Sub3.コードを保存し、ウィンドウを閉じてドロップダウンリストに戻ります。 これで、ドロップダウンリストから複数のアイテムを選択できます。
注意：
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: [複数選択ドロップダウン リスト] ダイアログで、設定を指定します。
- 範囲を設定します。
- セル内の区切り項目のセパレーターを指定します。
- 文字の向きを決める；
- [OK]をクリックします。
結果：
Excelで動的な2レベルまたは複数レベルの依存ドロップダウンリストを簡単に作成
|
| Excelでは、2レベルまたは複数レベルのドロップダウンリストを作成するのは複雑です。 ここに 動的ドロップダウンリスト の有用性 Kutools for Excel あなたに恩恵を与えることができます。 表示されている例のようにデータを注文し、データ範囲と出力範囲を選択して、ユーティリティに任せるだけです。 30日間の無料トライアルをクリックしてください！ |
 |
| Kutools for Excel：300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 |
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
