Listefelt i Excel VBA (eksempler) - Sådan oprettes lister i Excel?

Indholdsfortegnelse

Listefelt i VBA er en liste, der er tildelt en variabel, og listen har forskellige indgange at vælge på. Fra listefeltet kan vi vælge flere muligheder på én gang, listefelt kan laves til en brugerform i excel VBA ved at vælge listen boksindstilling og tegner den på brugerformularen til en listeboks, vi har et navngivet område, der har bestemte værdier til rådighed for at vælge i en listeboks.

Hvad er listefelt i Excel VBA?

En liste er en liste, hvorfra en bruger kan vælge et element. Listefelt i Excel VBA kan bruges, hvis du vil vise en liste over værdier, som brugerne kan vælge imellem.

Sådan oprettes lister i Excel?

Følg disse trin for at oprette listeboksen i Excel-regneark:

Først skal du aktivere fanen Udvikler til at udmærke sig synlig på båndet, så du kan komme til VBA- og ActiveX-kontrolkommandoerne. For at hente fanen Udvikler skal du åbne dialogboksen Excel-indstillinger , klikke på Tilpas bånd i Excel og markere afkrydsningsfeltet Udvikler.

  • Klik på Excel-båndet, vælg derefter fanen Udvikler, og klik derefter på Indsæt, og klik derefter på kontrolboksen Liste for at indsætte det nye listefelt i Excel-regnearket.
  • Derefter tegner du et rektangel i Excel-regnearket for at oprette listeboksen i Excel.
  • Mens du vælger Excel-listen, skal du klikke på fanen udvikler og vælge Egenskaber. Vinduet Egenskaber åbnes.
  • I vinduet Egenskaber skal du indstille Dage - det navngivne interval med hverdage for indstillingen Listefyldområde.
  • Klik i egenskaben Multi-Select, og vælg 1-fmMultiSelectMulti på rullelisten, som vist i nedenstående skærmbillede.
  • Klik i egenskaben List Style, og vælg 1-fmListStyleOption på rullelisten. Dette tilføjer afkrydsningsfelter til venstre for listeelementerne som vist i nedenstående skærmbillede.
  • Luk vinduet Egenskaber.

Du kan lukke designtilstand ved at klikke på designtilstand.

Sådan oprettes lister i Excel VBA?

Du kan overveje følgende eksempel for at få en bedre forståelse af VBA List Box:

Eksempel nr. 1

For at linke denne listeboks til en celle skal du højreklikke på listeboksen (sørg for, at designtilstand er valgt) og klikke på Egenskaber. Udfyld B17 for sammenkædet celle som vist i nedenstående skærmbillede.

Månedsliste navn som måned går til egenskaber og vælg liste udfyldningsområde som måned.

Data ændres i celle B17-celler, når du ændrer dit valg i listeboksen, som vist i nedenstående skærmbillede.

Eksempel 2 - Hvordan oprettes en listeboks på en brugerformular?

  • Gå til fanen Udvikler, og klik derefter på Visual Basic fra koden, eller tryk på Alt + F11.
  • Gå til menuen Indsæt, klik på UserForm.
  • Træk List Box Control på brugerformularen fra Toolbox.
  • Dobbeltklik på UserForm, og vælg brugerformularhændelsen som vist i nedenstående skærmbillede.
  • Tilføj nu følgende kode til mellemproceduren.

Privat underbrugerForm_Initialize ()

ListBox1.AddItem “MBA”

ListBox1.AddItem “MCA”

ListBox1.AddItem “MSC”

ListBox1.AddItem “MECS”

ListBox1.AddItem “CA”

Afslut sub

  • Tryk nu på 'F5' for at køre koden.

Eksempel # 3 - Sådan tilføjes en dynamisk listeboksstyring

Tilføj en dynamisk listebokskontrol på brugerformularen ved hjælp af VBA.

  • Tilføj en kommandoknap på brugerformularen fra værktøjskassen.
  • Højreklik på kommandoknappen, klik på egenskaber.
  • Skift kommandoknaptekst til 'Create_Listbox'
  • Dobbeltklik på kommandoknappen
  • Nu viser den følgende kode.

Privat underkommandoButton1_Click ()

Afslut sub

  • Ring til nedenstående procedure med navnet 'Add_Dynamic_Listbox' og find nedenstående procedure til at køre.

Sub Add_Dynamic_Listbox ()

'Tilføj dynamisk listeboks og tildel den til objektet' LstBx '

Indstil LstBx = UserForm3.Controls.Add (“Forms.ListBox.1”)

'Listeboksposition

LstBx venstre = 20

LstBx.Top = 10

Afslut sub

  • Klik nu på F5 for at køre makroen.
Hvordan tilføjes elementer til listebokskontrol i VBA?

Privat underindsats _Items _To_LstBox ()

ListBox1.AddItem “Item 1”

ListBox1.AddItem “Item 2”

ListBox1.AddItem “Item 3”

ListBox1.AddItem “Item 4”

ListBox1.AddItem “Item 5”

Afslut sub

Hvordan slettes emner fra listebokskontrol ved hjælp af VBA?

Under Clr_LstBx ()

UserForm3.ListBox1.Clear

Afslut sub

Eksempel 4

Antag, at vi har salgsdata, og at vi ønsker salgsoplysningerne for den grafiske brugergrænseflade ved at vælge valg af listeboks. Derefter skal vi ændre indekscelle som cellelink og anvende VLOOKUP-formlen for at hente salgsoplysningerne som vist i nedenstående skærmbilleder.

Ting at huske om listeboksen i Excel VBA

En listeboks i Excel kan bruges til at vælge flere emner fra den.

Interessante artikler...