Příklady aplikace Excel VBA

To je velmi věc, když jsem začal pracovat a učit se makra VBA, byl jsem zmatený, kde začít. Už jsme viděli Editor VBA, který má všechny definice možností a karet Editoru okna VBA. Jako začátečník vždy nevíme, jak začít věc, dokud ji nenajdeme. Tento článek je řešením pro ty, kteří čelí obtížím při používání a učení příkladů VBA a vytváření maker. Všichni jsme čelili době, kdy některé věci v aplikaci Excel mohly být automatizovány pomocí makra. Ale někdo, kdo neví, jak používat VBA, jej nebude schopen vytvořit. Toto bude užitečný průvodce pro ty, kteří začínají s kódováním VBA Makro.

Příklady VBA v Excelu pro začátečníky

Níže jsou uvedeny příklady VBA v Excelu:

Tuto šablonu VBA Příklady Excel si můžete stáhnout zde - šablonu VBA Příklady Excel

Příklad VBA # 1

Podívejme se na jednoduchý příklad použití kódování VBA. Postupujte podle následujících kroků:

Krok 1: Otevřete modul VBA, kde budeme psát náš kód z nabídky Vložit, jak je uvedeno níže.

Krok 2: Nyní zapište podproces VBA makra do libovolného jména.

Kód:

 Sub VBA_Examples1 () End Sub

Krok 3: Definujte proměnnou pomocí DIM, kde budeme ukládat čísla jako celá čísla.

Kód:

 Sub VBA_Examples1 () Dim A jako celé číslo End Sub

Krok 4: Nyní zadejte libovolné číslo výše definované proměnné, jak je ukázáno níže.

Kód:

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

Krok 5: Nyní použijeme okno zprávy k tisku hodnoty uložené v proměnné A.

Kód:

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

Krok 6: Spusťte kód stisknutím klávesy F8 nebo kliknutím na tlačítko Přehrát umístěné pod nabídkovou lištou. Uvidíme okno s hodnotou 100 v něm.

Kód:

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

Krok 7: To bylo možné provést také pomocí funkce Debug Print, jejíž hodnoty jsou vidět v Okamžitém okně. ( Poznámka: Stisknutím kláves Ctrl + G otevřete okamžité okno)

Kód:

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

Příklad VBA # 2

Nyní v tomto příkladu uvidíme další příklad, kde použijeme smyčku For-Next k tisku názvů listů. Postupujte podle následujících kroků:

Krok 1: Otevřete modul a zapište podprogram, jak je uvedeno níže. K definování tohoto problému můžeme použít libovolný název.

Kód:

 Sub VBA_Examples2 () End Sub

Krok 2: Vyberte proměnnou jako celé číslo. Můžeme zvolit proměnnou názvu jako v příkladu 1.

Kód:

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

Krok 3: Otevřete smyčku For-Next, jak je ukázáno níže.

Kód:

 Sub VBA_Examples2 () Dim A jako celé číslo pro další A End Sub

Krok 4: Vyberte pozici buňky, odkud chceme vidět názvy listů. Zde nemáme žádný odkaz na záhlaví, takže můžeme začít od buňky 1.

Kód:

 Sub VBA_Examples2 () Dim A jako celé číslo pro A = 1 k listům.Count Next A End Sub

Krok 5: Nyní přiřadíme proměnnou A s hodnotou buňky, abychom viděli název listu, jak je uvedeno níže.

Kód:

 Sub VBA_Examples2 () Dim A jako celé číslo pro A = 1 do Sheets.Count Cells (A, 1) .Value = Sheets (A) .Name Next A End Sub

Krok 6: Nyní spusťte kód stisknutím klávesy F8 nebo kliknutím na tlačítko Přehrát.

Uvidíme, jak jsme měli 3 listy, všechny pojmenované default, takže jejich jméno bylo vytištěno z buňky A1 níže, až na počet listů, které máme.

Příklad VBA # 3

V tomto příkladu se naučíme, jak vytisknout čísla. Tento proces je zcela stejný jako v příkladu 2. Postupujte podle následujících kroků:

Krok 1: Otevřete modul a zapište podprogram.

Kód:

 Sub VBA_Examples3 () End Sub

Krok 2: Zvažte proměnnou pomocí DIM jako celé číslo. Protože používáme čísla typu Integer, měl by být použit datový typ.

Kód:

 Sub VBA_Examples3 () Dim A jako celé číslo End Sub

Krok 3: Znovu otevřete smyčku For-Next, jak je ukázáno níže.

Kód:

 Sub VBA_Examples3 () Dim A jako celé číslo pro další A End Sub

