Excel VBA-eksempler

Dette var meget, da jeg begyndte at arbejde og lære VBA-makroer, jeg var forvirret over, hvor jeg skulle begynde. Vi har allerede set VBA Editor, som har alle definitionerne af VBA Editor Window-indstillinger og faner. Som nybegynder ved vi ikke, hvordan vi starter tingene, før vi finder en. Denne artikel er løsningen for dem, der har svært ved at bruge og lære VBA-eksempler og oprette makroer. Vi har alle stået over for det tidspunkt, hvor visse ting i Excel kunne have været automatiseret ved hjælp af makro. Men nogen, der ikke ved, hvordan man bruger VBA, kan ikke oprette en. Dette vil være en nyttig guide til dem, der er nye med VBA-makrokodning.

Eksempler på VBA i Excel for begyndere

Nedenfor er eksemplerne på VBA i Excel:

Du kan downloade denne VBA-eksempler Excel-skabelon her - VBA-eksempler Excel-skabelon

VBA-eksempel # 1

Lad os se et simpelt eksempel på at bruge VBA Coding. Følg nedenstående trin for dette:

Trin 1: Åbn et VBA-modul, hvor vi skriver vores kode fra fanen Indsæt menu som vist nedenfor.

Trin 2: Skriv nu underproceduren for VBA-makro i ethvert navn.

Kode:

 Sub VBA_Examples1 () End Sub

Trin 3: Definer en variabel ved hjælp af DIM, hvor vi vil gemme tal som heltal.

Kode:

 Sub VBA_Examples1 () Dim A Som heltal End Sub

Trin 4: Giv et hvilket som helst tal til den ovenfor definerede variabel, som vist nedenfor.

Kode:

 Sub VBA_Examples1 () Dim A som heltal A = 100 End Sub

Trin 5: Nu bruger vi meddelelsesboksen til at udskrive den værdi, der er gemt i variabel A.

Kode:

 Sub VBA_Examples1 () Dim A som heltal A = 100 MsgBox A End Sub

Trin 6: Kør koden ved at trykke på F8-tasten eller ved at klikke på Play-knappen, der findes under menulinjen. Vi ser meddelelsesboksen med værdien 100 i den.

Kode:

 Sub VBA_Examples1 () Dim A som heltal A = 100 MsgBox A End Sub

Trin 7: Dette kunne også være gjort ved hjælp af Debug Print-funktion, hvis værdier ses i det umiddelbare vindue. ( Bemærk: Tryk på Ctrl + G for at åbne det umiddelbare vindue)

Kode:

 Sub VBA_Examples1 () Dim A Som heltal A = 100 Debug.Print A End Sub

VBA-eksempel # 2

Nu i dette eksempel ser vi et andet eksempel, hvor vi vil bruge For-næste loop til at udskrive arknavne. Følg nedenstående trin for dette:

Trin 1: Åbn et modul, og skriv underproceduren som vist nedenfor. Vi kan bruge ethvert navn til at definere dette.

Kode:

 Sub VBA_Examples2 () End Sub

Trin 2: Vælg en variabel som et heltal. Vi kan vælge navnevariablen, som vi gjorde i eksempel-1.

Kode:

 Sub VBA_Examples2 () Dim A Som heltal End Sub

Trin 3: Åbn en For-Next-loop som vist nedenfor.

Kode:

 Sub VBA_Examples2 () Dim A som heltal for næste en slut Sub

Trin 4: Vælg cellens placering, hvorfra vi vil se arknavne. Da vi ikke har nogen headerhenvisning, så vi kan starte fra celle 1.

Kode:

 Sub VBA_Examples2 () Dim A som heltal for A = 1 til ark. Antal næste en slut Sub

Trin 5: Nu tildeler vi variablen A med celleværdi for at se arknavnet som vist nedenfor.

Kode:

 Sub VBA_Examples2 () Dim A som heltal for A = 1 til ark. Antal celler (A, 1) .Value = Ark (A). Navn næste En slut Sub

Trin 6: Kør nu koden ved at trykke på F8-tasten eller ved at klikke på knappen Afspil.

Vi ser, da vi havde 3 ark, alle navngivne som standard, så deres navn blev udskrevet fra celle A1 til nedenfor indtil det antal ark, vi har.

VBA-eksempel # 3

I dette eksempel lærer vi, hvordan man udskriver numrene. Denne proces er ret den samme, som vi har set i eksempel-2. Følg nedenstående trin for dette:

Trin 1: Åbn et modul, og skriv underproceduren.

Kode:

 Sub VBA_Examples3 () End Sub

