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

Excelで複数の選択または値を含むドロップダウンリストを作成するにはどうすればよいですか?

デフォルトでは、Excelのデータ検証ドロップダウンリストで選択できる項目はXNUMXつだけです。 以下のgifに示すように、ドロップダウンリストで複数の選択を行うにはどうすればよいですか? この記事の方法は、問題の解決に役立ちます。


VBAコードを使用して複数選択したドロップダウンリストを作成する

このセクションでは、ワークシートのドロップダウンリストで複数の選択を行うのに役立つXNUMXつのVBAコードを提供します。 XNUMXつのVBAコードは次のことを実現できます。

VBAコード1:重複することなくドロップダウンリストで複数の選択を許可する
VBAコード2:ドロップダウンリストで重複することなく複数の選択を許可する(既存のアイテムを再度選択して削除する)

次のVBAコードのいずれかを適用して、Excelのワークシートのドロップダウンリストで複数の選択を行うことができます。 次のようにしてください。

1.ワークシートを開くと、複数の選択を行うデータ検証ドロップダウンリストが含まれています。 シートタブを右クリックして、 コードを表示 コンテキストメニューから選択します。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコードウィンドウにコピーします。 スクリーンショットを参照してください:

VBAコード1:重複することなくドロップダウンリストで複数の選択を許可する

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これで、現在のワークシートのドロップダウンリストから複数のアイテムを選択できます。

誤ってアイテムを選択し、セル全体をクリアして最初からやり直すことなくアイテムを削除する必要があるとします。 次のVBAコード2はあなたに有利に働きます。

VBAコード2:ドロップダウンリストで重複することなく複数の選択を許可する(既存のアイテムを再度選択して削除する)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

免責事項:

1)。 ドロップダウンリストで値が重複することはできません。
2)。 上記のVBAコード2は、熱心なユーザーであるKenGardnerによって2022/07/11に提供されました。
3)。 ブックをとして保存してください Excelマクロが有効なブック 将来的にコードを機能させ続けるために。
4)。 VBAコード2を追加した後、ドロップダウンリストで再度選択することにより、既存のアイテムを削除できます。 以下のgifを参照してください。


素晴らしいツールを使用して、複数の選択肢を持つドロップダウンリストを簡単に作成できます

ここでは、 複数選択ドロップダウンリスト の特徴 Kutools for Excel あなたのために。 この機能を使用すると、ドロップダウンリストから、指定した範囲、現在のワークシート、現在のワークブック、または開いているすべてのワークブックの複数のアイテムを必要に応じて簡単に選択できます。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1。 クリック クツール > ドロップダウンリスト > 複数選択ドロップダウンリスト > 設定を行います。 スクリーンショットを参照してください:

2。 の中に ドロップダウンリスト設定の複数選択 ダイアログボックスで、次のように構成してください。

  • 2.1)適用範囲を 適用する セクション。 この場合、私は選択します 現在のワークシート から 指定された範囲 ドロップダウンリスト;
  • 2.2) テキストの方向 セクションでは、ニーズに基づいてテキストの方向を選択します。
  • 2.3) セパレータ ボックスに、複数の値を区切るために使用する区切り文字を入力します。
  • 2.4)確認してください 重複を追加しないでください 内箱 オプション ドロップダウンリストのセルに複製を作成したくない場合は、セクション。
  • 2.5)をクリックします OK ボタン。 スクリーンショットを参照してください:

3.をクリックしてください クツール > ドロップダウンリスト > 複数選択ドロップダウンリスト この機能を有効にします。

