VBA-eksempler - Topp 4 VBA Macro Excel-eksempler for nybegynnere

• Excel VBA-eksempler

Excel VBA-eksempler

Dette er veldig greie da jeg begynte å jobbe og lære VBA-makroer, jeg ble forvirret hvor jeg skulle begynne. Vi har allerede sett VBA Editor som har alle definisjonene av VBA Editor Window-alternativer og faner. Som nybegynner vet vi alltid ikke måten å starte tingen på før vi finner en. Denne artikkelen er løsningen for de som har vanskeligheter med å bruke og lære VBA-eksempler og lage makroer. Vi har alle møtt tiden da visse ting i Excel kunne blitt automatisert ved hjelp av makro. Men noen som ikke vet hvordan du bruker VBA vil ikke kunne opprette en. Dette vil være en nyttig guide for de som er nye med VBA-makrokoding.

Eksempler på VBA i Excel for nybegynnere

Nedenfor er eksemplene på VBA i Excel:

Du kan laste ned denne VBA-eksemplene Excel-mal her - VBA-eksempler Excel-mal

VBA-eksempel # 1

La oss se et enkelt eksempel på bruk av VBA-koding. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Åpne en VBA-modul der vi skal skrive koden vår fra Sett inn menyfanen som vist nedenfor.

Trinn 2: Skriv nå delprosessen til VBA-makro i hvilket som helst navn.

Kode:

 Sub VBA_Examples1 () Slutt Sub 

Trinn 3: Definer en variabel ved å bruke DIM der vi vil lagre tall som heltall.

Kode:

 Sub VBA_Examples1 () Dim A As Integer End Sub 

Trinn 4: Gi nå et hvilket som helst tall til den ovenfor definerte variabelen, som vist nedenfor.

Kode:

 Sub VBA_Examples1 () Dim A Som heltall A = 100 End Sub 

Trinn 5: Nå vil vi bruke meldingsboksen til å skrive ut verdien som er lagret i Variabel A.

Kode:

 Sub VBA_Examples1 () Dim A Som heltall A = 100 MsgBox A End Sub 

Trinn 6: Kjør koden ved å trykke på F8-tasten eller ved å klikke på Play-knappen under menylinjen. Vi vil se meldingsboksen med verdien 100 i den.

Kode:

 Sub VBA_Examples1 () Dim A Som heltall A = 100 MsgBox A End Sub 

Trinn 7: Dette kunne også blitt gjort ved å bruke Debug Print-funksjonen, hvis verdier sees i Umiddelbart vindu. ( Merk: Trykk Ctrl + G for å åpne det umiddelbare vinduet)

Kode:

 Sub VBA_Examples1 () Dim A As Heiltall A = 100 Debug.Print A End Sub 

VBA-eksempel # 2

Nå i dette eksemplet vil vi se et annet eksempel der vi vil bruke For-neste-loopen til å skrive ut arknavnene. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Åpne en modul og skriv delprosessen som vist nedenfor. Vi kan bruke et hvilket som helst navn for å definere dette.

Kode:

 Sub VBA_Examples2 () Slutt Sub 

Trinn 2: Velg en variabel som et heltall. Vi kan velge navnevariabelen som vi gjorde i eksempel-1.

Kode:

 Sub VBA_Examples2 () Dim A As Integer End Sub 

Trinn 3: Åpne en For-Neste-sløyfe som vist nedenfor.

Kode:

 Sub VBA_Examples2 () Dim A Som heltall for neste en slutt Sub 

Trinn 4: Velg plasseringen av cellen der vi vil se arknavnene. Vi har her ingen overskriftsreferanser, så vi kan starte fra celle 1.

Kode:

 Sub VBA_Examples2 () Dim A Som heltall for A = 1 til ark.Tell neste en slutt Sub 

Trinn 5: Nå tildeler vi variabelen A med celleverdi for å se Sheets name som vist nedenfor.

Kode:

 Sub VBA_Examples2 () Dim A Som heltall for A = 1 til ark. Antall celler (A, 1) .Value = Sheets (A) .Name Next A End Sub 

Trinn 6: Kjør nå koden ved å trykke på F8-tasten eller ved å klikke på Spill-knappen.

Som vi hadde tre ark, vil vi se alle som standard, så navnet deres ble skrevet ut fra celle A1 til under til antall ark vi har.

VBA-eksempel 3

I dette eksemplet lærer vi hvordan du skriver ut tallene. Denne prosessen er ganske den samme som vi har sett i eksempel-2. Følg trinnene nedenfor for å gjøre dette:

Trinn 1: Åpne en modul og skriv delprosessen.

Kode:

 Sub VBA_Examples3 () Slutt Sub 

