Hur skapar jag rullgardinslista med flera kryssrutor i Excel?

Många Excel-användare tenderar att skapa rullgardinslista med flera kryssrutor för att välja flera objekt från listan per gång. Du kan faktiskt inte skapa en lista med flera kryssrutor med datavalidering. I den här handledningen kommer vi att visa dig två metoder för att skapa rullgardinslista med flera kryssrutor i Excel.

Använd listrutan för att skapa en listruta med flera kryssrutor
A: Skapa en listruta med källdata
B: Namnge cellen där du hittar de valda objekten
C: Infoga en form som hjälper till att mata ut de valda objekten
Skapa enkelt listrutan med kryssrutor med ett fantastiskt verktyg
Fler handledning för rullgardinsmenyn ...

Använd listrutan för att skapa en listruta med flera kryssrutor

Som nedanstående skärmdump visas, i det aktuella kalkylbladet, kommer alla namn i intervall A2: A11 att vara källdata i listrutan. Klicka på knappen i cell C4 för att mata ut de valda objekten, och alla valda objekt i listrutan visas i cell E4. Gör så här för att uppnå detta.

A. Skapa en listruta med källdata

1. klick Utvecklare > Insert > Listbox (Active X Control). Se skärmdump:

2. Rita en listruta i det aktuella kalkylbladet, högerklicka på den och välj sedan Fastigheter från högerklickmenyn.

3. I Fastigheter i dialogrutan måste du konfigurera enligt följande.

• 3.1 I ListFillRange rutan, ange källområdet du kommer att visa i listan (här anger jag intervall A2: A11);
• 3.2 I Liststil rutan, välj 1 - fmList StyleOption;
• 3.3 I Flera val rutan, välj 1 - fmMultiSelectMulti;
• 3.4 Stäng Fastigheter dialog ruta. Se skärmdump:

B: Namnge cellen där du hittar de valda objekten

Om du behöver mata ut alla markerade objekt till en angiven cell som E4, gör så här.

1. Välj cellen E4, ange ListBoxOutput i Namn Box och tryck på ange nyckel.

C. Infoga en form som hjälper till att mata ut de markerade objekten

1. klick Insert > Former > Rektangel. Se skärmdump:

2. Rita en rektangel i ditt kalkylblad (här ritar jag rektangeln i cell C4). Högerklicka sedan på rektangeln och välj Tilldela makro från högerklickmenyn.

3. I Tilldela makro dialogrutan, klicka på Ny knapp.

4. I öppningen Microsoft Visual Basic för applikationer fönstret, byt ut den ursprungliga koden i Modulerna fönster med VBA-koden nedan.

VBA-kod: Skapa en lista med flera kryssrutor

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

Notera: I koden, Rektangel1 är formnamnet; ListBox1 är namnet på listrutan; Alternativ och Pickupalternativ är de visade texterna av formen; och den ListBoxOutput är utdatacellens intervallnamn. Du kan ändra dem baserat på dina behov.

5. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

6. Klicka på rektangelknappen för att fälla eller expandera listrutan. När listrutan expanderar, markerar du objekten i listrutan och klickar sedan på rektangeln igen för att mata ut alla markerade objekt till cell E4. Se nedan demo:

7. Och spara sedan arbetsboken som en Excel Makroaktivera arbetsbok för att återanvända koden i framtiden.

Skapa rullgardinsmeny med kryssrutor med ett fantastiskt verktyg

Förutom ovanstående demo tillhandahåller vi också en steg-för-steg-guide för att visa hur du använder den här funktionen för att uppnå denna uppgift. Gör så här.

1. Öppna kalkylbladet som du har ställt in listrutan för datavalidering, klicka på Kutools > Listrutan > Listruta med kryssrutor > Inställningar. Se skärmdump:

2. I Listruta med inställningar för kryssrutor dialogrutan, konfigurera så här.

• 2.1) I Ansök till avsnittet, ange tillämpningsområdet där du skapar kryssrutor för objekt i listrutan. Du kan ange en visst intervall, nuvarande kalkylblad, aktuell arbetsbok or alla öppnade arbetsböcker baserat på dina behov.
• 2.2) I Läge avsnitt, välj en stil som du vill mata ut de valda objekten;
• Här tar Ändra alternativ som ett exempel, om du väljer detta kommer cellvärdet att ändras baserat på de valda objekten.
• 2.3) I Separator rutan, ange en avgränsare som du kommer att använda för att separera flera objekt;
• 2.4) I Textriktning avsnitt, välj en textriktning baserat på dina behov;
• 2.5) Klicka på OK knapp.

3. Klicka på det sista steget Kutools > Listrutan > Listruta med kryssrutor > Aktivera rullgardinslista med kryssrutor för att aktivera den här funktionen.

Från och med nu, när du klickar på cellerna med rullgardinsmenyn i ett angivet omfång, kommer en listruta att dyka upp, välj objekt genom att markera kryssrutorna för att matas ut i cellen som nedanstående demo visas (Ta modifieringsläget som ett exempel ).

För mer information om den här funktionen, besök här.

Relaterade artiklar:

---

De bästa Office-produktivitetsverktygen

Kutools for Excel Löser de flesta av dina problem och ökar din produktivitet med 80 %

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...