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

Tradiční rozevírací seznamy v aplikaci Excel omezují uživatele na jeden výběr. Abychom toto omezení překonali a umožnili vícenásobný výběr, prozkoumáme dva praktické způsoby vytváření rozevíracích seznamů s více zaškrtávacími políčky.

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 znázorněno na obrázku níže, všechny názvy v rozsahu A2:A11 v aktuálním listu budou sloužit jako zdrojová data pro pole se seznamem umístěným v buňce C4. Kliknutím na toto pole se rozbalí seznam položek, které můžete vybrat, a vybrané položky se zobrazí v buňce E4. Chcete-li toho dosáhnout, postupujte takto:

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 si 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 obdélníkové tlačítko složíte nebo rozbalíte seznam. Po rozbalení seznamu vyberte požadované položky zaškrtnutím. Poté znovu klikněte na obdélník, aby se všechny vybrané položky zobrazily do buňky E4. Podívejte se na ukázku níže:

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

Už vás nebaví složité kódování VBA? Kutools pro Excel usnadňuje vytváření rozevíracích seznamů se zaškrtávacími políčky pro bezproblémový vícenásobný výběr. Tento uživatelsky přívětivý nástroj, ideální pro průzkumy, filtrování dat nebo dynamické formuláře, zjednodušuje váš pracovní postup a šetří váš čas.

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

2. V přidat zaškrtávací políčka do rozevíracího seznamu V dialogovém okně proveďte následující konfiguraci.

• 2.1) Vyberte buňky obsahující rozevírací seznam;
• 2.2) V oddělovač do pole zadejte oddělovač, který použijete k oddělení více položek;
• 2.3) Zkontrolujte Povolit vyhledávání možnost, jak potřebujete. (Pokud zaškrtnete tuto možnost, můžete později provést vyhledávání v rozevíracím seznamu.)
• 2.4) Klikněte na OK .

  

Od nynějška, když klepnete na buňku s rozevíracím seznamem, zobrazí se okno se seznamem, vyberte položky zaškrtnutím políček, aby se výstup do buňky zobrazil jako ukázka níže.

Další podrobnosti o této funkci navštivte prosím tento tutoriál.

Tento článek poskytuje dvě metody, které vám pomohou snadno vytvořit rozevírací seznamy se zaškrtávacími políčky v aplikaci Excel. Můžete si vybrat, kterou preferujete. Pokud máte zájem prozkoumat další tipy a triky pro Excel, náš web nabízí tisíce výukových programů.

Související články: