Primjeri Excel VBA

To je vrlo stvar kad sam započeo raditi i učiti VBA makronaredbe, bio sam zbunjen odakle započeti. Već smo vidjeli VBA Editor koji ima sve definicije opcija i kartica VBA Editor Window. Kao početnici, uvijek ne znamo način kako započeti stvar dok je ne nađemo. Ovaj je članak rješenje za one koji se suočavaju s poteškoćama u korištenju i učenju primjera VBA i stvaranju makronaredbi. Svi smo se suočili s vremenom kada su se neke stvari u Excelu mogle automatizirati pomoću Macro-a. Ali, netko tko ne zna kako koristiti VBA neće je stvoriti. Ovo će biti koristan vodič za one koji su novi u VBA Makro kodiranju.

Primjeri VBA u Excelu za početnike

Ispod su primjeri VBA u Excelu:

Možete preuzeti ovaj VBA Primjeri Excel predložak ovdje - VBA Primjeri Excel predložak

Primjer VBA # 1

Pogledajmo jednostavan primjer korištenja VBA kodiranja. Za to slijedite dolje navedene korake:

Korak 1: Otvorite VBA modul u koji ćemo pisati svoj kod s kartice izbornika Umetanje, kao što je prikazano u nastavku.

Korak 2: Sada napišite podprocedura VBA makronaredbe u bilo koje ime.

Kodirati:

 Sub VBA_Examples1 () Kraj Sub

Korak 3: Definirajte varijablu pomoću DIM-a u koji ćemo brojeve pohraniti kao Integers.

Kodirati:

 Sub VBA_Examples1 () Dim A kao cjeloviti kraj Sub

4. korak: Sada navedite bilo koji broj gore definiranoj varijabli, kao što je prikazano u nastavku.

Kodirati:

 Sub VBA_Examples1 () Dim A kao cijeli broj A = 100 Krajnji pot

Korak 5: Sada ćemo pomoću okvira s porukama ispisati vrijednost pohranjenu u varijabli A.

Kodirati:

 Sub VBA_Examples1 () Dim A kao cijeli broj A = 100 MsgBox A Kraj Sub

Korak 6: Pokrenite kôd pritiskom na tipku F8 ili klikom na tipku Play koja se nalazi ispod trake izbornika. Vidjet ćemo okvir za poruku s vrijednošću 100 u njemu.

Kodirati:

 Sub VBA_Examples1 () Dim A kao cijeli broj A = 100 MsgBox A Kraj Sub

Korak 7: To se moglo učiniti i pomoću Debug Print funkcije, čije se vrijednosti vide u neposrednom prozoru. ( Napomena: Pritisnite Ctrl + G za otvaranje neposrednog prozora)

Kodirati:

 Sub VBA_Examples1 () Dim A kao cjelobrojni A = 100 Debug.Printajte A End Sub

Primjer VBA # 2

Sada ćemo u ovom primjeru vidjeti još jedan primjer gdje ćemo koristiti petlju For-Next za ispis imena lista. Za to slijedite dolje navedene korake:

Korak 1: Otvorite modul i napišite podproceduru kao što je prikazano u nastavku. Možemo koristiti bilo koje ime da to definiramo.

Kodirati:

 Sub VBA_Examples2 () Kraj Sub

2. korak: odaberite varijablu kao cijeli broj. Možemo odabrati varijablu imena kao u primjeru-1.

Kodirati:

 Sub VBA_Examples2 () Dim A kao cijeli broj Kraj Sub

Korak 3: Otvorite petlju For-Next kao što je prikazano u nastavku.

Kodirati:

 Sub VBA_Examples2 () Dim A kao cjelobrojni broj za sljedeći i krajnji Sub

Korak 4: Odaberite položaj ćelije odakle želimo vidjeti imena lista. Ovdje nemamo nikakvu referencu u zaglavlju pa možemo krenuti od ćelije 1.

Kodirati:

 Pod VBA_Examples2 () Dim A kao cjelobrojni broj za A = 1 na tablicama. Broj slijedećeg kraja

Korak 5: Sada dodijelimo varijabli A s vrijednošću ćelije da vidimo naziv lista kao što je prikazano u nastavku.

Kodirati:

 Pod VBA_Examples2 () Dim A kao cijeli broj za A = 1 na tablicama. Broj ćelija (A, 1) .Value = Sheets (A). Naziv Next A End Sub

Korak 6: Sada pokrenite kôd pritiskom na tipku F8 ili klikom na gumb Reproduciraj.

Vidjet ćemo, kako smo imali 3 lista, koji su svi nazvani zadani, pa je njihovo ime ispisano iz ćelije A1 dolje sve do broja tablica koje imamo.

Primjer VBA # 3

U ovom primjeru naučit ćemo kako ispisati brojeve. Taj je postupak sasvim isti kao što smo vidjeli u primjeru 2. Za to slijedite dolje navedene korake:

Korak 1: Otvorite modul i napišite podproceduru.

Kodirati:

 Sub VBA_Examples3 () Kraj Sub

Korak 2: Razmotrite varijablu pomoću DIM-a kao Integer. Kako koristimo brojeve za Integer vrstu podataka, treba koristiti.

Kodirati:

 Sub VBA_Examples3 () Dim A kao cjeloviti kraj Sub

