Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?

Listele derulante tradiționale din Excel limitează utilizatorii la selecții individuale. Pentru a depăși această limitare și a permite selecții multiple, vom explora două metode practice de a crea liste drop-down cu mai multe casete de selectare.

Utilizați Casetă listă pentru a crea o listă verticală cu mai multe casete de selectare
R: Creați o casetă listă cu date sursă
B: Denumiți celula în care veți localiza elementele selectate
C: Introduceți o formă pentru a ajuta la afișarea elementelor selectate
Creați cu ușurință o listă verticală cu casete de selectare cu un instrument uimitor
Mai multe tutoriale pentru lista derulantă ...

Utilizați Casetă listă pentru a crea o listă verticală cu mai multe casete de selectare

După cum se arată în captura de ecran de mai jos, toate numele din intervalul A2:A11 din foaia de lucru curentă vor servi ca date sursă pentru caseta cu listă situată în celula C4. Făcând clic pe această casetă, se extinde lista de elemente pe care le puteți selecta, iar elementele selectate vor fi afișate în celula E4. Pentru a realiza acest lucru, urmați acești pași:

A. Creați o casetă listă cu date sursă

1. clic Dezvoltator > Insera > Casetă listă (Active X Control). Vedeți captura de ecran:

2. Desenați o casetă listă în foaia de lucru curentă, faceți clic dreapta pe ea și apoi selectați Proprietăţi din meniul cu clic dreapta.

3. În Proprietăţi casetă de dialog, trebuie să configurați după cum urmează.

• 3.1 În ListFillRange , introduceți intervalul sursă pe care îl veți afișa în listă (aici introduc intervalul A2: A11);
• 3.2 În ListStyle selectați 1 - fmList StyleOption;
• 3.3 În Selectare multipla selectați 1 - fmMultiSelectMulti;
• 3.4 Închideți Proprietăţi căsuță de dialog. Vedeți captura de ecran:

  

B: Denumiți celula în care veți localiza elementele selectate

Dacă trebuie să trimiteți toate elementele selectate într-o celulă specificată, cum ar fi E4, vă rugăm să procedați după cum urmează.

1. Selectați celula E4, introduceți ListBoxOutput în Cutie de nume și apăsați tasta Intrați cheie.

C. Introduceți o formă pentru a ajuta la afișarea elementelor selectate

1. clic Insera > Forme > Dreptunghi. Vedeți captura de ecran:

2. Desenați un dreptunghi în foaia de lucru (aici desenez dreptunghiul din celula C4). Apoi faceți clic dreapta pe dreptunghi și selectați Atribuiți macro din meniul cu clic dreapta.

3. În Atribuiți macro , faceți clic pe Nou butonul.

4. În deschidere Microsoft Visual Basic pentru aplicații fereastra, înlocuiți codul original din Module fereastra cu codul VBA de mai jos.

Cod VBA: creați o listă cu mai multe casete de selectare

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

Notă: În cod, Dreptunghi1 este numele formei; ListBox1 este numele casetei de listă; Selectati optiunile si Opțiuni de preluare sunt textele afișate ale formei; si ListBoxOutput este numele intervalului celulei de ieșire. Le puteți schimba în funcție de nevoile dvs.

5. presa Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

6. Făcând clic pe butonul dreptunghi, caseta cu listă va fi pliată sau extinsă. Când caseta cu listă este extinsă, selectați elementele dorite bifându-le. Apoi, faceți clic din nou pe dreptunghi pentru a scoate toate elementele selectate în celula E4. Vezi demo-ul de mai jos:

7. Și apoi salvați registrul de lucru ca Cartea de lucru Excel MacroEnable pentru refolosirea codului în viitor.

Creați o listă verticală cu casete de selectare cu un instrument uimitor

V-ați săturat de codarea complexă VBA? Kutools pentru Excel simplifică crearea de liste derulante cu casete de selectare pentru o selecție multiplă fără întreruperi. Perfect pentru sondaje, filtrarea datelor sau formulare dinamice, acest instrument ușor de utilizat vă simplifică fluxul de lucru și vă economisește timp.

1. Deschideți foaia de lucru pe care ați setat lista verticală de validare a datelor, faceți clic pe Kutools > Lista verticală > Activați Lista derulantă avansată. Apoi apasa  Listă derulantă cu casete de selectare de la Lista verticală din nou. Vedeți captura de ecran:

2. În Adăuga Casete de verificare la lista derulantă casetă de dialog, vă rugăm să configurați după cum urmează.

• 2.1) Selectați celulele care conțin lista derulantă;
• 2.2) În Separator caseta, introduceți un delimitator pe care îl veți utiliza pentru a separa mai multe elemente;
• 2.3) Verificați Activați căutarea opțiune după cum aveți nevoie. (Dacă bifați această opțiune, puteți efectua o căutare mai târziu în lista derulantă.)
• 2.4) Faceți clic pe OK butonul.

  

De acum înainte, când faceți clic pe celula cu listă derulantă, va apărea o casetă de listă, vă rugăm să selectați elementele bifând casetele de selectare pentru a le afișa în celulă, așa cum se arată în demonstrația de mai jos.

Pentru mai multe detalii despre această caracteristică, vă rugăm să vizitați acest tutorial.

Acest articol oferă două metode pentru a vă ajuta să creați cu ușurință liste derulante cu casete de selectare în Excel. Îl poți alege pe cel pe care îl preferi. Dacă sunteți interesat să explorați mai multe sfaturi și trucuri Excel, site-ul nostru oferă mii de tutoriale.

Legate de articole: