Excel VBA-sett
“Set”, er et nøkkelord som brukes i VBA-programmering for å tilordne en referanse til et objekt eller celleområde som kommer til å forbli fikse gjennom hele programmet eller koden i Excel. VBA-sett hjelper oss i grunn å unngå gjentagende innspill til rekkevidde vi trenger å velge mens vi kjører koden. I excel brukes “Set” stort sett på regneark / celleområdet i et bestemt ark.
syntaks:
Sett objektnavn / variabel = Objekt / Område
Merk: Du må ha Developer-fanen i Excel-regnearket.Hvis du ikke ser fanen "Utvikler" i Excel, kan du se trinnene nedenfor:
Trinn 1: Klikk på File Alternativ.
Trinn 2: Nedtrekksvindu vises. Klikk på Alternativer- fanen.
Trinn 3: Når du har klikket på “Alternativer”, vises en dialogboks som vist nedenfor og klikker på Tilpass bånd- alternativet.
Trinn 4: Når vi drar ned tilpasse båndalternativene, finner vi et alternativ for Developer, vi må merke av i den ruten som gjør at vi kan bruke VBA i Excel.
Hvordan bruker jeg et angitt nøkkelord i VBA?
Nedenfor er de forskjellige eksemplene du kan bruke angitt nøkkelord i Excel VBA.
Du kan laste ned denne VBA Set Excel Template her - VBA Set Excel TemplateExcel VBA-sett - eksempel # 1
Vi skal ta et enkelt eksempel på et Set-nøkkelord i Excel VBA. Anta at vi ønsker å velge et område og angi det som fix-område for å unngå gjentagelse. Nedenfor er celleområdet som inneholder navnene:
Følg trinnene nedenfor for å bruke angitt nøkkelord i Excel VBA:
Trinn 1: Klikk på "Utvikler" -fanen og klikk deretter på "Visual Basic" -alternativet på venstre side (første alternativ) som vist nedenfor.
Når du har klikket på det, vises et nytt vindu som vist nedenfor:
Du vil merke at den inneholder to faner på venstre side, “Ark1 (ark1)” og “Denne arbeidsboken”. Den eneste forskjellen er “Sheet1” når du bare vil utføre kode for dette bestemte arket, og i “ThisWorkbook” kan vi skrive en kode og utføre som kan brukes på hele Excel-arbeidsboka.
Trinn 2: Dobbeltklikk på “Sheet1 (Sheet1), og du vil se et blankt skjermbilde der vi trenger å skrive koden. Først erklærer du et underett som Sub- navn, og trykk Enter, så ser du et underett som er vist nedenfor:
Kode:
Sub setexmp () Slutt Sub
Dette er måten vi oppretter et undersett og automatisk vises "End Sub". Dette er som standard funksjon i Excel. Hvis "End Sub" ikke vises, vil ikke koden utføre og kaste en feil.
Trinn 3: Nå skal vi erklære variabler som skal brukes i koden.
Type Dim variabel navn og variabel type. Her vil navnet være som identiteten til rekkevidden og typen vil være enten som heltall, lang, streng, rekkevidde, etc.
Kode:
Sub setexmp () Dim Rnst As Range End Sub
Her er "Rnst" et variabelt navn og tilordner (som) det som Range-funksjon. Dette vil varsle systemet om at et utvalg vil bli gjort.
Trinn 4: Skriv deretter "Sett" nøkkelord og gi et område ved hjelp av formatet: Angi variabel = Område ("celleområde") .
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") End Sub
Trinn 5: Vi må velge dette spesifiserte radområdet. Skriv derfor inn valgt som Rnst.Select Refer skjermdump nedenfor:
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select End Sub
Trinn 6: Kjør koden ved å trykke på F5 eller Run-knappen og se utdataene.
Den vil velge det angitte området som er fra cellene A2 til A11.
Excel VBA-sett - eksempel # 2
Anta at vi vil lime inn disse cellene eller rekkevidde i en annen celle. Vi skal bruke samme kode som ovenfor og legge til kode for å lime inn dataene i flere kolonner.
Følg trinnene nedenfor:
Trinn 1: Nå kopierer vi området med celler som er navnekolonnen. Skriv inn kopi, dvs. "Rnst.Copy", når du skriver "Rnst.", Vises en slags rullegardin. Den inneholder forskjellige funksjoner som kopiere, lime, etc.
Trinn 2: Du kan bla ned og velge ønsket funksjon du vil utføre. Her skriver du bare "Copy" som vist på skjermdumpen nedenfor:
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy End Sub
Trinn 3: Sett sammen koden ved å trykke på F8-tasten.
En gang du utfører denne kopieringsfunksjonen, vil du se at i excel kopieres området og det vises stiplede linjer rundt celleområdet som vist nedenfor:
Trinn 4: Nå må vi lime inn disse cellene, si det i tilstøtende kolonner en etter en, så vi må bruke en sløyfe-funksjon “For” og antar at 5 ganger vi trenger å lime inn så vi skriver den som vist nedenfor:
For heltall i = 1 til 5 -> angir dette hvor mange ganger vi trenger å lime inn dataene. Hvis 5, så er 1 til 5, avhengig av hvilken telling du foretrekker.
Kode:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Select Rnst.Copy For i = 1 til 5 End Sub
Trinn 5: Velg en celle du vil lime inn dette celleområdet i. Anta at vi ønsker å begynne å lime inn fra kolonne B2 og deretter lime inn dataene skal være dynamiske, det vil si at de automatisk skal velge tilstøtende kolonner en etter en uten overlapping. Derfor vil syntaksen være "Cell (radnummer, kolonnenummer). PasteSpecial".
Celler (2, i + 1). PasteSpecial, her, 2-> representerer radnummeret og, i + 1 -> representerer kolonnenummer. i + 1 betyr den første verdien til jeg erklærte i “For” -løkken er i = 1, og derfor blir kolonneverdien 2, den spesifiserer at den begynner å lime fra kolonne B. Og når og når verdien øker vil den fortsette å velge tilstøtende kolonner en etter 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
Trinn 6: Skriv inn “ Neste i ” som betyr at du øker verdien på “i” én etter én slik at kolonnepakingen forblir 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
Trinn 7: Trykk “F8” for å se koden utføre linje for linje og viser deg liming av celle i tilstøtende kolonner en etter en.
Her kan du se verdien av i er 1 og data er limt inn i kolonne B etter ønske.
Trinn 8: Nå når du trykker på “F8” igjen, vil du se at nå er verdien av i 2. Derfor blir 2 + 1 til 3 og data limes inn i celle (2, 3), dvs. radverdien er den samme, men kolonnen antall endringer som vist på skjermdumpen nedenfor:
Etter at repetisjonssløyfen er fullført, vil du se dataene limt inn 5 ganger, dvs. fra telling 1 til 5 og begynner å lime fra kolonne B til kolonne F som vist nedenfor:
Excel VBA-sett - eksempel # 3
Anta at vi ønsker å vise en telling av antall celler i det området i en meldingsboks som vises med et klikk på en knapp. Vi skal ta de samme dataene som vist nedenfor.
Vi kjører også dette eksempelets kode i det nye arket. Legg derfor til et nytt ark, og i VBA-vinduet vil det vises som nedenfor:
Vi må sette inn et kommandoknappalternativ. Det er en funksjon av excel, så følg trinnene nedenfor:
Trinn 1: Skriv inn et delsettnavn si “Setcount ()” som vist på skjermdumpen nedenfor:
Kode:
Sub Setcount () Slutt Sub
Trinn 2: Angi den samme variabelen “Rnct” som et område i delmengden som vist på skjermdumpen nedenfor:
Kode:
Sub Setcount () Dim Rnct Som Range End Sub
Trinn 3: Skriv deretter "Sett" nøkkelord og gi et område.
Kode:
Sub Setcount () Dim Rnct As Range Set Rnct = Range ("A2: A11") End Sub
Trinn 4: Nå, etter å ha fikset området, må vi se popup-boksen eller dialogboksen som viser antall celler i området. Bruk derfor “MsgBox” -funksjonen som ved utførelse vil en telling vises i dialogboksen. Skriv inn "MsgBox variabel name.count". Øyeblikket etter at du har skrevet inn variabelenavnet, så prikk (.), Vises en rullegardin som inneholder forskjellige funksjoner, og vi vil velge “count” eller manuelt skrive “count”.
Skriv inn "MsgBox Rnct.count" og ved utførelse vil det vises som antall.
Trinn 5: Nå vil vi sette inn en kommandoknapp og ved å klikke på den knappen den meldingsboksen skal vises.
Klikk på "Sett inn" i "Utvikler" -fanen som uthevet i den røde boksen, og du vil se en rullegardin i kategorien "Formkontroller". Klikk på den aller første rektangelbokslignende formen som vi må tegne og sette inn i excelark manuelt:
Trinn 6: Når du klikker på rektangelboksen, tegner du inn boksen i arket, og når du begynner å tegne en dialogboks vises som vist nedenfor. Det er en "Tildel makro" -vinduet og velg “Setcount” -delsettmakroen. Klikk på “OK”.
Dette betyr at vi har tildelt tellemakro til denne knappen. Og når du klikker, vil den kjøres.
Trinn 7: Det vil vises som vist nedenfor i Excel.
Trinn 8: Høyreklikk på den og gi den nytt navn ved å bruke alternativet " Rediger tekst " som vist nedenfor:
Trinn 9: Gi den et navn som "COUNT", og du vil se det i excel som telling som vist nedenfor.
Trinn 10: Klikk deretter på "COUNT" -knappen: Når du har klikket på "COUNT" -knappen, vises en meldingsboks som vist nedenfor:
Som vi ser er det 10 navn og har vist riktig nummer fra område A2 til A11.
Ting å huske
- Forsikre deg om at du har "Utvikler" -fanen satt inn i Excel-bånd for å kjøre VBA-kodene.
- 'Sett' brukes mest på regneark / celleområdet i et bestemt ark.
Anbefalte artikler
Dette er en guide til VBA-sett. Her diskuterer vi hvordan du tilordner en referanse til et objekt eller celleområde ved å bruke excel VBA Set Keywords sammen med praktiske eksempler og nedlastbar excel-mal. Nedenfor er noen nyttige excel-artikler relatert til VBA -
- VBA Concatenate-funksjon
- Opplæringsprogram for Excel-ikonsett
- Jobber med rekkevidde celler i VBA
- Løs ligning i Excel