Excel VBA-sæt
“Sæt”, er et nøgleord, der bruges i VBA-programmering til at tildele en henvisning til et objekt eller celleområde, som vil forblive rettet i hele programmet eller koden i Excel. VBA-sæt hjælper dybest set os med at undgå gentagne indtastninger af det interval, vi er nødt til at vælge, mens koden udføres. I excel anvendes ”Set” for det meste på regneark / celleområde i et bestemt ark.
Syntaks:
Indstil objektnavn / variabel = Objekt / rækkevidde
Bemærk: Du skal have fanen Udvikler i excel-regnearket.Hvis du ikke kan se fanen "Udvikler" i Excel, se nedenfor:
Trin 1: Klik på File Option.
Trin 2: Drop-down vises, klik på fanen Indstillinger .
Trin 3: Når du klikker på “Indstillinger”, vises en dialogboks som vist nedenfor og klikker på indstillingen Tilpas bånd .
Trin 4: Når vi trækker ned i tilpasningsbåndindstillingerne, finder vi en mulighed for Udvikler, vi har brug for at markere det felt, der gør det muligt for os at bruge VBA i Excel.
Sådan bruges et sæt søgeord i VBA?
Nedenfor er de forskellige eksempler til brug af et sæt søgeord i Excel VBA.
Du kan downloade denne VBA-sæt Excel-skabelon her - VBA-sæt Excel-skabelonExcel VBA-sæt - eksempel # 1
Vi skal tage et simpelt eksempel på et sæt søgeord i Excel VBA. Antag, at vi gerne vil vælge et interval og indstille det som fixinterval for at undgå gentagelse. Nedenfor er celleområdet, der indeholder navnene:
Følg nedenstående trin for at bruge indstillet nøgleord i Excel VBA:
Trin 1: Klik på fanen "Udvikler", og klik derefter på "Visual Basic" indstillingen i venstre side (første mulighed) som vist nedenfor.
Når du klikker på det, vises et nyt vindue som vist nedenfor:
Du vil bemærke, at den indeholder to faner i venstre side, “Ark1 (ark1)” og “Denne arbejdsbog”. Den eneste forskel er “Sheet1”, når du kun vil udføre kode for dette særlige ark, og i “ThisWorkbook” kan vi skrive en kode og udføre, som kan anvendes til hele Excel-projektmappen.
Trin 2: Dobbeltklik på “Sheet1 (Sheet1), og du vil se en tom skærm, hvor vi skal skrive koden. Først skal du erklære et delmateriale som undernavn og trykke på enter, så vil du se et undergruppe oprettet som vist nedenfor:
Kode:
Sub setexmp () End Sub
Dette er den måde, vi opretter et undersæt på, og automatisk vises "End Sub". Dette er som standard funktionen Excel. Hvis “End Sub” ikke vises, kører koden ikke og kaster en fejl.
Trin 3: Nu erklærer vi variabler, der skal bruges i koden.
Type Dim-variabelnavn og variabeltype. Her vil navnet være som identiteten af området og typen ville være, om det er som heltal, lang, streng, rækkevidde osv.
Kode:
Sub setexmp () Dim Rnst As Range End Sub
Her er "Rnst" et variabelt navn og tildeler (som) det som rækkevidde-funktion. Dette vil advare systemet om, at der ville blive valgt en rækkevidde.
Trin 4: Skriv derefter "Sæt" nøgleord og angiv et interval ved hjælp af formatet: Indstil variabel = Område ("celleområde") .
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") End Sub
Trin 5: Vi skal vælge dette specificerede rækkeområde. Derfor vælg vælg som Rnst.Select Refer skærmbillede nedenfor:
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select End Sub
Trin 6: Kør koden ved at trykke på F5 eller Run-knappen og se output.
Det vil vælge det specificerede interval, der er fra cellerne A2 til A11.
Excel VBA-sæt - eksempel # 2
Antag, at vi vil indsætte disse celler eller række i en anden celle. Vi skal bruge den samme kode som ovenfor og tilføje kode til at indsætte disse data i flere kolonner.
Følg nedenstående trin:
Trin 1: Nu kopierer vi området med celler, der er navnesøjlen. Skriv kopi dvs. "Rnst.Copy", når du skriver "Rnst." Vises en slags rulleliste. Det indeholder forskellige funktioner som kopi, indsæt osv.
Trin 2: Du kan rulle ned og vælge den ønskede funktion, du vil udføre. Her skal du bare skrive “Copy” som vist på skærmbilledet nedenfor:
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy End Sub
Trin 3: Kompilér koden ved at trykke på F8-tasten.
Når du først udfører denne kopifunktion, vil du se, at området i excel kopieres, og der vises stiplede linjer omkring celleområdet som vist nedenfor:
Trin 4: Nu er vi nødt til at indsætte disse celler, sige i tilstødende kolonner en ad gangen, så vi er nødt til at bruge en løkkefunktion “For” og formoder 5 gange, at vi har brug for at indsætte, så vi skriver den som vist nedenfor:
For heltal i = 1 til 5 -> angiver dette, hvor mange gange vi skal indsætte dataene. Hvis 5, så er 1 til 5 ellers alt, hvad der tæller du foretrækker.
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy For i = 1 til 5 End Sub
Trin 5: Vælg en celle, som du vil indsætte dette celleområde i. Antag, at vi vil begynde at indsætte fra kolonne B2 og derefter indsætte dataene skal være dynamiske, dvs. at de automatisk skal vælge tilstødende kolonner en efter en uden at overlappe hinanden. Derfor ville syntaksen være "Celle (række nummer, kolonnenummer). PasteSpecial".
Celler (2, i + 1). PasteSpecial, her, 2-> repræsenterer rækkenummeret og, i + 1 -> repræsenterer kolonnenummer. i + 1 betyder den første værdi af jeg erklæret i “For” -løkken er i = 1, og derfor vil kolonneværdien blive 2, den specificerer, at den begynder at indsætte fra kolonne B. Og når og når værdien øges, vil den fortsat vælge tilstødende kolonner en efter en.
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy For i = 1 til 5 celler (2, i + 1). PasteSpecial xlValues End Sub
Trin 6: Skriv “ Next i ”, hvilket betyder, at du øger værdien af “i” en ad gangen, så kolonnepladen forbliver dynamisk.
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy For i = 1 til 5 celler (2, i + 1). PasteSpecial xlValues Next i End Sub
Trin 7: Tryk på “F8” for at se koden udføre linje for linje og viser dig indsættelse af celle i tilstødende kolonner en efter en.
Her kan du se værdien af i er 1, og data er indsat i kolonne B efter ønske.
Trin 8: Når du nu trykker på “F8” igen, vil du se, at nu værdien af i er 2. Derfor bliver 2 + 1 til 3, og data indsættes i celle (2, 3), dvs. rækkeværdien er den samme, men kolonnen antal ændres som vist på skærmbilledet nedenfor:
Når gentagen loop er afsluttet, vil du se dataene indsat 5 gange, dvs. fra tælling 1 til 5, der begynder at indsætte fra kolonne B indtil kolonne F som vist nedenfor:
Excel VBA-sæt - eksempel # 3
Antag, at vi gerne vil vise et antal af antallet af celler i dette område i en meddelelsesboks, der vises med et klik på en knap. Vi tager de samme data som vist nedenfor.
Vi kører også dette eksemples kode i det nye ark. Tilføj derfor et nyt ark, og i VBA-vinduet vises det som nedenfor:
Vi bliver nødt til at indsætte en kommando-knapindstilling. Det er en funktion ved Excel, så følg nedenstående trin:
Trin 1: Indtast et undersætnavn, der siger “Setcount ()” som vist på skærmbilledet nedenfor:
Kode:
Sub Setcount () End Sub
Trin 2: Angiv den samme variabel "Rnct" som et interval i delmængden som vist på skærmbillede herunder:
Kode:
Sub Setcount () Dim Rnct Som Range End Sub
Trin 3: Skriv derefter "Sæt" nøgleordet og angiv et interval.
Kode:
Subindstillingsantal () Dim Rnct Som Range Set Rnct = Range ("A2: A11") End Sub
Trin 4: Nu, efter at vi har fastlagt området, er vi nødt til at se pop-up-boks eller dialogboks, der viser antallet af celler i området. Brug derfor “MsgBox” -funktionen, som ved udførelse vil en optælling vises i dialogboksen. Skriv "MsgBox variabel navn.antal". Øjeblikket efter indtastning af variabelnavnet vises derefter punkt (.), Der vises en rulleliste, der indeholder forskellige funktioner, og vi ville vælge “count” eller manuelt skrive “count”.
Skriv "MsgBox Rnct.count", og ved udførelse vises det tæller.
Trin 5: Nu vil vi indsætte en kommandoknap og ved at klikke på den knap, at meddelelsesfeltet skal vises.
Klik på "Indsæt" i fanen "Udvikler", som fremhævet i den røde boks, og du vil se en rulleliste af kategorien "Formkontroller". Klik på den allerførste rektangel-kasse-lignende form, som vi manuelt skal tegne og indsætte i excelark:
Trin 6: Når du klikker på rektangelfeltet, skal du tegne og indsætte kassen i ark, og når du først begynder at tegne, vises en dialogboks som vist nedenfor. Det er en "Tildel makro" -vindue-knap, og vælg undergruppen "Setcount" -delsættet. Klik på “OK”.
Dette betyder, at vi har tildelt tællemakro til denne knap. Og ved klik, udføres det.
Trin 7: Det vises som vist nedenfor i Excel.
Trin 8: Højreklik på det og omdøb det ved hjælp af indstillingen " Rediger tekst " som vist nedenfor:
Trin 9: Giv det et navn som "COUNT", og du vil se det i excel som tæller som vist nedenfor.
Trin 10: Klik derefter på knappen "COUNT": Når du klikker på "COUNT" -knappen, vises en meddelelsesboks som vist nedenfor:
Som vi kan se, er der 10 navne og har vist det rigtige nummer fra område A2 til A11.
Ting at huske
- Sørg for, at fanen “Udvikler” er indsat i Excel-bånd for at køre denne VBA-koder.
- 'Sæt' anvendes for det meste på regneark / celleområde i et bestemt ark.
Anbefalede artikler
Dette er en guide til VBA-sæt. Her diskuterer vi, hvordan man tildeler en henvisning til et objekt eller celleområde ved hjælp af excel VBA Set Keywords sammen med praktiske eksempler og downloadbar excel-skabelon. Herunder er nogle nyttige excel-artikler relateret til VBA -
- VBA Concatenate-funktion
- Vejledninger i Excel-ikonsæt
- Arbejder med rækkeceller i VBA
- Løs ligning i Excel