Trinn 2: Vurder en variabel som bruker DIM som heltall. Som vi bruker tallene til heltall datatype bør brukes.

Kode:

 Sub VBA_Examples3 () Dim A As Integer End Sub 

Trinn 3: Åpne igjen en For-Neste-sløyfe som vist nedenfor.

Kode:

 Sub VBA_Examples3 () Dim A Som heltall for neste en slutt Sub 

Trinn 4: Velg nå celleområdet der vi vil se nummer til det siste i For syntaks.

Kode:

 Sub VBA_Examples3 () Dim A Som heltall for A = 1 til 10 Neste A End Sub 

Trinn 5: Fest nå celleposisjonen med variabel A. Her viser andre posisjons toppunkt i celle kolonne nummer. Da vi valgte 1, så forventer vi å se tallene som starter fra celle A1.

Kode:

 Sub VBA_Examples3 () Dim A Som heltall for A = 1 til 10 celler (A, 1). Verdi = A Neste A End Sub 

Trinn 6: Kjør nå koden ved å trykke på F8-tasten eller ved å klikke på Spill-knappen. Vi vil se, tallene genereres fra celle A1 til A10 fra 1 til 10 .

Trinn 7: Hva om vi prøver å legge til disse tallene i den andre kolonnen? Endre kolonne toppunktet fra 1 til 2. Eller legg til en annen kodelinje som vist nedenfor.

Kode:

 Sub VBA_Examples3 () Dim A Som heltall for A = 1 til 10 celler (A, 1). Verdi = A celler (A, 2). Verdi = A Neste A End Sub 

Trinn 8: Kjør igjen den komplette koden ved å trykke på F8-tasten eller ved å klikke på Spill-knappen. Vi vil se det samme tallet fra 1 til 10 ble skrevet ut i kolonne B også fra celle B1 til B10.

VBA-eksempel # 4

I dette eksemplet vil vi se hvordan du endrer fargen på tomme celler fra de valgte områdene. For dette har vi brukt samme antall som vi gjorde i eksemplet ovenfor, men vi har slettet noen av cellene for å få utdata.

Trinn 1: Åpne en modul, skriv delprosessen som vist nedenfor.

Kode:

 Sub VBA_Example4 () Slutt Sub 

Trinn 2: Definer en variabel ved å bruke DIM som område, da vi velger det spennende tallområdet.

Kode:

 Sub VBA_Example4 () Dim A As Range End Sub 

Trinn 3: Sett nå denne variabelen som valg

Kode:

 Sub VBA_Example4 () Dim A As Range Set A = Selection End Sub 

Trinn 4: Velg nå nummerområdet ved å bruke definert variabel A og velg xlCellTypeBlanks for bare å velge de tomme cellene.

Kode:

 Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks). Slutt sub 

Trinn 5: Nå for å endre den indre fargen på tomme celler, bruk Interior.Color og velg fargen som vi vil markere de tomme cellene med. Bruk vbBlue eller vbGreen-typen for å definere fargen. Bruken av vb er et must.

Kode:

 Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub 

Trinn 6: Velg nå cellene og kjør deretter koden ved å trykke på F8-tasten eller ved å klikke på Spill-knappen. Vi vil se at cellen A4 og A7 som var tomme, nå er uthevet med blå farge som vist nedenfor.

Fordeler og ulemper med Excel VBA-eksempler

• VBA øker effektiviteten i arbeidet.
• Med dette ønsker vi å redusere de repeterende oppgavene på en gang.
• Vi kan lage alle typer makro vi ønsker.
• Vi kan også spille inn en makro hvis det ikke er enkelt å gjøre kodingen.
• Personer som ikke har kodingskunnskap eller -idee, kan være vanskelig å bruke VBA-makro.

Ting å huske

• Nybegynner i VBA bør huske på å lagre koden i makroaktivert Excel-format. Dette vil tillate oss å beholde koden i den samme filen.
• Sett alltid sammen den komplette koden, selv om koden har en linje. Dette vil redusere tiden vår med feilsøking hvis du får feil når du kjører koden.
• Start alltid læringsprosessen til VBA eller et hvilket som helst annet kodespråk med liten og enkel kode. Dette vil gi en bedre forståelse og selvtillit.

Anbefalte artikler

Dette er en guide til VBA-eksempler i Excel. Her diskuterer vi noen nyttige eksempler på VBA-makrokode i Excel sammen med nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

1. VBA-samling (eksempler)
2. VBA IF-uttalelser | Excel-maler
3. Hvordan bruke Excel VBA sorteringsfunksjon?
4. VBA While Loop (eksempler med Excel-mal)
5. VBA-miljø