Hogyan hozható létre legördülő lista több jelölőnégyzettel az Excelben?

Sok Excel felhasználó hajlamos többszörös jelölőnégyzetekkel rendelkező legördülő listát létrehozni annak érdekében, hogy egyszerre több elemet jelöljön ki a listából. Valójában nem hozhat létre több jelölőnégyzetet tartalmazó listát az adatellenőrzéssel. Ebben az oktatóanyagban két módszert mutatunk be az Excel több jelölőnégyzettel rendelkező legördülő lista létrehozására.

A Lista mező segítségével hozzon létre egy több jelölőnégyzetet tartalmazó legördülő listát
V: Hozzon létre egy listát a forrásadatokkal
B: Nevezze meg azt a cellát, amelyen megtalálja a kijelölt elemeket
C: Helyezzen be egy alakzatot a kiválasztott elemek megjelenítéséhez
Könnyen létrehozhat legördülő listát jelölőnégyzetekkel egy csodálatos eszközzel
További útmutatók a legördülő listához ...

A Lista mező segítségével hozzon létre egy több jelölőnégyzetet tartalmazó legördülő listát

Amint az alábbi képernyőképen látható, az aktuális munkalapon az A2: A11 tartomány összes neve lesz a lista mező forrásadata. A C4 cellában található gombra kattintva a kiválasztott elemeket kinyomtathatja, és a listában az összes kijelölt elem megjelenik az E4 cellában. Ennek eléréséhez tegye a következőket.

A. Hozzon létre egy listát a forrásadatokkal

1. kettyenés Fejlesztő > betétlap > Lista mező (Active X Control). Lásd a képernyőképet:

2. Rajzoljon egy listát az aktuális munkalapra, kattintson rá a jobb gombbal, majd válassza ki Ingatlanok a jobb egérgombbal kattintva.

3. Ban,-ben Ingatlanok párbeszédpanelen az alábbiak szerint kell konfigurálnia.

• 3.1 A ListFillRange mezőbe írja be a listában megjeleníteni kívánt forrástartományt (itt adom meg a tartományt A2: A11);
• 3.2 A ListStyle doboz, válassza ki 1 - fmList StyleOption;
• 3.3 A Többszörös választás doboz, válassza ki 1 - fmMultiSelectMulti;
• 3.4 Zárja be a Ingatlanok párbeszédablak. Lásd a képernyőképet:

B: Nevezze meg azt a cellát, amelyen megtalálja a kijelölt elemeket

Ha az összes kijelölt elemet ki kell adnia egy meghatározott cellába, például E4, tegye a következőket.

1. Válassza ki az E4 cellát, írja be ListBoxOutput be a név Box és nyomja meg a gombot belép kulcs.

C. Helyezzen be egy alakzatot a kiválasztott elemek megjelenítéséhez

1. kettyenés betétlap > Alakzatok > Téglalap. Lásd screenshot:

2. Rajzoljon egy téglalapot a munkalapjára (itt a téglalapot rajzolom a C4 cellába). Ezután kattintson a jobb gombbal a téglalapra, és válassza a lehetőséget Hozzárendelje a Makrót a jobb egérgombbal kattintva.

3. Ban,-ben Hozzárendelje a Makrót párbeszédpanelen kattintson a Újszerű gombot.

4. A nyílásban Microsoft Visual Basic for Applications ablakban, kérjük, cserélje ki az eredeti kódot a Modulok ablak az alábbi VBA kóddal.

VBA kód: Hozzon létre egy listát több jelölőnégyzettel

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

Jegyzet: A kódban Téglalap1 az alak neve; ListBox1 a lista mező neve; Válasszuk az Opciók lehetőséget és a Átvételi lehetőségek az alakzat megjelenített szövegei; és a ListBoxOutput a kimeneti cella tartományneve. Az igényei alapján megváltoztathatja őket.

5. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

6. Kattintson a téglalap gombra a listamező felhajtásához vagy kibontásához. Amikor a listamező bővül, ellenőrizze a listában szereplő elemeket, majd kattintson ismét a téglalapra, hogy az összes kijelölt elem megjelenjen az E4 cellában. Lásd az alábbi bemutatót:

7. Ezután mentse a munkafüzetet mint Excel MacroEnable munkafüzet a kód jövőbeni újrafelhasználása érdekében.

Készítsen legördülő listát egy jelölőnégyzetekkel egy csodálatos eszközzel

A fenti bemutató mellett lépésről-lépésre útmutatót is nyújtunk, amely bemutatja, hogyan lehet ezt a funkciót alkalmazni a feladat eléréséhez. Kérjük, tegye a következőket.

1. Nyissa meg azt a munkalapot, amelyre beállította az adatok ellenőrzése legördülő listát, majd kattintson a gombra Kutools > Legördülő lista > Legördülő lista jelölőnégyzetekkel > Beállítások. Lásd screenshot:

2. Ban,-ben A legördülő listában található jelölőnégyzetek beállításai párbeszédpanelt, kérjük, konfigurálja az alábbiak szerint.

• 2.1) A Alkalmazza szakaszban adja meg az alkalmazási kört, ahol a legördülő listában szereplő elemekhez jelölőnégyzeteket fog létrehozni. Megadhatja a bizonyos tartomány, aktuális munkalap, aktuális munkafüzet or az összes kinyitott munkafüzet az Ön igényeinek.
• 2.2) A Mód szakaszban válasszon ki egy stílust, amelyet a kijelölt elemek kimenetéhez kíván megjeleníteni;
• Itt tart a módosít opciót, ha ezt választja, akkor a cella értéke megváltozik a kiválasztott elemek alapján.
• 2.3) A szétválasztó mezőbe írjon be egy elválasztót, amelyet a több elem szétválasztásához használ;
• 2.4) A Szövegirány szakaszban válasszon ki egy szövegirányt az igényei alapján;
• 2.5) Kattintson a gombra OK gombot.

3. Kattintson az utolsó lépésre Kutools > Legördülő lista > Legördülő lista jelölőnégyzetekkel > A jelölőnégyzetek legördülő listájának engedélyezése a funkció aktiválásához.

Mostantól, amikor egy meghatározott hatókörű legördülő listával rendelkező cellákra kattint, megjelenik egy listamező, kérjük, jelölje ki az elemeket, jelölje be a cellába kimenő jelölőnégyzeteket, az alábbi bemutató szerint (vegye példának a Módosítás módot ).

A funkcióval kapcsolatos további részletek: kérjük, látogasson el ide.

Kapcsolódó cikkek: