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.

Související články:

Nejlepší nástroje pro produktivitu v kanceláři

	Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
	Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
	Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
	Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
	Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
	Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50 + Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své excelentní dovednosti pomocí Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

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

---

Office Tab Přináší rozhraní s kartami do Office 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 snižuje stovky kliknutí myší každý den!

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