Trin 2: Overvej en variabel, der bruger DIM som heltal. Da vi bruger tallene til heltal, skal datatype bruges.

Kode:

 Sub VBA_Examples3 () Dim A Som heltal End Sub

Trin 3: Åbn igen en For-Next-loop som vist nedenfor.

Kode:

 Sub VBA_Examples3 () Dim A som heltal til næste en slut Sub

Trin 4: Vælg nu celleområdet, hvorfra vi vil se nummer indtil det sidste i Til syntaks.

Kode:

 Sub VBA_Examples3 () Dim A som heltal for A = 1 til 10 Næste A End Sub

Trin 5: Fix nu cellepositionen med variabel A. Her viser anden positionskode i celle kolonnenummer. Da vi valgte 1, så forventer vi at se de tal, der starter fra celle A1.

Kode:

 Sub VBA_Examples3 () Dim A som heltal for A = 1 til 10 celler (A, 1) .Value = A Next A End Sub

Trin 6: Kør nu koden ved at trykke på F8-tasten eller ved at klikke på knappen Afspil. Vi vil se, at numrene genereres fra celle A1 til A10 fra 1 til 10 .

Trin 7: Hvad hvis vi forsøger at tilføje disse tal i den anden kolonne? Skift kolonnehøjde fra 1 til 2. Eller tilføj en anden kodelinje som vist nedenfor.

Kode:

 Sub VBA_Examples3 () Dim A som heltal for A = 1 til 10 celler (A, 1). Værdi = A celler (A, 2). Værdi = A Næste A End Sub

Trin 8: Kør igen den komplette kode ved at trykke på F8-tasten eller ved at klikke på knappen Afspil. Vi vil se det samme nummer, der starter fra 1 til 10 blev trykt i kolonne B såvel fra celle B1 til B10.

VBA-eksempel # 4

I dette eksempel vil vi se, hvordan du ændrer farven på tomme celler fra de valgte intervaller. Til dette har vi brugt det samme nummer, som vi gjorde i ovenstående eksempel, men vi har slettet nogle af cellerne for at få output.

Trin 1: Åbn et modul, skriv underproceduren som vist nedenfor.

Kode:

 Sub VBA_Example4 () End Sub

Trin 2: Definer en variabel ved hjælp af DIM som interval, da vi vælger det spændende nummerområde.

Kode:

 Sub VBA_Example4 () Dim A As Range End Sub

Trin 3: Indstil nu denne variabel som Valg

Kode:

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

Trin 4: Vælg nu rækkeområdet med den definerede variabel A og vælg xlCellTypeBlanks for kun at vælge de tomme celler.

Kode:

 Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks). Afslut under

Trin 5: For at ændre den indre farve på tomme celler skal du bruge Interior.Color og vælge den farve, som vi vil fremhæve de tomme celler med. Brug vbBlue eller vbGreen-typen til at definere farven. Brug af vb er et must.

Kode:

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

Trin 6: Vælg nu celleområdet og kør derefter koden ved at trykke på F8-tasten eller ved at klikke på knappen Afspil. Vi ser, at cellen A4 og A7, som var tomme, nu er fremhævet med blå farve som vist nedenfor.

Fordele og ulemper ved Excel VBA-eksempler

  • VBA øger effektiviteten af ​​arbejdet.
  • På denne måde ønsker vi at reducere de gentagne opgaver på én gang.
  • Vi kan oprette en hvilken som helst type makro, vi ønsker.
  • Vi kan også optage en makro, hvis det ikke er let at udføre kodningen.
  • Folk, der ikke har kodningskendskab eller -idee, kan have svært ved at bruge VBA-makro.

Ting at huske

  • Begynder i VBA skal huske på at gemme koden i Macro-aktiveret excel-format. Dette tillader os at bevare koden i den samme fil.
  • Kompilér altid den komplette kode, selvom koden har en linje. Dette vil reducere vores tid til fejlsøgning, hvis du står over for nogen fejl, når koden er kørt.
  • Start altid indlæringsprocessen for VBA eller ethvert andet kodesprog med lille og let kode. Dette vil give en bedre forståelse og selvtillid.

Anbefalede artikler

Dette er en guide til VBA-eksempler i Excel. Her diskuterer vi nogle nyttige eksempler på VBA-makrokode i Excel sammen med downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. VBA-samling (eksempler)
  2. VBA IF-erklæringer | Excel-skabeloner
  3. Sådan bruges Excel VBA sorteringsfunktion?
  4. VBA While Loop (eksempler med Excel-skabelon)
  5. VBA-miljø

Kategori:

VBA