Kā izveidot Multi Select ListBox programmā Excel (ar vienkāršiem soļiem)

Hugh West

18-10-2023 Makroprogrammas & amp; Excel VBA
  • Dalīties Ar Šo
Hugh West

Strādājot ar lielu datu kopu, bieži vien ir grūti no tās iegūt kādu selektīvu vērtību. Turklāt jūs nevarat izvēlēties vairāk nekā vairākus informācijas elementus vienlaikus. Šajā gadījumā, ListBox ir ļoti noderīgs risinājums Excel . Bet šī procesa izveides process ListBox Tāpēc šajā rakstā mēs uzzināsim, kā izveidot vairāku atlases veidu. ListBox programmā Excel, izmantojot dažas vienkāršas darbības.

Lejupielādēt Practice Workbook

Iegūstiet parauga failu, lai praktizētos.

Multi Select ListBox.xlsm

Soli pa solim procedūras, lai izveidotu Multi Select ListBox programmā Excel

Lai atvieglotu procesu, esam to sadalījuši šādās sadaļās. 8 soļus, lai labāk izprastu. Tātad, bez turpmākas kavēšanās, ķersimies pie tālāk aprakstītajiem soļiem, lai redzētu, kā mēs varam izveidot vairāku atlases veidu. ListBox programmā Excel.

1. solis: Excel tabulas izveide no datu kopas

Sākotnēji mums ir jāsagatavo datu kopa un jāpārveido tā tabulā. Lai to izdarītu, izpildiet tālāk aprakstītās darbības.

  • Vispirms izveidojiet datu kopu ar informāciju par 10 pilsētu nosaukumi un to Kopējais iedzīvotāju skaits no ASV līdz 1. jūlijs in the Šūnu diapazons B5:C14 .

  • Tagad noklikšķiniet uz jebkuras datu kopas šūnas un izvēlieties Tabula no Ievietot cilne.

  • Pēc tam redzēsiet Izveidot tabulu logs, kas automātiski izvēlas šūnu diapazonu, lai izveidotu tabulu.
  • Šajā logā atzīmējiet Manā tabulā ir galvenes un nospiediet LABI .

  • Rezultātā redzēsiet, ka datu kopa ir pārveidota par tabulu.

  • Kopā ar to var atrast tabulu, kas atrodas Tabulas nosaukums lodziņā zem Galda dizains cilne

  • Tabulas nosaukumu varat mainīt atbilstoši savām vēlmēm.

Lasīt vairāk: Kā izveidot atkarīgu izlaižamo sarakstu programmā Excel

2. solis: Nosauciet datu kopu sarakstu no nosaukumu pārvaldnieka

Tagad mēs nosauksim katru tabulas šūnu diapazona kategoriju. Lai to izdarītu, izpildiet šos soļus.

  • Vispirms atlasiet jebkuru šūnu no B sleja tabulā.
  • Pēc tam dodieties uz Formulas cilni un izvēlieties Definēt nosaukumu .

  • Pēc tam redzēsiet Jauns nosaukums dialoglodziņš.
  • Šajā dialoglodziņā norādiet jebkuru nosaukumu atbilstoši izvēlētās kolonnas galvenei. Nosaukums kaste.

  • Pēc tam noklikšķiniet uz Attiecas uz lodziņā tajā pašā logā.
  • Pēc tam novietojiet kursoru virs galvenes, un tiks parādīta melna bultiņa.
  • Pēc tam nospiediet kreiso peles pogu, lai atlasītu Šūnu diapazons B5:B14 .

  • Rezultātā redzēsiet nosaukumu sarakstu kopā ar tabulas nosaukumu. Attiecas uz un nospiediet LABI .

  • Veiciet to pašu procedūru, lai Šūnu diapazons C5:C14 kā arī.
  • Visbeidzot, jūs redzēsiet nosaukumus Nosaukuma lodziņš darbgrāmatas augšējā kreisajā stūrī.

3. solis: Izveidot nolaižamo sarakstu ar datu validāciju

