Exempel på Excel VBA

Det här är mycket när jag började arbeta och lära mig VBA-makron, jag var förvirrad var jag ska börja. Vi har redan sett VBA Editor som har alla definitioner av VBA Editor Window-alternativ och flikar. Som nybörjare vet vi inte alltid sättet att starta saken förrän vi hittar en. Den här artikeln är lösningen för dig som har svårt att använda och lära sig VBA-exempel och skapa makron. Vi har alla mött den tid då vissa saker i Excel kunde ha automatiserats med makro. Men någon som inte vet hur man använder VBA kan inte skapa en. Detta kommer att vara en användbar guide för dig som är ny med VBA-makrokodning.

Exempel på VBA i Excel för nybörjare

Nedan är exemplen på VBA i Excel:

Du kan ladda ner denna VBA-exempel Excel-mall här - VBA-exempel Excel-mall

VBA-exempel 1

Låt oss se ett enkelt exempel på att använda VBA-kodning. För detta följer du stegen nedan:

Steg 1: Öppna en VBA-modul där vi skriver vår kod från Infoga menyfliken som visas nedan.

Steg 2: Skriv nu delproceduren för VBA-makro i valfritt namn.

Koda:

 Sub VBA_Examples1 () End Sub

Steg 3: Definiera en variabel med DIM där vi lagrar siffror som heltal.

Koda:

 Sub VBA_Examples1 () Dim A As Integer End Sub

Steg 4: Ge nu valfritt nummer till ovan definierade variabel, som visas nedan.

Koda:

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

Steg 5: Nu kommer vi att använda meddelanderutan för att skriva ut värdet lagrat i Variabel A.

Koda:

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

Steg 6: Kör koden genom att trycka på F8-tangenten eller genom att klicka på Play-knappen under menyfältet. Vi kommer att se meddelandefältet med värdet 100 i det.

Koda:

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

Steg 7: Detta kunde också ha gjorts med funktionen Debug Print, vars värden visas i omedelbart fönster. ( Obs: Tryck på Ctrl + G för att öppna omedelbart fönster)

Koda:

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

VBA-exempel # 2

I det här exemplet kommer vi att se ett annat exempel där vi använder For-Next-loopen för att skriva ut arknamnen. För detta följer du stegen nedan:

Steg 1: Öppna en modul och skriv delproceduren som visas nedan. Vi kan använda valfritt namn för att definiera detta.

Koda:

 Sub VBA_Examples2 () End Sub

Steg 2: Välj en variabel som ett heltal. Vi kan välja namnvariabeln som vi gjorde i exempel 1.

Koda:

 Sub VBA_Examples2 () Dim A Som heltal End Sub

Steg 3: Öppna en For-Next-slinga som visas nedan.

Koda:

 Sub VBA_Examples2 () Dim A som heltal för nästa A End Sub

Steg 4: Välj cellens position där vi vill se bladnamnen. Här eftersom vi inte har någon rubrikreferens så vi kan börja från cell 1.

Koda:

 Sub VBA_Examples2 () Dim A som heltal för A = 1 till ark. Antal nästa A End Sub

Steg 5: Nu tilldelar vi variabeln A med cellvärde för att se bladet som visas nedan.

Koda:

 Sub VBA_Examples2 () Dim A som heltal för A = 1 till ark. Antal celler (A, 1) .Value = Sheets (A) .Name Nästa A End Sub

Steg 6: Kör nu koden genom att trycka på F8-tangenten eller genom att klicka på Play-knappen.

Vi kommer att se, eftersom vi hade 3 ark, alla namngivna som standard så att deras namn skrivs ut från cell A1 till under till det antal ark vi har.

VBA-exempel # 3

I det här exemplet kommer vi att lära dig att skriva ut siffrorna. Denna process är helt densamma som vi har sett i exempel-2. För detta följer du stegen nedan:

Steg 1: Öppna en modul och skriv delproceduren.

Koda:

 Sub VBA_Examples3 () End Sub

Steg 2: Betrakta en variabel som använder DIM som heltal. Eftersom vi använder siffrorna till heltal bör datatyp användas.

Koda:

 Sub VBA_Examples3 () Dim A Som heltal End Sub

