Príklady VBA Najlepšie 4 príklady makra Excel VBA pre začiatočníkov

Obsah:

Anonim

Príklady Excel VBA

To je veľmi vec, keď som začal pracovať a učiť sa makrá VBA, bol som zmätený, kde začať. Už sme videli editor VBA, ktorý obsahuje všetky definície možností a kariet okna editora VBA. Ako začiatočník vždy nevieme, ako začať s touto vecou, ​​kým ju nenájdeme. Tento článok je riešením pre tých, ktorí čelia problémom s používaním a učením sa príkladov VBA a vytváraním makier. Všetci sme čelili dobe, keď niektoré veci v aplikácii Excel mohli byť automatizované pomocou makra. Ale niekto, kto nevie, ako používať VBA, ho nebude schopný vytvoriť. Toto bude užitočný návod pre tých, ktorí začínajú s kódovaním makier VBA.

Príklady VBA v Exceli pre začiatočníkov

Nižšie sú uvedené príklady VBA v Exceli:

Túto šablónu VBA príkladov aplikácie Excel si môžete stiahnuť tu - šablónu VBA príklady Excel

Príklad 1 VBA

Pozrime sa na jednoduchý príklad použitia kódovania VBA. Postupujte podľa nasledujúcich krokov:

Krok 1: Otvorte modul VBA, kde napíšeme náš kód z karty ponuky Vložiť, ako je uvedené nižšie.

Krok 2: Teraz napíšte podprogram VBA makra do ľubovoľného mena.

kód:

 Sub VBA_príklady1 () Koniec sub

Krok 3: Definujte premennú pomocou DIM, kde budeme ukladať čísla ako celé čísla.

kód:

 Sub VBA_Examples1 () Dim A ako celé číslo Sub Sub

Krok 4: Teraz zadajte ľubovoľné číslo do vyššie definovanej premennej, ako je uvedené nižšie.

kód:

 Sub VBA_Examples1 () Dim A ako celé číslo A = 100 End Sub

Krok 5: Teraz použijeme okno správy na tlač hodnoty uloženej v premennej A.

kód:

 Sub VBA_Examples1 () Dim A ako celé číslo A = 100 MsgBox A End Sub

Krok 6: Spustite kód stlačením klávesu F8 alebo kliknutím na tlačidlo Prehrať umiestnené pod panelom s ponukami. Uvidíme okno s hodnotou 100 v ňom.

kód:

 Sub VBA_Examples1 () Dim A ako celé číslo A = 100 MsgBox A End Sub

Krok 7: Mohlo sa to vykonať aj pomocou funkcie Debug Print, ktorej hodnoty sú zobrazené v okamžitom okne. ( Poznámka: Stlačením klávesov Ctrl + G otvoríte okamžité okno)

kód:

 Sub VBA_Examples1 () Dim A ako celé číslo A = 100 Debug.Print A End Sub

Príklad 2 VBA

Teraz v tomto príklade uvidíme ďalší príklad, kde použijeme slučku For-Next na vytlačenie názvov hárkov. Postupujte podľa nasledujúcich krokov:

Krok 1: Otvorte modul a napíšte podprogram, ako je uvedené nižšie. Môžeme na to definovať akékoľvek meno.

kód:

 Sub VBA_Examples2 () End Sub

Krok 2: Vyberte premennú ako celé číslo. Premennú názvu môžeme zvoliť rovnako ako v príklade 1.

kód:

 Sub VBA_Examples2 () Dim A ako celé číslo Sub Sub

Krok 3: Otvorte slučku For-Next, ako je to znázornené nižšie.

kód:

 Sub VBA_Examples2 () Dim A ako celé číslo pre nasledujúci A End Sub

Krok 4: Vyberte pozíciu bunky, z ktorej chceme vidieť názvy hárkov. Tu nemáme žiadny odkaz na hlavičku, takže môžeme začať od bunky 1.

kód:

 Sub VBA_Examples2 () Dim A ako celé číslo pre A = 1 na hárky.

Krok 5: Teraz priradíme premennú A s hodnotou bunky k zobrazeniu názvu hárka, ako je uvedené nižšie.

kód:

 Sub VBA_Examples2 () Dim A ako celé číslo pre A = 1 do hárkov. Počet buniek (A, 1). Hodnota = hárky (A). Názov nasledujúce za koncovou sub

Krok 6: Teraz spustite kód stlačením klávesu F8 alebo kliknutím na tlačidlo Prehrať.

Uvidíme, ako sme mali 3 hárky, všetky pomenované predvolené, takže ich názov sa vytlačil z bunky A1 dole, až na počet hárkov, ktoré máme.

Príklad 3 VBA

V tomto príklade sa naučíme, ako tlačiť čísla. Tento proces je úplne rovnaký, ako sme videli v príklade 2. Postupujte podľa nasledujúcich krokov:

Krok 1: Otvorte modul a napíšte podprogram.

kód:

 Sub VBA_Examples3 () End Sub

Krok 2: Zvážte premennú pomocou DIM ako celé číslo. Ako používame čísla, je potrebné použiť typ údajov Integer.

kód:

 Sub VBA_Examples3 () Dim A ako celé číslo Sub Sub

