Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?

Ve výchozím nastavení můžete z rozevíracího seznamu ověření dat v aplikaci Excel vybrat pouze jednu položku. Jak provést více výběrů z rozevíracího seznamu, jak je zobrazeno níže? Metody v tomto článku vám mohou pomoci problém vyřešit.

Vytvořte rozevírací seznam s více výběry pomocí kódu VBA
Snadno vytvářejte rozevírací seznam s více výběry pomocí úžasného nástroje
Další výukový program pro rozevírací seznam ...

Vytvořte rozevírací seznam s více výběry pomocí kódu VBA

Níže uvedený kód VBA můžete použít k provedení více výběrů z rozevíracího seznamu v listu v aplikaci Excel. Postupujte prosím následovně.

1. Otevřete list, který jste nastavili v rozevíracím seznamu ověření dat, klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky.

2. V Microsoft Visual Basic pro aplikace zkopírujte níže uvedený kód VBA do okna kódu. Viz snímek obrazovky:

Kód VBA: rozevírací seznam s více výběry

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. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Nyní můžete vybrat více položek z rozevíracího seznamu v aktuálním listu.

Poznámky:

• 1. V rozevíracím seznamu nejsou povoleny duplicitní hodnoty.
• 2. Při zavírání sešitu bude kód VBA automaticky odstraněn a vícenásobný výběr je již nepoužitelný. Uložte sešit jako Sešit se zvýšeným makra Excel aby kód fungoval i v budoucnu.

Snadno vytvářejte rozevírací seznam s více výběry pomocí úžasného nástroje

Zde velmi doporučujeme Multi-select rozevírací seznam vlastnost Kutools pro Excel pro tebe. Díky této funkci můžete snadno vybrat více položek z rozevíracího seznamu v zadaném rozsahu, aktuálním listu, aktuálním sešitu nebo ve všech otevřených sešitech, jak potřebujete.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools > Rozbalovací seznam > Multi-select rozevírací seznam > Nastavení. Viz obrázek:

2. V Multi-select Nastavení rozevíracího seznamu V dialogovém okně proveďte následující konfiguraci.

• 2.1) Upřesněte použitelný rozsah v Naneste na sekce. V tomto případě vyberu Aktuální list z Specifikovaný rozsah rozbalovací seznam;
• 2.2) V Směr textu sekce vyberte směr textu podle svých potřeb;
• 2.3) V oddělovač do pole zadejte oddělovač, který použijete k oddělení více hodnot;
• 2.4) Zkontrolujte Nepřidávejte duplikáty pole v možnosti sekce, pokud nechcete dělat duplikáty v buňkách rozevíracího seznamu;
• 2.5) Klikněte na OK knoflík. Viz screenshot:

3. Klikněte prosím Kutools > Rozbalovací seznam > Multi-select rozevírací seznam pro povolení této funkce.

Nyní můžete vybrat více položek z rozevíracího seznamu v aktuálním listu nebo v jakémkoli oboru, který jste zadali v kroku 2.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Související články:

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...