Steg 3: Öppna igen en For-Next-slinga som visas nedan.

Koda:

 Sub VBA_Examples3 () Dim A som heltal för nästa A End Sub

Steg 4: Välj nu cellområdet från där vi vill se nummer till det sista i För syntax.

Koda:

 Sub VBA_Examples3 () Dim A som heltal för A = 1 till 10 Nästa A End Sub

Steg 5: Fixa nu cellpositionen med variabel A. Här visar andra positionskod i cellen kolumnnummer. När vi valde 1 så förväntar vi oss att se siffrorna från cell A1.

Koda:

 Sub VBA_Examples3 () Dim A som heltal för A = 1 till 10 celler (A, 1). Värde = A Nästa A End Sub

Steg 6: Kör nu koden genom att trycka på F8-tangenten eller genom att klicka på Play-knappen. Vi ser att siffrorna genereras från cell A1 till A10 från 1 till 10 .

Steg 7: Tänk om vi försöker lägga till dessa nummer i den andra kolumnen? Ändra kolumnvinkeln från 1 till 2. Eller lägg till en ny kodrad som visas nedan.

Koda:

 Sub VBA_Examples3 () Dim A som heltal för A = 1 till 10 celler (A, 1) .Värde = A celler (A, 2). Värde = A Nästa A End Sub

Steg 8: Kör igen den fullständiga koden genom att trycka på F8-tangenten eller genom att klicka på Play-knappen. Vi kommer att se samma nummer från 1 till 10 tryckt i kolumn B samt från cell B1 till B10.

VBA-exempel # 4

I det här exemplet ser vi hur man ändrar färgen på tomma celler från de valda områdena. För detta har vi använt samma antal som vi gjorde i exemplet ovan, men vi har tagit bort några av cellerna för att få utdata.

Steg 1: Öppna en modul, skriv delproceduren som visas nedan.

Koda:

 Sub VBA_Example4 () End Sub

Steg 2: Definiera en variabel med DIM som intervall eftersom vi väljer det utgående nummervärdet.

Koda:

 Sub VBA_Example4 () Dim A As Range End Sub

Steg 3: Ställ nu denna variabel som val

Koda:

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

Steg 4: Välj nu numret med hjälp av en definierad variabel A och välj xlCellTypeBlanks för att bara välja de tomma cellerna.

Koda:

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

Steg 5: För att ändra den inre färgen på tomma celler, använd Interior.Color och välj den färg som vi vill markera de tomma cellerna med. Använd vbBlue eller vbGreen för att definiera färgen. Användningen av vb är ett måste.

Koda:

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

Steg 6: Välj nu cellintervallet och kör sedan koden genom att trycka på F8-tangenten eller genom att klicka på Play-knappen. Vi ser, cellen A4 och A7 som var tomma, är nu markerade med blå färg som visas nedan.

Fördelar och nackdelar med Excel-VBA-exempel

  • VBA ökar effektiviteten i arbetet.
  • Med detta vill vi minska de upprepade uppgifterna på en gång.
  • Vi kan skapa alla typer av makro vi vill ha.
  • Vi kan också spela in en makro om det inte är enkelt att göra kodningen.
  • Personer som inte har kodningskunskaper eller idéer kan ha svårt att använda VBA-makro.

Saker att komma ihåg

  • Nybörjare i VBA bör ha i åtanke att spara koden i makroaktiverat Excel-format. Detta gör att vi kan behålla koden i samma fil.
  • Sätt alltid ihop den fullständiga koden, även om koden har en rad. Detta kommer att minska vår tid för felsökning om du står inför något fel när koden har körts.
  • Starta alltid inlärningsprocessen för VBA eller något annat kodspråk med liten och enkel kod. Detta kommer att ge en bättre förståelse och förtroende.

Rekommenderade artiklar

Detta är en guide till VBA-exempel i Excel. Här diskuterar vi några användbara exempel på VBA-makrokod i Excel tillsammans med nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA-samling (exempel)
  2. VBA IF-uttalanden | Excel-mallar
  3. Hur använder jag Excel VBA sorteringsfunktion?
  4. VBA While Loop (exempel med Excel-mall)
  5. VBA Environ

Kategori:

VBA