Krok 3: Opäť otvorte slučku For-Next, ako je to znázornené nižšie.

kód:

 Sub VBA_Examples3 () Dim A ako celé číslo pre nasledujúci A End Sub

Krok 4: Teraz vyberte rozsah buniek, od ktorého chceme vidieť číslo až po posledné v syntaxi For.

kód:

 Sub VBA_Examples3 () Dim A ako celé číslo pre A = 1 až 10 Next A End Sub

Krok 5: Teraz opravte polohu bunky premennou A. Tu druhá vrchol polohy v bunke ukazuje číslo stĺpca. Keď sme vybrali 1, očakávame, že čísla začnú od bunky A1.

kód:

 Sub VBA_Examples3 () Dim A ako celé číslo pre A = 1 až 10 buniek (A, 1). Hodnota = A Next A End Sub

Krok 6: Teraz spustite kód stlačením klávesu F8 alebo kliknutím na tlačidlo Prehrať. Uvidíme, že čísla sa generujú z bunky A1 do A10 od 1 do 10 .

Krok 7: Čo keď sa pokúsime pridať tieto čísla do druhého stĺpca? Zmeňte vrchol stĺpca z 1 na 2. Alebo pridajte ďalší riadok kódu, ako je to znázornené nižšie.

kód:

 Sub VBA_Príklady (() Dim A ako celé číslo pre A = 1 až 10 buniek (A, 1). Hodnota = A bunky (A, 2). Hodnota = A Ďalšia A Koncová Sub

Krok 8: Celý kód znova spustite stlačením klávesu F8 alebo kliknutím na tlačidlo Prehrať. Uvidíme rovnaké číslo od 1 do 10 vytlačené v stĺpci B, ako aj z bunky B1 až B10.

Príklad 4 VBA

V tomto príklade uvidíme, ako zmeniť farbu prázdnych buniek z vybratých rozsahov. Na tento účel sme použili rovnaké číslo ako v predchádzajúcom príklade, ale niektoré bunky sme odstránili, aby sme dostali výstup.

Krok 1: Otvorte modul, napíšte podprogram, ako je uvedené nižšie.

kód:

 Sub VBA_príklad 4 () Koniec sub

Krok 2: Definujte premennú pomocou DIM ako rozsahu, pretože vyberieme opúšťajúci rozsah čísel.

kód:

 Sub VBA_Príklad 4 () Dim A ako koniec konca sub

Krok 3: Teraz nastavte túto premennú ako výber

kód:

 Sub VBA_Example4 () Dim A ako sada rozsahov A = výberový koniec sub

Krok 4: Teraz vyberte rozsah čísel pomocou definovanej premennej A a vyberte xlCellTypeBlanks, aby ste vybrali iba prázdne bunky.

kód:

 Sub VBA_Príklad 4 () Dim A ako nastavenie rozsahu A = výber A.Cells.SpecialCells (xlCellTypeBlanks). End Sub

Krok 5: Teraz zmeníte farbu interiéru prázdnych buniek, použite Interior.Color a vyberte farbu, ktorou chceme zvýrazniť prázdne bunky. Na definovanie farby použite typ vbBlue alebo vbGreen. Použitie vb je nevyhnutnosťou.

kód:

 Sub VBA_Príklad 4 () Dim A ako nastavenie rozsahu A = výber A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub Sub

Krok 6: Teraz vyberte rozsah buniek a potom spustite kód stlačením klávesu F8 alebo kliknutím na tlačidlo Prehrať. Uvidíme, bunky A4 a A7, ktoré boli prázdne, sú teraz zvýraznené modrou farbou, ako je to znázornené nižšie.

Výhody a nevýhody príkladov Excel VBA

  • VBA zvyšuje efektivitu práce.
  • Chceme tým znížiť počet opakujúcich sa úloh naraz.
  • Môžeme vytvoriť akýkoľvek typ makra, ktorý chceme.
  • Môžeme tiež zaznamenať makro, ak to nie je ľahké.
  • Ľudia, ktorí nemajú znalosti alebo myšlienky kódovania, môžu mať problémy s používaním makra VBA.

Čo je potrebné pamätať

  • Začiatočník vo VBA by mal pamätať na uloženie kódu vo formáte Excel s povoleným makrom. To nám umožní zachovať kód v rovnakom súbore.
  • Vždy zostavte celý kód, aj keď ide o jeden riadok. Tým sa zníži náš čas na ladenie, ak narazíte na chybu počas spustenia kódu.
  • Vždy začnite s učením jazyka VBA alebo iného kódovacieho jazyka s malým a ľahkým kódom. To umožní lepšie porozumenie a dôveru.

Odporúčané články

Toto je sprievodca príkladmi VBA v programe Excel. Tu diskutujeme niekoľko užitočných príkladov makra VBA v Exceli spolu so stiahnuteľnou šablónou programu Excel. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. Zbierka VBA (príklady)
  2. Výkazy VBA IF | Šablóny programu Excel
  3. Ako používať funkciu zoradenia Excel VBA?
  4. VBA počas slučky (príklady so šablónou programu Excel)
  5. VBA Environ