Korak 3: Opet otvorite petlju For-Next kao što je prikazano u nastavku.

Kodirati:

 Sub VBA_Examples3 () Dim A kao cjelobrojni broj za sljedeći i krajnji Sub

Korak 4: Sada odaberite raspon ćelija od mjesta gdje želimo vidjeti broj do zadnjeg u sintaksi.

Kodirati:

 Sub VBA_Examples3 () Dim A kao cjelobrojni broj za A = 1 do 10 Sljedeći A Kraj Pod

Korak 5: Sada popravite položaj ćelije varijablom A. Ovdje, druga pozicija položaja u ćeliji prikazuje broj stupca. Kako smo odabrali 1, očekujemo da ćemo vidjeti brojeve počevši od ćelije A1.

Kodirati:

 Pod VBA_Examples3 () Dim A kao cjelobrojni broj za A = 1 do 10 ćelija (A, 1) .Value = A Next A End Sub

Korak 6: Sada pokrenite kôd pritiskom na tipku F8 ili klikom na gumb Reproduciraj. Vidjet ćemo, brojevi se generiraju od ćelije A1 do A10 počevši od 1 do 10 .

Korak 7: Što ako pokušamo dodati ove brojeve u drugi stupac? Promijenite vršku stupca s 1 na 2. Ili dodajte još jedan redak koda kao što je prikazano u nastavku.

Kodirati:

 Pod VBA_Examples3 () Dim A kao cijeli broj za A = 1 do 10 ćelija (A, 1) .Value = A ćelije (A, 2) .Value = A Next A End Sub

Korak 8: Ponovo pokrenite cijeli kôd pritiskom na tipku F8 ili klikom na gumb Reproduciraj. Vidjet ćemo isti broj počevši od 1 do 10 koji je ispisan u stupcu B, kao i iz ćelije B1 do B10.

Primjer VBA # 4

U ovom ćemo primjeru vidjeti kako promijeniti boju praznih ćelija iz odabranih raspona. Za ovo smo koristili isti broj kao u prethodnom primjeru, ali smo izbrisali neke ćelije da bismo dobili izlaz.

Korak 1: Otvorite modul, napišite podprocedura kao što je prikazano u nastavku.

Kodirati:

 Sub VBA_Example4 () Kraj Sub

Korak 2: Definiramo varijablu pomoću DIM-a kao raspona jer odabiremo raspon broja koji izlazi.

Kodirati:

 Sub VBA_Example4 () Dim A Kao raspon Kraj Sub

Korak 3: Sada postavite ovu varijablu kao Selection

Kodirati:

 Pod VBA_Example4 () Dim A kao raspon postavljen A = odabir kraja Sub

Korak 4: Sada odaberite raspon brojeva pomoću definirane varijable A i xlCellTypeBlanks odaberite samo prazne ćelije.

Kodirati:

 Pod VBA_Example4 () Dim A kao raspon postavljen A = izbor A.Cells.SpecialCells (xlCellTypeBlanks). Kraj Sub

Korak 5: Sada za promjenu unutarnje boje praznih ćelija upotrijebite Interior.Color i odaberite boju kojom želimo istaknuti prazne ćelije. Za definiranje boje koristite vbBlue ili vbGreen tip. Upotreba vb-a je obavezna.

Kodirati:

 Pod VBA_Example4 () Dim A kao raspon raspona A = izbor A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue Kraj Sub

Korak 6: Sada odaberite raspon ćelija, a zatim pokrenite kôd pritiskom na tipku F8 ili klikom na gumb Reproduciraj. Vidjet ćemo da su ćelije A4 i A7 koje su bile prazne, sada istaknute Plavom bojom kao što je prikazano u nastavku.

Za i protiv primjera Excela VBA

  • VBA povećava efikasnost rada.
  • Ovim želimo smanjiti ponavljajuće zadatke u jednom potezu.
  • Možemo stvoriti bilo koju vrstu makronaredbe koju želimo.
  • Također možemo snimiti makronaredbu ako kodiranje nije jednostavno.
  • Ljudima koji nemaju znanje ili ideju kodiranja može biti teško da koriste VBA Macro.

Stvari koje treba zapamtiti

  • Početnik u VBA treba imati na umu kako biste spremili kôd u formatu excel koji je omogućen za makro. To će nam omogućiti zadržavanje koda u istoj datoteci.
  • Uvijek sastavite cijeli kôd, čak i ako je kôd iz jednog retka. To će nam smanjiti vrijeme uklanjanja pogrešaka ako se suočite s bilo kakvom greškom dok se nakon pokretanja koda.
  • Uvijek pokrenite proces učenja VBA ili bilo kojeg drugog jezika kodiranja s malim i jednostavnim kodom. Ovo će vam pružiti bolje razumijevanje i samopouzdanje.

Preporučeni članci

Ovo je vodič za primjere VBA u Excelu. Ovdje smo raspravljali o nekoliko korisnih primjera VBA makro koda u Excelu, zajedno s Excel predložakom koji se može preuzeti. Možete i pregledati naše druge predložene članke -

  1. VBA kolekcija (primjeri)
  2. VBA IF Izjave | Predlošci Excela
  3. Kako koristiti Excel VBA funkciju sortiranja?
  4. VBA Dok je petlja (primjeri s Excelovim predloškom)
  5. VBA okružje

Kategorija:

VBA