Šajā posmā mēs izveidosim nolaižamo sarakstu no nosauktajiem diapazoniem ar datu validāciju. Šī ir būtiska daļa, lai izveidotu izlaižamo sarakstu. ListBox . Mēs to izveidosim citā darbgrāmatā esošajā darblapā. Bet to var izdarīt arī tajā pašā darblapā. Aplūkosim procesu turpmāk.

  • Sākumā atlasiet dažas tabulas šūnas, kurām vēlaties piemērot Datu validēšana .
  • Pēc tam dodieties uz Dati cilni un izvēlieties Datu validēšana in the Datu rīki sadaļa.

  • Tālāk, sadaļā Iestatījumi cilnē izvēlieties Saraksts in the Atļaut kaste.

  • arī, zīme pārbaudīja Ignorēt tukšu un Izlaižamā rūtiņa šūnā kastes.

  • Pēc tam noklikšķiniet uz Avots: lodziņā šajā logā un nospiediet F3 uz tastatūras.
  • Rezultātā redzēsiet Pastas nosaukums dialoglodziņš ar nosaukumu sarakstu.
  • Šeit izvēlieties Pilsētu nosaukumi no saraksta un nospiediet LABI .

  • Pēc tam avota lodziņā tiks parādīts pirmā saraksta nosaukums.

  • Visbeidzot, nospiediet LABI un piemēro to pašu procesu otrajam nosaukumu sarakstam.
  • Visbeidzot, redzēsiet, ka Datu validēšana tiek aktivizēta atlasītajās šūnās.

4. solis: VBA koda ievietošana apstiprinātajā darblapā

Tagad nāk izšķirošā daļa - ievietot VBA kodu, lai izveidotu ListBox . Tālāk ir aprakstīts šis process.

  • Vispirms ar peles labo pogu noklikšķiniet uz apstiprinātās darblapas un atlasiet Skatīt kodu no Konteksta izvēlne .

  • Pēc tam ievietojiet šo kodu lapā. 
 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 = 3Tad strList = Target.Validation.Formula1 strList = Right(strList, Len(strList) - 1) strDVList = strList frmDVList.Show End If End If End If exitHandler: Application.EnableEvents = True End Sub

  • Pēc tam dodieties uz Ievietot cilni un izvēlieties Modulis .
  • Šajā brīdī darbgrāmatas nosaukumam jābūt atlasītam logā Projekta objekts logs.

  • Pēc tam pārdēvējiet moduli par modSettings un ievietojiet šo kodu. 
 Option Explicit Global strDVList As String

Paldies Konteksti par kodu sniegšanu.

5. solis: Izveidot lietotāja veidlapu ar sarakstu kastīti & amp; pogas

Šajā posmā mēs izveidosim Lietotāja veidlapa darba burtnīcai kopā ar ListBox un daži Komandu pogas . Lai to izdarītu, izpildiet tālāk aprakstīto procedūru.

  • Vispirms atlasiet darbgrāmatu Projekts-VBAProjekts logā Visual Basic redaktors.

  • Pēc tam dodieties uz Ievietot cilni un izvēlieties Lietotāja veidlapa .

  • Rezultātā jūs iegūsiet Lietotāja veidlapa šāda saskarne.

  • Līdz ar to jūs saņemsiet arī Toolbox logs.
  • No šejienes velciet ListBox uz Lietotāja veidlapa .

  • Tad ListBox Izmēru var pielāgot, velkot lodziņa malas.

  • Pēc tam velciet CommanButton divreiz, lai Lietotāja veidlapa kā arī, lai izveidotu 2 darbības pogas.

  • Visbeidzot, galīgais rezultāts izskatās šādi.

6. solis: Mainīt īpašību iestatījumus

