Jak vytvořit rozevírací seznam s více zaškrtávacími políčky v aplikaci Excel?

Mnoho uživatelů aplikace Excel má tendenci vytvářet rozevírací seznam s více zaškrtávacími políčky, aby vybrali více položek ze seznamu najednou. Ve skutečnosti nemůžete vytvořit seznam s více zaškrtávacími políčky pomocí Ověření dat. V tomto kurzu vám ukážeme dvě metody vytvoření rozevíracího seznamu s více zaškrtávacími políčky v aplikaci Excel.

Pomocí seznamu vytvořte rozevírací seznam s více zaškrtávacími políčky
Odpověď: Vytvořte seznam se zdrojovými daty
B: Pojmenujte buňku, ve které najdete vybrané položky
C: Vložte tvar, který pomůže výstupu vybraných položek
Snadno vytvářejte rozevírací seznam se zaškrtávacími políčky pomocí úžasného nástroje
Další výukové programy pro rozevírací seznam ...

Pomocí seznamu vytvořte rozevírací seznam s více zaškrtávacími políčky

Jak je ukázáno níže, v aktuálním listu budou zdrojovými daty seznamu všechny názvy v rozsahu A2: A11. Kliknutím na tlačítko v buňce C4 můžete vypsat vybrané položky a všechny vybrané položky v seznamu se zobrazí v buňce E4. K dosažení tohoto cíle postupujte následovně.

A. Vytvořte seznam se zdrojovými daty

1. cvaknutí Vývojka > Vložit > Seznam (ovládací prvek Active X). Viz snímek obrazovky:

2. Nakreslete seznam do aktuálního listu, klikněte na něj pravým tlačítkem a vyberte Nemovitosti z nabídky pravého tlačítka myši.

3. V Nemovitosti dialogové okno, musíte nakonfigurovat následujícím způsobem.

• 3.1 V ListFillRange do pole zadejte rozsah zdroje, který se zobrazí v seznamu (zde zadám rozsah A2: A11);
• 3.2 V ListStyle zaškrtněte políčko 1 - Volba stylu fmList;
• 3.3 V Více násobný výběr zaškrtněte políčko 1 - fmMultiSelectMulti;
• 3.4 Zavřete Nemovitosti dialogové okno. Viz snímek obrazovky:

B: Pojmenujte buňku, ve které najdete vybrané položky

Pokud potřebujete odeslat všechny vybrané položky do určené buňky, například E4, postupujte následovně.

1. Vyberte buňku E4, zadejte ListBoxOutput do Název Box a stiskněte tlačítko vstoupit klíč.

C. Vložte tvar, který pomůže výstupu vybraných položek

1. cvaknutí Vložit > Tvary > Obdélník. Viz obrázek:

2. Nakreslete do listu obdélník (zde nakreslím obdélník do buňky C4). Poté klikněte pravým tlačítkem na obdélník a vyberte Přiřadit makro z nabídky pravého tlačítka myši.

3. V Přiřadit makro dialogové okno, klepněte na tlačítko Nový .

4. V otvoru Microsoft Visual Basic pro aplikace v okně, nahraďte prosím původní kód v Modul okno s níže uvedeným kódem VBA.

Kód VBA: Vytvořte seznam s více zaškrtávacími políčky

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Poznámka: V kódu Obdélník 1 je název tvaru; ListBox1 je název seznamu; Zvolte Volby a Možnosti vyzvednutí jsou zobrazené texty tvaru; a ListBoxOutput je název rozsahu výstupní buňky. Můžete je změnit podle svých potřeb.

5. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

6. Kliknutím na tlačítko obdélníku rozbalíte nebo rozbalíte seznam. Když se seznam rozšiřuje, zkontrolujte položky v seznamu a poté znovu klikněte na obdélník, aby se všechny vybrané položky zobrazily do buňky E4. Viz níže demo:

7. A potom uložte sešit jako Sešit Excel MacroEnable pro opětovné použití kódu v budoucnu.

Vytvořte rozevírací seznam se zaškrtávacími políčky s úžasným nástrojem

Kromě výše uvedeného dema poskytujeme také podrobného průvodce, který ukazuje, jak použít tuto funkci k dosažení tohoto úkolu. Postupujte prosím následovně.

1. Otevřete list, který jste nastavili v rozevíracím seznamu pro ověření dat, klikněte na Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Nastavení. Viz obrázek:

2. V Rozevírací seznam s nastavením zaškrtávacích políček V dialogovém okně proveďte následující konfiguraci.

• 2.1) V Naneste na V části zadejte rozsah použití, kde vytvoříte zaškrtávací políčka pro položky v rozevíracím seznamu. Můžete zadat a určitý rozsah, aktuální list, aktuální sešit or všechny otevřené sešity na základě vašich potřeb.
• 2.2) V režim sekce, vyberte styl, kterým chcete vypsat vybrané položky;
• Tady je Upravit jako příklad, pokud zvolíte toto, hodnota buňky se změní na základě vybraných položek.
• 2.3) V oddělovač do pole zadejte oddělovač, který použijete k oddělení více položek;
• 2.4) V Směr textu sekce vyberte směr textu podle svých potřeb;
• 2.5) Klikněte na OK .

3. V posledním kroku klikněte na Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Povolit rozevírací seznam zaškrtávacích políček aktivovat tuto funkci.

Od nynějška, když kliknete na buňky s rozevíracím seznamem ve specifikovaném rozsahu, zobrazí se seznamové pole. Vyberte položky zaškrtnutím políček pro výstup do buňky, jak je ukázáno níže (ukázka je režim úprav) ).

Další podrobnosti o této funkci prosím navštivte zde.

  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...