Iki šiol nagrinėjome kaip kurti išskleidžiamus sąrašus Excel programoje. Šiandien parodysiu kaip "Excel" sukurti išskleidžiamąjį sąrašą su keliais pasirinkimais .

Atsisiųsti praktikos sąsiuvinį

Praktikos sąsiuvinį galite atsisiųsti iš čia.

Išskleidžiamojo sąrašo kūrimo "Excel" programoje su keliais pasirinkimais žingsnis po žingsnio procedūros

Čia turime duomenų rinkinį, kurio stulpelis Knygos pavadinimas kuriame yra keletas knygų pavadinimų. Mūsų šios dienos tikslas - pagal šį duomenų rinkinį sukurti išskleidžiamąjį sąrašą, kuriame būtų galima atlikti kelis pasirinkimus. Toliau skirsnyje pateiksiu procedūras žingsnis po žingsnio.

1 ŽINGSNIS: Sukurkite išskleidžiamąjį sąrašą naudodami duomenų patvirtinimą

Norėdami sukurti išskleidžiamąjį sąrašą su keliais pasirinkimais, pirmiausia turime sukurti išskleidžiamąjį sąrašą. Peržiūrėkime procedūras.

• Pirmiausia pasirinkite ląstelę, kurioje norite sukurti išskleidžiamąjį sąrašą. Aš pasirinkau D5 langelis .

• Tada eikite į Duomenys skirtuką ir pasirinkite Duomenų patvirtinimas iš juostelės.

• Tada iš Duomenų patvirtinimas langą, pasirinkite Sąrašas svetainėje Leisti ir įrašykite diapazono langelius, kurių duomenis norite įtraukti į sąrašą. Šaltinis srityje.
• Taip pat galite spustelėti mažą rodyklę į viršų, esančią Šaltinis skyrių ir pasirinkite duomenų intervalą iš darbalapio.

• Galiausiai pamatysime išskleidžiamąjį sąrašą, sukurtą D5 langelis .

Panašūs skaitiniai:

• Kaip sudaryti išskleidžiamąjį sąrašą "Excel" programoje (nepriklausomas ir priklausomas)
• Kelių pasirinkimų atlikimas iš išskleidžiamojo sąrašo programoje "Excel" (3 būdai)
• Kaip sukurti priklausomą išskleidžiamąjį sąrašą programoje "Excel
• Išskleidžiamojo sąrašo sukūrimas keliuose "Excel" stulpeliuose (3 būdai)

2 ŽINGSNIS: Išskleidžiamojo sąrašo įjungimas, kad būtų galima pasirinkti kelis pasirinkimus, naudojant VBA kodą

Jau sukūrėme išskleidžiamąjį sąrašą. Dabar metas paruošti išskleidžiamąjį sąrašą keliems pasirinkimams. Naudosiu 2 VBA kodai, leidžiantys sąraše priimti kelis pasirinkimus. Vienas iš jų priims duomenų pasikartojimą, o kitas - nepriims duomenų pasikartojimo.

1 atvejis: VBA kodas, skirtas keliems pasirinkimams su pakartojimu

Šiame skyriuje parodysiu, kaip sukurti išskleidžiamąjį sąrašą su keliais pasirinkimais, kuriame duomenys bus kartojami.

Peržiūrėkime procedūras.

• Pirmiausia paspauskite ALT + F11 atidaryti VBA langas.
• Tada pasirinkite Projekto tyrėjas . Taip pat, dvigubas - spustelėkite lape, kuriame norite atlikti užduotį.

• Tuo pat metu Kodas bus atidarytas langas.
• Po to tame lange įrašykite šį kodą.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Galiausiai grįžkite į darbalapį ir galėsime išskleidžiamajame sąraše pasirinkti kelis elementus, kuriuose kartojasi tas pats elementas.

2 atvejis: VBA kodas, skirtas daugkartiniam pasirinkimui be pasikartojimų

Šiame skyriuje parodysiu, kaip sukurti išskleidžiamąjį sąrašą su keliais pasirinkimais, kuriame nereikės kartoti duomenų.

Peržiūrėkime procedūras.

• Pirmiausia paspauskite ALT + F11 atidaryti VBA langas.
• Tada pasirinkite Projekto tyrėjas . Taip pat, dvigubas - spustelėkite lape, kuriame norite atlikti užduotį.

• Tuo pat metu Kodas pasirodys langas.
• Po to tame lange įveskite šį kodą.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Galiausiai grįžkite į darbalapį ir galėsime išskleidžiamajame sąraše pasirinkti kelis elementus, nekartojant to paties elemento.

Išvada

Taikydami šį metodą galite "Excel" programoje sukurti išskleidžiamąjį sąrašą su keliais pasirinkimais. Turite klausimų? Drąsiai praneškite mums komentarų skiltyje. Apsilankykite mūsų ExcelWIKI svetainė daugiau straipsnių apie "Excel" .