Krok 4: Nyní vyberte rozsah buněk, od kterého chceme vidět číslo až po poslední v syntaxi For.

Kód:

 Sub VBA_Examples3 () Dim A jako celé číslo pro A = 1 až 10 Další A End Sub

Krok 5: Nyní opravte polohu buňky proměnnou A. Zde druhý vrchol pozice v buňce ukazuje číslo sloupce. Když jsme vybrali 1, očekáváme, že čísla začneme od buňky A1.

Kód:

 Sub VBA_Examples3 () Dim A jako celé číslo pro A = 1 až 10 buněk (A, 1). Hodnota = A Next A End Sub

Krok 6: Nyní spusťte kód stisknutím klávesy F8 nebo kliknutím na tlačítko Přehrát. Uvidíme, že čísla jsou generována z buňky A1 do A10 od 1 do 10 .

Krok 7: Co když se pokusíme přidat tato čísla do druhého sloupce? Změňte vrchol sloupce z 1 na 2. Nebo přidejte další řádek kódu, jak je uvedeno níže.

Kód:

 Sub VBA_Examples3 () Dim A jako celé číslo pro A = 1 až 10 buněk (A, 1). Hodnota = A buňky (A, 2). Hodnota = A Další A End Sub

Krok 8: Celý kód znovu spusťte stisknutím klávesy F8 nebo kliknutím na tlačítko Přehrát. Uvidíme stejné číslo počínaje 1 až 10 vytištěným ve sloupci B a také z buňky B1 až B10.

Příklad 4 VBA

V tomto příkladu uvidíme, jak změnit barvu prázdných buněk z vybraných rozsahů. K tomu jsme použili stejné číslo jako v předchozím příkladu, ale některé buňky jsme odstranili, abychom získali výstup.

Krok 1: Otevřete modul, zadejte podprogram, jak je ukázáno níže.

Kód:

 Sub VBA_Example4 () End Sub

Krok 2: Definujte proměnnou pomocí DIM jako Range, protože volíme existující rozsah čísel.

Kód:

 Sub VBA_Example4 () Dim A jako konec konce sub

Krok 3: Nyní nastavte tuto proměnnou jako výběr

Kód:

 Sub VBA_Example4 () Dim A jako sada nastavení A = výběr End Sub

Krok 4: Nyní vyberte rozsah čísel pomocí definované proměnné A a zvolte xlCellTypeBlanks a vyberte pouze prázdné buňky.

Kód:

 Sub VBA_Example4 () Dim A jako sada nastavení A = výběr A.Cells.SpecialCells (xlCellTypeBlanks). End Sub

Krok 5: Nyní změňte barvu interiéru prázdných buněk, použijte Interior.Color a vyberte barvu, kterou chceme zvýraznit prázdné buňky. K definování barvy použijte typ vbBlue nebo vbGreen. Použití vb je nutností.

Kód:

 Sub VBA_Example4 () Dim A jako sada nastavení A = výběr A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub Sub

Krok 6: Nyní vyberte rozsah buněk a poté spusťte kód stisknutím klávesy F8 nebo kliknutím na tlačítko Přehrát. Uvidíme, buňky A4 a A7, které byly prázdné, jsou nyní zvýrazněny modrou barvou, jak je ukázáno níže.

Výhody a nevýhody příkladů aplikace Excel VBA

  • VBA zvyšuje efektivitu práce.
  • Tím chceme omezit opakující se úkoly najednou.
  • Můžeme vytvořit jakýkoli typ makra, který chceme.
  • Můžeme také zaznamenat makro, pokud provádění kódování není snadné.
  • Lidé, kteří nemají znalosti kódování nebo nápad, mohou mít potíže s používáním makra VBA.

Co si pamatovat

  • Začátečník ve VBA by měl mít na paměti, aby byl kód uložen v makru Excel. To nám umožní zachovat kód ve stejném souboru.
  • Zkompilujte vždy celý kód, i když je kód na jednom řádku. Tím se zkrátí náš čas na ladění, pokud se po spuštění kódu setkáte s jakoukoli chybou.
  • Vždy začněte proces učení VBA nebo jiného kódovacího jazyka s malým a snadným kódem. To umožní lepší porozumění a důvěru.

Doporučené články

Toto je průvodce příklady VBA v Excelu. Zde diskutujeme některé užitečné příklady VBA Makro kódu v Excelu spolu se stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. Kolekce VBA (příklady)
  2. VBA IF Prohlášení | Šablony Excelu
  3. Jak používat funkci řazení Excel VBA?
  4. VBA while Loop (příklady se šablonou Excel)
  5. VBA Environ

Kategorie:

VBA