これで、現在のワークシートのドロップダウンリストまたは手順2で指定した任意のスコープから複数のアイテムを選択できます。

  無料トライアルをご希望の方は(30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


関連記事:

Excelのドロップダウンリストに入力するとオートコンプリート
大きな値を持つデータ検証ドロップダウンリストがある場合は、適切なものを見つけるためだけにリストを下にスクロールするか、リストボックスに単語全体を直接入力する必要があります。 ドロップダウンリストの最初の文字を入力するときにオートコンプリートを許可する方法があれば、すべてが簡単になります。 このチュートリアルでは、問題を解決する方法を説明します。

Excelで別のブックからドロップダウンリストを作成する
ブック内のワークシート間でデータ検証ドロップダウンリストを作成するのは非常に簡単です。 しかし、データ検証に必要なリストデータが別のブックにある場合は、どうしますか? このチュートリアルでは、Excelの別のブックからドロップファウンリストを作成する方法について詳しく学習します。

Excelで検索可能なドロップダウンリストを作成する
多数の値を持つドロップダウンリストの場合、適切な値を見つけるのは簡単な作業ではありません。 以前、ドロップダウンボックスに最初の文字を入力したときにドロップダウンリストをオートコンプリートする方法を導入しました。 オートコンプリート機能に加えて、ドロップダウンリストを検索可能にして、ドロップダウンリストで適切な値を見つける作業効率を高めることもできます。 ドロップダウンリストを検索可能にするには、このチュートリアルの方法を試してください。

Excelのドロップダウンリストで値を選択すると、他のセルに自動入力されます
セル範囲B8:B14の値に基づいてドロップダウンリストを作成したとします。 ドロップダウンリストで任意の値を選択する場合、セル範囲C8:C14の対応する値が選択したセルに自動的に入力されるようにします。 問題を解決するために、このチュートリアルの方法はあなたに有利になります。

ドロップダウンリストのその他のチュートリアル...


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

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下部
コメントを並べ替える
コメント (67)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ソリューションとコードをありがとう。 ただし、次のステップは、ユーザーがドロップダウンリストから「重複」値を選択しないようにする方法です。 たとえば、リストにオレンジ、リンゴ、バナナ、ピーチの4つのアイテムがあり、ユーザーがすでに「オレンジ」を選択している場合、Excelではユーザーが「オレンジ」を選択できないようにするか、そのオプションを残りの部分から削除する必要があります。リスト。 この機能を実現するためのコードを公開していただけませんか。 ありがとう。 イェズディ
このコメントは、サイトのモデレーターによって最小化されました
こんにちはYezdi、コメントありがとうございます。 コードが更新され、ドロップダウンリストで重複する値が許可されなくなりました。 ありがとう。 日光
このコメントは、サイトのモデレーターによって最小化されました
これにより複数の選択が可能になるのは素晴らしいことですが、@ Yezdiがコメントしたように、選択しなくても80つまたは複数の重複が追加されることがわかりました。 したがって、現在、これはXNUMX%のソリューションです...完璧からXNUMXつ調整します。 私はVBコーダーではないか、ソリューションを提供します。
このコメントは、サイトのモデレーターによって最小化されました
次の行のコードを変更して、重複を防ぐことができます。If xValue2 "" Then Target.Value = xValue1& "、"&xValue2 End If To:If xValue2 "" Then If CheckIfAlreadyAdded(xValue1、xValue2)= False Then Target .Value = xValue1& "、"&xValue2 Else Target.Value = xValue1 End If End If And then次の関数を追加します:Private Function CheckIfAlreadyAdded(ByVal sText As String、sNewValue As String)As Boolean CheckIfAlreadyAdded = False Dim WrdArray()As String WrdArray()= Split(sText、 "、")For i = LBound(WrdArray)To UBound(WrdArray)If Trim(WrdArray(i))= Trim(sNewValue)Then CheckIfAlreadyAdded = True Next iEndFunction-おそらくそれをコーディングするより良い方法ですが、今のところは機能します。
このコメントは、サイトのモデレーターによって最小化されました
条件が設定されている場合、新しい関数のループを終了しなかったので、他のエントリをチェックする必要がないことに気づきました。
このコメントは、サイトのモデレーターによって最小化されました
やあ。 コードと重複を制限するための追加に感謝します。 もう2つのリクエスト-XNUMXつまたはXNUMXつの特定の列でのみ複数の選択を許可するには、どのような追加/変更を行う必要がありますか? このコードは、タイプミスを修正したり、セル内のテキストに変更や追加を行ったりした場合に、「通常」の動作で変更を受け入れるのではなく、「プレーン」セルであるはずのテキスト行を再追加します。 (テキスト全体を再度追加することなく)。 たとえば、列Aは「プレーン」列です。 「一番欲しいXNUMXつのテーマは何ですか?」という文章を書きます。 列Bは、XNUMXつの値(この場合は子供の名前など)のみを選択できるようにしたい「リスト」列です。 列Cは、ユーザーが複数の項目を選択できる必要がある別の「リスト」列です(このコードを使用すると、完全に選択できます)。 作業を進めていくと、A列にタイプミスがあったことに気付き、修正したいと思います。 このコードが立っているので、(ダブルクリック、FXNUMX)に入って「アイテム」という単語を修正すると、セルに次の結果が表示されます。「最も必要なXNUMXつのテーマは何ですか?XNUMXつは何ですか?一番欲しいアイテムは?」 助けてくれてありがとう(VBAが本当に好きなユーザーからですが、まだ学習の初期段階にあります!)
このコメントは、サイトのモデレーターによって最小化されました
コードを機能させることはできましたが、ドキュメントを(マクロを有効にして)保存し、閉じて返すと、コードは機能しなくなりました(まだそこにありますが)。 何を間違えたのか理解できません。 何か案は?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはシンシア、元の作者が返信しない場合、私はあなたに答えを得るでしょうが、私は再び29月XNUMX日にコンピュータの前にいるだけです。 私もVBAプログラマーではありません。 その間にできることは、列番号を特定し、その特定の列でデータが編集された場合にのみコードを実行させる方法をGoogleで検索することです。 私はそれを行いましたが、コードは私の仕事用PCにあり、現時点では思い出せません。おそらく、debug.printをtarget.columnなどに配置して、編集中の列番号が表示されるかどうかを確認してください。 。 ジェニファー、申し訳ありませんが、あなたが抱えている問題についてはよくわかりません:(
このコメントは、サイトのモデレーターによって最小化されました
@Cynthia、それでも必要な場合は、コードが特定の列、私の場合は列34と35でのみ実行されるようにするために、次のようなことを実行できるはずです。If(Target.Column 34 And Target.Column 35)Then Exit Sub 'このコードをdimステートメントの後の最初に置きます
このコメントは、サイトのモデレーターによって最小化されました
[quote] @Cynthia、それでも必要な場合は、コードが特定の列、私の場合は列34と35でのみ実行されるようにするために、次のようなことを実行できるはずです。If(Target.Column 34 And Target.Column 35)次に、Subを終了します'このコードをdimステートメントの後に最初に配置しますMervyn著[/ quote]こんにちは@Mervyn、スレッドを完全に追跡できませんでしたが、ご回答いただきありがとうございます。 If(Target.Column 34 And Target.Column 35)Then Exit Subを適用しようとしました(私のバージョンはIf(Target.Column4 And Target.Column5)Then Exit Subを指定どおりに読み取りますが、「ランタイムエラー'438':オブジェクトはこのプロパティまたはメソッドをサポートしていません""この新しい行のエラー。コードの最初の数行は次のとおりです。PrivateSubWorksheet_Change(ByVal Target As Range)Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If(Target.Column4 And Target.Column5)Then Exit Sub If Target.Count> 1 Then Exit Sub On Error Resume Next私のワークシートには6つの列しかありません:質問|回答|カテゴリ|サブカテゴリ|タグ|写真リンクサブカテゴリとタグ(列4と5)に複数の値のドロップダウンが必要なだけです。12/ 23に提案された情報を探し続け、チャリティーが提供するリンクを確認します。
このコメントは、サイトのモデレーターによって最小化されました
Target.Column <> 34の場合、Subを終了します

'このコードをdimステートメントの後の最初に置きます
このコメントは、サイトのモデレーターによって最小化されました
こんにちは私は現在この数式を使用しており、データ検証のあるすべての列に複数選択オプションがありますが、複数選択を4つの列のみに制限したいと思います。 誰かがこの数式を編集して、複数選択をColumn2016にのみ適用できるようにすることはできますか? ありがとう:)PrivateSub Worksheet_Change(ByVal Target As Range)'更新:4/12/1 Dim xRng As Range Dim xValue2 As String Dim xValue1 As String If Target.Count> 2 Then Exit Sub On Error Resume Next Set xRng=Cells。 SpecialCells(xlCellTypeAllValidation)If xRng Is Nothing Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Target、xRng)Is Nothing Then xValue1 = Target.Value Application.Undo xValue2 = Target.Value Target.Value = xValue1 If xValue2 " "Then If xValue1" "Then If xValue2 = xValue1 Or _ InStr(1、xValue2、"、 "&xValue1)Or _ InStr(1、xValue2、xValue1&"、 ")Then Target.Value = xValue1 Else Target.Value = xValue2& "、"&xValueXNUMX End If End If End If End If Application.EnableEvents = TrueEndSubどんな支援もいただければ幸いです。
このコメントは、サイトのモデレーターによって最小化されました
これはうまくいきますが、一度選択したアイテムを削除することはできません。 誤って何かをクリックして、(うまくいけば)セル全体をクリアして最初からやり直すことなく削除する必要がある場合の提案はありますか? また、XNUMXつまたは複数の列を定義しようとしている人のために、Contexturesには、ここで提供されているコードに、それを可能にする優れた追加機能があります。 http://www.contextures.com/excel-data-validation-multiple.html#column
このコメントは、サイトのモデレーターによって最小化されました
[quote]これはうまくいきますが、一度選択したアイテムを削除することはできません。 誤って何かをクリックして、(うまくいけば)セル全体をクリアして最初からやり直すことなく削除する必要がある場合の提案はありますか? また、XNUMXつまたは複数の列を定義しようとしている人のために、Contexturesには、ここで提供されているコードに、それを可能にする優れた追加機能があります。 http://www.contextures.com/excel-data-validation-multiple.html#columnチャリティー[/quote]コードは正常に機能します。 ただし、アイテムの選択を解除できないようです。 選択範囲からアイテムを削除したいのですが、削除されません。 他の誰かもこの問題を経験していますか?[/ quote]こんにちは、この問題の解決策が見つかりました。共有してください。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、コードは正常に機能します。 ただし、アイテムの選択を解除できないようです。 選択範囲からアイテムを削除したいのですが、削除されません。 他の誰かもこの問題を経験していますか?
このコメントは、サイトのモデレーターによって最小化されました
この問題への対応はありましたか。 それは私が抱えているのと同じ問題です。 選択されたアイテムを削除する方法はないようです。
このコメントは、サイトのモデレーターによって最小化されました
セルのコンテンツを削除してから、再度選択します
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、私はこのコードをExcelシートに置いており、セルが選択されたときにドロップダウンリストからコンテンツをクリーンアップしています-コードのどの部分(「fillRng.ClearContents」と書かれている部分)がそれを実行しているかを知っています。上記のいくつかを使用して修正に失敗しました...私はVBAプログラミングなどに不慣れです。セルが選択されたときにクリアされず、エントリがクリアされないように変更する方法について誰かが助けを提供できますか?複製してください?? Option Explicit Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me.OLEObjects( "ListBox1")Set Qualifiers = LBobj.Object If Target.Row > 3 And Target.Column = 3次に、fillRng = Target With LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If not fillRng Is Nothing Then fillRng.ClearContents With Qualifiers If .ListCount 0 Then For i = 0 To .ListCount-1 If fillRng.Value = "" Then If .Selected(i)Then fillRng.Value = .List(i)Else If .Selected(i)Then fillRng.Value = _ fillRng.Value& "、"&.List(i)End If Next End If For i = 0 To .ListCount-1 .Selected(i)= False Next End With Set fillRng = End If End IfEndSubは何もありません
このコメントは、サイトのモデレーターによって最小化されました
みなさん、こんにちは。ドロップダウンリストは完璧に作成できましたが、質問は次のとおりです。必要なすべてのアイテムを選択すると、セル内を水平方向に次々に表示されます。たとえば、黄色、緑、黒、赤などです。 しかし、どうすれば垂直方向に表示できますか?たとえば、次のようになります。オレンジ色の白っぽい黄色赤水平方向では、多くのアイテムを選択するとセルがかなり長くなるためです。 これを行う方法があれば教えてください。 ありがとう、Desiree
このコメントは、サイトのモデレーターによって最小化されました
このコードを使用して、複数の選択ドロップダウンボックスを正常に作成できました。 別の日に閉じてから再開したときに機能しました。 ただし、最初に選択したすべてのセルで複数選択できるわけではありません。 スプレッドシート全体のコードを使用しているにもかかわらず、以前に行ったのはXNUMXつだけです。 手伝ってくれますか?
このコメントは、サイトのモデレーターによって最小化されました
私は同じ問題を抱えています。
このコメントは、サイトのモデレーターによって最小化されました
セルがロックされている可能性が高いです。すべてのセルを右クリックし、セルの書式設定、保護に移動して、[ロックされたセル]オプションのチェックを外します。
このコメントは、サイトのモデレーターによって最小化されました
発信者が電話をかける理由ごとに、「栄養」、「体重」、「仕事」など、複数のテキストを選択できるドロップダウンリストを作成しました。各理由の数を確認したい概要ページがあります。特定の月に示されました。 特定の月にこれらのそれぞれを個別に引き出して集計するようにExcelに指示するには、どの式を使用しますか? 現在、私が設定した方法では、各発信者のセルにXNUMXつの理由がある場合にのみ、正しく集計されます。
このコメントは、サイトのモデレーターによって最小化されました
グッド·デイ、
申し訳ありませんが、この問題の解決をお手伝いすることはできません。 答えが見つかったら教えてください。
このコメントは、サイトのモデレーターによって最小化されました
複数の値を選択できるドロップダウンリストを使用して4つの列を作成しようとしています。 「複数選択のドロップダウンリスト」VBAコードを変更して、すでに入力されている値をクリックすると、その値がセルから削除されるようにするにはどうすればよいですか。 前もって感謝します。
このコメントは、サイトのモデレーターによって最小化されました
親愛なるランディ、
「すでに入力されている値をクリックすると、セルから削除される」とはどういう意味ですか?
このコメントは、サイトのモデレーターによって最小化されました
同じ質問があります。 ドロップダウンリストに、選択した値が記憶されていません。 すでに入力されているセル(自分ではなく他の人)をクリックすると、選択した値がクリアされ、セルは再び空白になります。
このコメントは、サイトのモデレーターによって最小化されました
以下のコードを使用して、複数のワークシートで複数選択を許可していますが、ブック内の別のワークシートに移動すると、複数選択が消えます。 ファイルを保存して戻ってくると、コードが表示されたXNUMXつのタブで機能しますが、コードが表示された別のタブをクリックすると、機能しなくなります。 それを修正する方法はありますか?VBAコードを含むワークシートをクリックすると、常に複数選択が可能になりますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ich bin totalerVBALaieです。 Ich versuche den Code so zu modifizieren、dass
a)Mehrfachauswahl nichtをアレンで死ぬ、sondern nur ein zwei Spalten aktiv ist
b)ich Items auch wieder rausnehmen kann、zB in dem ich in der Listenauswahl das Item noch einmal anklicke(Beispiel:ichhabeüberdieMehrfachauswahlausgewählt:A、D、X、Y ...nunfälltmirauf、dass Dass gehört.BeimaktuellenCodemüssteichEingabenetfernenundneuauswählen)。
事前に感謝します!
このコメントは、サイトのモデレーターによって最小化されました
ドロップダウンリストの複数選択の作成を続行できません。 チュートリアルを聞いて資料を読みましたが、まだ作成できません。 誰かが私を助けてくれますか?
このコメントは、サイトのモデレーターによって最小化されました
これは完全にランダムである可能性があることはわかっていますが、VBAのバリエーションを問題なく使用しています。 5ページを除いて、最初の6つのオプションを選択すると、4番目のオプションを選択できなくなります。 XNUMX番目のオプションではなく、XNUMX番目、XNUMX番目などを選択できます。 考え?
このコメントは、サイトのモデレーターによって最小化されました
ハイ・ロバート、
コードをテストしましたが、おっしゃるように問題は見つかりませんでした。 使用しているExcelのバージョンを教えてください。 コメントありがとうございます。
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

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