Note: The other languages of the website are Google-translated. Back to English

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

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

ドロップダウンリストから複数のアイテムを選択するドキュメント1 右矢印ドキュメント ドロップダウンリストから複数のアイテムを選択するドキュメント2

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

Kutools for Excelの便利なオプションを使用して、ドロップダウンリストからセルに複数のアイテムを選択します


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

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

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

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

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 コードは両方とも、セルの内容の一部を削除することをサポートしていません。セルのすべての項目をクリアすることのみをサポートしています。


Kutools for Excelの便利なオプションを使用して、ドロップダウンリストからセルに複数のアイテムを選択します

VBAコードに精通していない場合は、次のことができます。 無料インストール 便利なツール- Kutools for Excel、ドロップダウンリストに関するユーティリティのグループが含まれており、オプションがあります 複数選択ドロップダウンリスト ドロップダウンリストからセルに複数のアイテムを簡単に選択するのに役立ちます。

ドロップダウンリストを作成したら、ドロップダウンリストのセルを選択してクリックしてください クツール > ドロップダウンリスト > 複数選択ドロップダウンリスト このユーティリティを有効にします。
doc kutools multiselectドロップダウンリスト1

次に、選択したドロップダウンリストセルを選択して、セル内の複数のアイテムを選択できます。

このオプションを初めて使用する場合は、このユーティリティを適用する前に、必要に応じてこのユーティリティの設定を指定できます。

【送信】ボタンをクリックします。販売者は原則としてXNUMX日以内に回答を返信します。XNUMX日を過ぎても回答がない場合は、Artisanaryまでお問い合わせください。 クツール > ドロップダウンリスト >横の矢印 複数選択ドロップダウンリスト > 設定.
doc kutools multiselectドロップダウンリスト2

その後、 ドロップダウンリスト設定の複数選択 ダイアログ、あなたはすることができます

1)必要に応じて適用範囲を指定します。

2)アイテムの配置方向を指定します。

3)アイテム間の区切り文字を指定します。

4)重複を追加しないかどうかを指定し、重複するアイテムを削除します。

【送信】ボタンをクリックします。販売者は原則としてXNUMX日以内に回答を返信します。XNUMX日を過ぎても回答がない場合は、Artisanaryまでお問い合わせください。 Ok をクリックし クツール > ドロップダウンリスト > 複数選択ドロップダウンリスト それを有効にします。

先端:適用するには 複数選択ドロップダウンリスト ユーティリティ、あなたはする必要があります install 最初はそれ。 複数のレベルを持つドロップダウンリストを作成する場合は、以下のユーティリティが役立つ場合があります。

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

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

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (26)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
追加後、ドロップダウンからのデータ、削除は機能しません。
このコメントは、サイトのモデレーターによって最小化されました
同じ問題が見つかりました。 私はそれを克服する方法を見つけたと思います。 コードの下部に、コード「xStrNew=xStrOld」が表示されます。 代わりに、xStrNew=""と言ってください

わたしにはできる。
このコメントは、サイトのモデレーターによって最小化されました
あなたがまだこのコードを持っている可能性はありますか? 私はあなたが言ったことをやろうとしていますが、テキストはまだ重複しています。
感謝
このコメントは、サイトのモデレーターによって最小化されました
申し訳ありませんが、しません。 しかし、上記のコードを見たところ、作者が私の提案でコードを編集したようです。

この記事のメインスレッドに問題を投稿してください。
このコメントは、サイトのモデレーターによって最小化されました
最初のコードで、6行目と7行目の間に次の行を追加します(10番目のコードでは11-XNUMX)。 Target.Value = ""の場合、Subを終了します
このコメントは、サイトのモデレーターによって最小化されました
私はこれを使用しました「ドロップダウンリストから複数のアイテムを繰り返しなしでセルに選択する」
これが起こったことです
1.複数の選択が問題なく行われます。
2.問題は、オプションを編集して削除しようとしたときです。 オプションを削除する方法はありません。 それは増殖し続けます。
このコメントは、サイトのモデレーターによって最小化されました
この機能をどのように適用しますが、冗長な値がないようにしますか? どんな助けでもいただければ幸いです!
このコメントは、サイトのモデレーターによって最小化されました
チェックボックスを使用してドロップダウンリスト付きのシートを作成する場合、このワークブックをこのチェックボックス機能と共有する方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
また、更新されたVBAコードを使用して複数のアイテムを選択した後でも、セルをクリアできず、増殖し続けることがわかりました。
誰かがこれに対する解決策をまだ持っていますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Rusty、コードをより安定させるために更新しました。 ただし、セルはデータ検証中であり、空白はデータ検証から外れているため、コードはこの問題を解決できません。
このコメントは、サイトのモデレーターによって最小化されました
コードは機能しますが、すべてのセルに引き継がれ、セル内で乗算され、削除が許可されませんか?
このコメントは、サイトのモデレーターによって最小化されました
Quando querodeletaralgumaopçãooutodasdáerro。 コモポッソレゾルバ?
このコメントは、サイトのモデレーターによって最小化されました
やあ! Como puedo usar este codigo para todo unworksheet y no solo para una pestana?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Vero、Kutools for Excelの複数選択ドロップダウンリスト機能は、ワークシート全体またはワークブック全体のドロップダウンリストから複数のアイテムを選択することをサポートします。複数選択ドロップダウンリスト設定ダイアログで指定されたスコープを指定するだけです。
このコメントは、サイトのモデレーターによって最小化されました
あなたが提供した最初の式のためにどうすればそれを行うことができますか:)事前に感謝します!
このコメントは、サイトのモデレーターによって最小化されました
ボンジュール、
selon le premier example tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillee, je n'ai plus le choix multiple !
どうやって?
よろしくお願いします
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、申し訳ありません。 この問題を回避するために、機能の次のバージョンをアップグレードします。 フィードバックありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
bcpはあなたに感謝します
Mais à quand la nouvelle バージョン ?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、新しいバージョンは計画中です。次のバージョンでは複数の機能がアップグレードされるため、多少時間がかかる場合があります。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、このバージョンを更新しましたが、これはベータ版です。次からダウンロードしてください。 https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
問題がある場合は、フィードバックをお待ちしております。
このコメントは、サイトのモデレーターによって最小化されました
ありがとう、
Je vais la télécharger et editer.
ボンヌjournée
このコメントは、サイトのモデレーターによって最小化されました
コードは機能しますが、削除できません。誰かが新しいコードを投稿してください。
このコメントは、サイトのモデレーターによって最小化されました
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

例:
ミ テキスト パラ ラ リスト:
トラミタール エステ アスント
コーディネート
ANALISAR Y RECOMENDAR

sí selectiono:
トラミタール エステ アスント
ANALISAR Y RECOMENDAR

それは私には見えます
ANALIZAR Y RECOMENDAR、TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO、ANALIZAR Y RECOMENDAR.....
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Gorgelys、Kutoolsの複数選択ドロップダウンリストが役立ちます. 選択したアイテムは、希望どおりの順序になります。
このコメントは、サイトのモデレーターによって最小化されました
コモ ポッソ ユーティリザール ア ファンサン コム ア プラニーリャ ブロック?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、マクロ、以下のコードを試してください。保護されたシートのドロップダウンリストで複数の項目を選択することをサポートしています。
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

また、Kutools for Excel 26.1以降のバージョンは、保護されたシートでこのジョブをサポートしています.
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護