Šajā posmā mēs veiksim dažas izmaiņas katra komponenta īpašībās. ListBox .

  • Sākumā nospiediet F4 par Visual Basic redaktoru, lai atvērtu Īpašību logs .
  • Pēc tam atlasiet Lietotāja veidlapa un mainīt Nosaukums un Virsraksts par to šādi.

  • Tālāk atlasiet ListBox un mainīt Nosaukums atbilstoši jūsu vēlmēm.

  • Turklāt mainiet ListStyle , MultiSelect un Īpašais efekts kā redzams attēlā zemāk.

  • Tagad izvēlieties pirmo komandu pogu un īpašībās veiciet šādas izmaiņas.

  • Papildus tam rediģējiet arī otrās komandas pogas īpašības.

7. solis: VBA koda piemērošana lietotājformai

Šajā posmā mēs piemērosim VBA kodus katrai no sastāvdaļām. Lietotāja veidlapa . Apskatīsim, kā tas darbojas.

  • Vispirms atlasiet Lietotāja veidlapa un dodieties uz Skatīt cilne, lai atlasītu Kods .

  • Pēc tam ievietojiet šo kodu tukšajā lapā. Tas tiks automātiski palaists, kad Lietotāja veidlapa ir atvērts. 
 Privātā apakšsadaļa UserForm_Initialize() Me.lstDV.RowSource = strDVList End Sub

  • Pēc tam dodieties atpakaļ uz Lietotāja veidlapa interfeisu, noklikšķinot uz Objekts par Skatīt cilne.

  • Tagad izpildiet šo procesu, lai ievietotu šo kodu, lai LABI pogu. 
 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 With ActiveCell If .Value "" Then .Value = ActiveCell.Value _ & strSep & strSelItems Else .Value = strSelItems End If End With Unload Me End Sub

  • Līdztekus ievadiet šo kodu, lai Aizvērt pogu, izmantojot to pašu procesu. 
 Privāts apakšsubsubs cmdClose_Click() Izkrauj mani End Sub

  • Visbeidzot, nospiediet Ctrl + S lai to saglabātu un aizvērtu logu.

Paldies Konteksti par palīdzību ar kodiem.

8. solis: Vairāku veidu atlase no ListBox

Visbeidzot, mēs esam veiksmīgi izveidojuši ListBox Lai pārbaudītu, vai kods darbojas, vienkārši izpildiet šos soļus.

  • Vispirms atlasiet Šūna B5 kur mēs piemērojām Datu validēšana .
  • Uzreiz pēc tam ListBox parādīsies logs, kas pieprasīs Izvēlieties vienumu no saraksta .
  • Šajā logā izvēlieties vairāk nekā vienu nosaukumu no saraksta.

  • Pēc tam nospiediet LABI .
  • Visbeidzot, esat veiksmīgi atlasījis vairākas sadaļas no ListBox un katrs nosaukums ir atdalīts ar K komats ( , ).

Lietas, kas jāatceras

  • Nosauktie diapazoni netiks izveidots Datu validēšana noteikums, ja tie ir ievadīti kā atsauce uz šūnām vai ar norobežotājiem.
  • Portāls Globālais mainīgais piemēro abiem Lietotāja veidlapa un Darba lapa VBA kods. Jebkuras aktīvās šūnas nosaukumam sākotnēji tiek piešķirts kods strDVList uz pagaidu diapazonu un pēc tam tiek izmantots kā RowSource par ListBox kad lietotājs atver Lietotāja veidlapa .
  • Lai atvieglotu atlasi, varat apvienot vairākus diapazonus vienā nosaukumā.

Secinājums

Uz šodienu tas ir viss. Es ceru, ka šie garie, bet vienkāršie soļi par to, kā izveidot multi select ListBox excel ir padarījuši šo tēmu jums nedaudz vieglāku. Dariet mums zināmas savas atsauksmes komentāru lodziņā. Sekojiet līdzi. ExcelWIKI lai uzzinātu vairāk šādu rakstu.

Iepriekšējais ieraksts Kā Excel programmā Excel saskaitīt šūnas ar tekstu (8 ātri triki)
Nākamais ieraksts Kā atņemt vairākas šūnas programmā Excel (6 efektīvas metodes)

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.