Kako ustvariti več izbirno polje ListBox v Excelu (z enostavnimi koraki)

Hugh West

18-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Ko delamo z velikim naborom podatkov, je pogosto težko iz njega izluščiti katero koli selektivno vrednost. Poleg tega ne morete izbrati več kot več informacij hkrati. V tem primeru ListBox je zelo koristna rešitev v Excel . Toda proces ustvarjanja tega ListBox zato se bomo v tem članku naučili, kako ustvariti večizbirno ListBox v Excelu z nekaj preprostimi koraki.

Prenesi delovni zvezek za prakso

Pridobite vzorčno datoteko za vadbo.

Večkratni izbor ListBox.xlsm

Postopki korak za korakom za ustvarjanje več izbirnega seznama v Excelu

Da bi olajšali postopek, smo ga razdelili na 8 za boljše razumevanje. Zato brez nadaljnjega odlašanja začnimo s spodnjimi koraki in si oglejmo, kako lahko ustvarimo večizbirni ListBox v Excelu.

Korak 1: Ustvarjanje Excelove tabele iz podatkovnega niza

Na začetku moramo pripraviti vzorčni nabor podatkov in ga pretvoriti v tabelo. Za to sledite spodnjim korakom.

  • Najprej ustvarite nabor podatkov s podatki o 10 imen mest in njihove Celotno prebivalstvo o ZDA do 1, julij v Razpon celic B5:C14 .

  • Zdaj kliknite na katero koli celico podatkovnega niza in izberite Tabela iz Vstavite zavihek.

  • Nato boste videli Ustvari tabelo ki samodejno izbere območje celic za ustvarjanje tabele.
  • V tem oknu označite Moja tabela ima glave in pritisnite V REDU .

  • Rezultat je, da se podatkovna zbirka pretvori v tabelo.

  • Poleg tega lahko tabelo najdete v Ime mize v polju pod Oblikovanje mize zavihek

  • Ime tabele lahko spremenite po lastnih željah.

Preberite več: Kako ustvariti odvisni spustni seznam v Excelu

Korak 2: Poimenovanje seznama zbirk podatkov iz Upravitelja imen

Zdaj bomo poimenovali vsako kategorijo območja celic iz tabele. Pri tem upoštevajte naslednje korake.

  • Najprej izberite katero koli celico iz Stolpec B v tabeli.
  • Nato pojdite v Formule in izberite zavihek Opredelitev imena .

  • Po tem se prikaže Novo ime pogovorno okno.
  • V tem pogovornem oknu vnesite poljubno ime v skladu z izbranim naslovom stolpca v Ime škatla.

  • Nato kliknite na Nanaša se na v istem oknu.
  • Nato postavite kazalec nad glavo in prikazala se bo črna puščica.
  • Nato pritisnite levi klik, da izberete Razpon celic B5:B14 .

  • Seznam imen se bo skupaj z imenom tabele prikazal v polju Nanaša se na in pritisnite V REDU .

  • Enako ravnajte za Razpon celic C5:C14 prav tako.
  • Na koncu boste videli imena v Polje za ime v zgornjem levem kotu delovnega zvezka.

Korak 3: Ustvarjanje spustnega seznama z validacijo podatkov

Na tej stopnji bomo iz poimenovanih območij ustvarili spustni seznam s preverjanjem podatkov. To je bistveni del ustvarjanja ListBox . to bomo ustvarili v drugem delovnem listu v delovnem zvezku. vendar lahko to storite tudi v istem delovnem listu. v nadaljevanju si oglejmo postopek.

  • Na začetku izberite nekaj celic v tabeli, v katerih želite uporabiti Potrjevanje podatkov .
  • Nato pojdite v Podatki in izberite zavihek Potrjevanje podatkov v Podatkovna orodja oddelek.

  • Nato v Nastavitve izberite zavihek Seznam v Omogočite škatla.

  • Označite tudi preverjeno Ignoriranje praznega prostora in . Spust v celici škatle.

  • Nato kliknite na Vir: v tem oknu in pritisnite F3 na tipkovnici.
  • Tako boste videli Ime paste pogovorno okno s seznamom imen.
  • Tu izberite Imena mest s seznama in pritisnite V REDU .

  • Nato se v polju vira prikaže ime prvega seznama.

  • Na koncu pritisnite V REDU in uporabite enak postopek za drugi seznam imen.
  • Nazadnje boste videli, da Potrjevanje podatkov se aktivira v izbranih celicah.

Korak 4: Vstavite kodo VBA v potrjen delovni list

Zdaj je ključni del vstavljanje VBA kodo za ustvarjanje ListBox . V nadaljevanju je opisan postopek za to.

  • Najprej desno kliknite na potrjeni delovni list in izberite Prikaži kodo iz Kontekstni meni .

  • Nato na stran vstavite to kodo. 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngDV As Range Dim oldVal As String Dim newVal As String Dim strList As String On Error Resume Next Application.EnableEvents = False Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Not Intersect(Target, rngDV) Is Nothing Then If Target.Validation.Type = 3Potem strList = Target.Validation.Formula1 strList = Right(strList, Len(strList) - 1) strDVList = strList frmDVList.Show End If End If exitHandler: Application.EnableEvents = True End Sub

  • Nato pojdite v Vstavite in izberite zavihek Modul .
  • Na tej točki mora biti ime delovnega zvezka izbrano v Predmet projekta okno.

  • Nato modul preimenujte v modSettings in vstavite to kodo. 
 Explicitna možnost Global strDVList As String

