Hoe maak ik een vervolgkeuzelijst met meerdere selectievakjes in Excel?

Veel Excel-gebruikers hebben de neiging om een ​​vervolgkeuzelijst te maken met meerdere selectievakjes om meerdere items uit de lijst per keer te selecteren. Eigenlijk kunt u met Gegevensvalidatie geen lijst met meerdere selectievakjes maken. In deze zelfstudie laten we u twee methoden zien om een ​​vervolgkeuzelijst met meerdere selectievakjes in Excel te maken.

Gebruik keuzelijst om een ​​vervolgkeuzelijst met meerdere selectievakjes te maken
A: Maak een keuzelijst met brongegevens
B: Geef de cel een naam waarin u de geselecteerde items zult vinden
C: Voeg een vorm in om de geselecteerde items te helpen uitvoeren
Maak eenvoudig een vervolgkeuzelijst met selectievakjes met een geweldige tool
Meer tutorials voor vervolgkeuzelijst ...

Gebruik keuzelijst om een ​​vervolgkeuzelijst met meerdere selectievakjes te maken

Zoals onderstaand screenshot laat zien, zijn in het huidige werkblad alle namen in het bereik A2: A11 de brongegevens van de keuzelijst. Klik op de knop in cel C4 om de geselecteerde items uit te voeren, en alle geselecteerde items in de keuzelijst worden weergegeven in cel E4. Ga hiervoor als volgt te werk.

A. Maak een keuzelijst met brongegevens

1. klikken Ontwikkelaar > Invoegen > Keuzelijst (Active X Control). Zie screenshot:

2. Teken een keuzelijst in het huidige werkblad, klik er met de rechtermuisknop op en selecteer Vastgoed vanuit het rechtsklikmenu.

3. In de Vastgoed dialoogvenster, moet u als volgt configureren.

• 3.1 In het LijstVullenBereik vak, voer het bronbereik in dat u in de lijst wilt weergeven (hier voer ik het bereik in A2: A11);
• 3.2 In het Lijststijl vak, selecteer 1 - optie fmList-stijl;
• 3.3 In het Meerkeuze selectie vak, selecteer 1 - fmMultiSelectMulti;
• 3.4 Sluit het Vastgoed dialoog venster. Zie screenshot:

B: Geef de cel een naam waarin u de geselecteerde items zult vinden

Als u alle geselecteerde items naar een gespecificeerde cel zoals E4 wilt uitvoeren, doet u het volgende.

1. Selecteer de cel E4, voer in ListBoxOutput in de Naam Box en druk op de Enter sleutel.

C. Voeg een vorm in om de geselecteerde items te helpen uitvoeren

1. klikken Invoegen > Vormen > Rechthoek. Zie screenshot:

2. Teken een rechthoek in je werkblad (hier teken ik de rechthoek in cel C4). Klik vervolgens met de rechtermuisknop op de rechthoek en selecteer Wijs macro toe vanuit het rechtsklikmenu.

3. In de Wijs macro toe dialoogvenster, klik op de Nieuw knop.

4. In de opening Microsoft Visual Basic voor toepassingen vervangt u de originele code in het Module venster met de onderstaande VBA-code.

VBA-code: maak een lijst met meerdere selectievakjes

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

Opmerking: In de code, Rechthoek 1 is de vormnaam; ListBox1 is de naam van de keuzelijst; Maak een keuze en Ophaalopties zijn de weergegeven teksten van de vorm; en de ListBoxOutput is de bereiknaam van de uitvoercel. U kunt ze wijzigen op basis van uw behoeften.

5. druk op anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

6. Klik op de rechthoekknop om de keuzelijst in of uit te vouwen. Wanneer de keuzelijst wordt uitgevouwen, vinkt u de items in de keuzelijst aan en klikt u nogmaals op de rechthoek om alle geselecteerde items naar cel E4 uit te voeren. Zie onderstaande demo:

7. En sla de werkmap vervolgens op als een Excel MacroEnable-werkmap voor het hergebruik van de code in de toekomst.

Maak een vervolgkeuzelijst met selectievakjes met een geweldige tool

Naast de bovenstaande demo bieden we ook een stapsgewijze handleiding om te demonstreren hoe u deze functie kunt toepassen om deze taak te volbrengen. Ga als volgt te werk.

1. Open het werkblad waarvoor u de vervolgkeuzelijst voor gegevensvalidatie hebt ingesteld, klik op Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Instellingen. Zie screenshot:

2. In de Vervolgkeuzelijst met selectievakjes Instellingen dialoogvenster, configureer dan als volgt.

• 2.1) In de Toepassen op specificeer het toepassingsbereik waar u selectievakjes voor items in de vervolgkeuzelijst gaat maken. U kunt een bepaald bereik, huidig ​​werkblad, huidige werkmap or alle geopende werkmappen op basis van uw behoeften.
• 2.2) In de Mode sectie, kies een stijl waarvan u de geselecteerde items wilt uitvoeren;
• Hier neemt de wijzigen optie als voorbeeld: als u hiervoor kiest, wordt de celwaarde gewijzigd op basis van de geselecteerde items.
• 2.3) In de Separator voer een scheidingsteken in dat u zult gebruiken om de meerdere items te scheiden;
• 2.4) In de Tekstrichting sectie, selecteer een tekstrichting op basis van uw behoeften;
• 2.5) Klik op de OK knop.

3. De laatste stap, klik op Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Schakel vervolgkeuzelijst met selectievakjes in om deze functie te activeren.

Vanaf nu, wanneer u op de cellen met een vervolgkeuzelijst in een opgegeven bereik klikt, verschijnt er een keuzelijst.Selecteer items door de selectievakjes aan te vinken om naar de cel uit te voeren zoals de onderstaande demo laat zien (neem de Modify-modus als voorbeeld ).

Voor meer informatie over deze functie, bezoek hier.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Gerelateerde artikelen:

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...