Zahvaljujoč Konteksti za zagotavljanje kod.

Korak 5: Ustvarite uporabniški obrazec s seznamom in gumbi

Na tej stopnji bomo ustvarili Uporabniški obrazec za delovni zvezek skupaj z ListBox in nekaj Gumbi za ukaze . To storite tako, da sledite spodnjemu postopku.

  • Najprej izberite delovni zvezek v Projekt-VBAProjekt v oknu Visual Basic urednik.

  • Nato pojdite v Vstavite in izberite zavihek Uporabniški obrazec .

  • Tako boste dobili Uporabniški obrazec takšen vmesnik.

  • Poleg tega boste dobili tudi Zbirka orodij okno.
  • Od tu povlecite ListBox na Uporabniški obrazec .

  • Nato se ListBox Velikost lahko prilagodite tako, da povlečete robove polja.

  • Nato povlecite CommanButton dvakrat za Uporabniški obrazec tudi za ustvarjanje 2 gumbov za delovanje.

  • Končni rezultat je videti takole.

Korak 6: Spreminjanje nastavitev lastnosti

V tej fazi bomo nekoliko spremenili lastnosti vsake komponente ListBox .

  • Na začetku pritisnite F4 na Visual Basic za odprtje urejevalnika Okno Lastnosti .
  • Nato izberite Uporabniški obrazec in spremenite Ime in . Naslov o tem takole.

  • Nato izberite ListBox in spremenite Ime po vaših željah.

  • Poleg tega spremenite vrsto ListStyle , MultiSelect in . Posebni učinek kot je prikazano na spodnji sliki.

  • Zdaj izberite prvi ukazni gumb in v lastnostih naredite naslednje spremembe.

  • Poleg tega uredite tudi lastnosti drugega gumba z ukazom.

Korak 7: Uporaba kode VBA v obrazcu UserForm

Na tej stopnji bomo uporabili VBA kode za vsako komponento Uporabniški obrazec . Poglejmo, kako deluje.

  • Najprej izberite Uporabniški obrazec in pojdite v Oglejte si izberite zavihek Koda .

  • Nato to kodo vstavite na prazno stran. Uporabniški obrazec je odprt. 
 Zasebni Sub UserForm_Initialize() Me.lstDV.RowSource = strDVList Končni Sub

  • Po tem se vrnite v Uporabniški obrazec vmesnik s klikom na Objekt na Oglejte si zavihek.

  • Zdaj sledite postopku za vstavitev te kode za V REDU gumb. 
 Private Sub cmdOK_Click() Dim strSelItems As String Dim lCountList As Long Dim strSep As String Dim strAdd As String Dim bDup As Boolean On Error Resume Next strSep = ", " With Me.lstDV For lCountList = 0 To .ListCount - 1 If .Selected(lCountList) Then strAdd = .List(lCountList) Else strAdd = "" End If strSelItems = "" Then strSelItems = strAdd Else If strAdd "" Then strSelItems = strSelItems_ & strSep & strAdd End If End If Next lCountList End With With ActiveCell If .Value "" Then .Value = ActiveCell.Value _ & strSep & strSelItems Else .Value = strSelItems End If End With Unload Me End Sub

  • Poleg tega vnesite to kodo za Zapri gumb z enakim postopkom. 
 Zasebni Sub cmdClose_Click() Razbremeni me Končni Sub

  • Na koncu pritisnite Ctrl + S da ga shranite in zaprete okno.

Zahvaljujoč Konteksti za pomoč pri kodah.

Korak 8: Večkratna izbira iz seznama

Končno smo uspešno ustvarili ListBox Če želite preveriti, ali koda deluje ali ne, preberite naslednje korake.

  • Najprej izberite Celica B5 kjer smo uporabili Potrjevanje podatkov .
  • Takoj za tem se je pojavil ListBox se bo pojavilo okno z ukazom Izberite element s seznama .
  • V tem oknu s seznama izberite več kot eno ime.

  • Nato pritisnite V REDU .
  • Končno ste uspešno izbrali več možnosti iz ListBox in vsako ime je ločeno z znakom vejica ( , ).

Stvari, ki si jih je treba zapomniti

  • Poimenovana območja ne bo ustvaril Potrjevanje podatkov če so vneseni kot sklic na celico ali z ločili.
  • Spletna stran Globalna spremenljivka se uporablja za oba Uporabniški obrazec in . Delovni list VBA Vsako ime aktivne celice na začetku posreduje kodo strDVList v začasno območje in se nato uporabi kot Vir vrstic za ListBox ko uporabnik odpre Uporabniški obrazec .
  • Za lažjo izbiro lahko v enem imenu združite več razponov.

Zaključek

To je za danes vse. Upam, da so ti dolgi, a preprosti koraki, kako ustvarite več izbir ListBox v programu Excel so vam to temo nekoliko olajšali. sporočite nam svoje povratne informacije v polju za komentarje. sledite ExcelWIKI za več podobnih člankov.

Prejšnja objava Kako štejem celice z besedilom v programu Excel (8 hitrih trikov)
Naslednja objava Kako odšteti več celic v Excelu (6 učinkovitih metod)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.