Počítadlo v Excel VBA

Existujú rôzne spôsoby počítania v MS Excel. Môžeme použiť vstavané funkcie ako Count, CountIf, CountA, CountBlank, ktoré sú v Exceli. Ale tieto funkcie nebudú vo VBA fungovať správne a majú tiež obmedzenia. Aby sme to prekonali, máme veľa funkcií a príkazov a proces, pomocou ktorého môžeme vykonávať VBA Counter. Počítadlo VBA sa používa na počítanie buniek, počítanie obsahu buniek a tiež sa používa ako časovač odpočítavania, keď môžeme implementovať časový rozvrh na meranie akejkoľvek úlohy.

Pomocou počítadla VBA počítame bunky s ich farebnými indexmi. Tento index farieb môže tiež farbu písma alebo farby pozadia bunky a tučné hodnoty.

Ako vytvoriť počítadlo v Excel VBA?

Nižšie sú uvedené rôzne príklady vytvorenia počítadla v programe Excel pomocou kódu VBA.

Túto šablónu počítadla Excel VBA si môžete stiahnuť tu - šablónu počítadla Excel VBA

Počítadlo VBA - príklad č. 1

V stĺpci A máme nejaké údaje o náhodných číslach. Všetky uvedené hodnoty sú náhodné a nemajú žiadne spojenie, napríklad v postupnosti alebo sérii. Teraz pomocou procesu počítadla VBA spočítame najvyššie a najspodnejšie hodnoty a získame výstup v bunke D2 a D3.

Počítame ich počet a súčasne ich zafarbíme podľa farebného textu v bunke C2 a C3.

Postupujte podľa nasledujúcich krokov:

Krok 1: Vytvorte príkazové tlačidlo, ktoré je k dispozícii na karte Vývojár v ovládacom prvku Active X Control v ponuke Vložiť, ako je to znázornené nižšie.

Krok 2: Teraz vytvorte tlačidlo, ako je znázornené nižšie.

Krok 3: Kliknite pravým tlačidlom myši na vytvorené tlačidlo a prejdite na možnosť Vlastnosti .

Krok 4: Zmeňte nadpis tlačidla, ktoré je predvolene ako CommandButton2, na ľubovoľné meno. Tu sme to zmenili na „ Počítanie buniek podľa hodnoty “.

Krok 5: Po dokončení kliknite pravým tlačidlom myši na vytvorené tlačidlo a vyberte možnosť Zobraziť kód, čím sa zobrazí okno VBA.

Editor jazyka Visual Basic je teraz otvorený a v predvolenom nastavení je pre príkazové tlačidlo už vytvorený podprogram.

kód:

 Private Sub CommandButton2_Click () End Sub

Krok 6: Teraz musíme deklarovať 3 premenné. Vyhláste prvú premennú, do ktorej uložíme čísla a druhú premennú, pomocou ktorej použijeme počítadlo ako celé čísla, ako je uvedené nižšie. A tretia premenná bude tak dlhá, aby sa spočítali čísla uložené v každom riadku.

kód:

 Private Sub CommandButton2_Click () Dim A Integer Dim Dim Count Integer Dim LRow As Long End Sub

Krok 7: Teraz vyberieme prvú bunku listu, ktorá je A1 ako náš rozsah. Odtiaľ vyberieme bunky, až kým nebudú mať čísla.

kód:

 Private Sub CommandButton2_Click () Dim A ako celé číslo Dim Count ako Integer Dim LRow As Long LRow = Range ("A1"). CurrentRegion.End (xlDown) .Row End Sub Sub

Krok 8: Teraz otvoríme a zapíšeme podmienku do For for for, ak má bunka hodnotu väčšiu ako 10, potom sa farba bunkového písma zmení na žltú a pre hodnotu menšiu ako 10 sa farba bunkového písma zmení na Modrá s farebnými indexmi 44 a 55 .

kód:

 Private Sub CommandButton2_Click () Dim A ako Integer Dim Počet ako Integer Dim LRow As Long LRow = Range ("A1"). CurrentRegion.End (xlDown) .Row For A = 1 To LRow If Cells (A, 1) .Value> 10 Potom počet = počet + 1 bunky (A, 1). Čelný stĺpec = 44 ostatných buniek (A, 1). Čiarový stĺpec = 55 koniec, ak je ďalší koniec

Krok 9: Teraz, aby sme videli výstup hodnôt z bunky A1 do konca, vyberieme bunky, ako je uvedené vyššie v nižšie uvedenom kóde.

kód:

 Private Sub CommandButton2_Click () Dim A ako Integer Dim Počet ako Integer Dim LRow As Long LRow = Range ("A1"). CurrentRegion.End (xlDown) .Row For A = 1 To LRow If Cells (A, 1) .Value> 10 Potom počet = počet + 1 bunky (A, 1). Čelný stĺpec = 44 ostatných buniek (A, 1). Čelný stĺpec = 55 Koniec, ak budú bunky ďalej A (2, 4). Hodnota = počet buniek (3, 4). Hodnota = 12 - Počet odpočítavacích čiastok

Krok 10: Teraz spustite kód stlačením tlačidla.

Uvidíme, bunky obsahujúce čísla menšie ako 10 sú zvýraznené modrou farbou. A tá vyššia ako 10 je zvýraznená žltou farbou.

Počítadlo VBA - príklad č. 2

V tomto príklade použijeme počítadlo VBA na meranie času, do ktorého môžeme zmerať odber, ktorý robíme. Predpokladajme, že ak potrebujeme zmerať čas potrebný na dokončenie akejkoľvek úlohy, potom je najlepší postup, ktorý tu uvidíme.

Postupujte podľa nasledujúcich krokov:

Krok 1: Vytvorte 2 karty ľubovoľného tvaru z ponuky Vložiť Možnosti tvarov, ako je uvedené nižšie. Vyberáme obdĺžnik: zaoblené rohy .

Krok 2: Vytvorte 2 tlačidlá a pomenujte ich ako Štart a Reset, čím spustíme časovač a vynulujeme čas.

Krok 3: Teraz prejdite na VBA a otvorte modul z ponuky Vložiť.

Krok 4: V tom napíšte podkategóriu Časovač spustenia, ako je to znázornené nižšie.

kód:

 Vedľajší štart () Koniec Vedľajší

Krok 5: Zvážte slovo pre nasledujúci riadok, napríklad NextRow, kde vyberieme pracovný hárok, v ktorom chceme implementovať kód. Náš list je List2 . A tu spočítame riadky z bunky +1, čo je bunka A2, až kým kurzor nezaznamená túto hodnotu.

kód:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Bunky (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub

Krok 6: Teraz sa dostaneme do nasledujúceho riadku, použijeme vertexový formát, kde 1 v zátvorke je pre os Y.

kód:

 Sub Start () NextRow = ThisWorkbook.Sheets ("Sheet2"). Bunky (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (NextRow, 1) = Sub End Time Sub

Krok 7: Zadajte kód pre Reset pod rovnakým štartovacím kódom.

kód:

 Sub Reset () Koniec Sub

Krok 8: Teraz na obnovenie zachováme rovnaký kód ako na začiatku, ale kľúčové slovo sa zmení na LastRow a +1 odstránime, takže sa nemusíme dostať do iného riadku.

kód:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Bunky (Rows.Count, 1) .End (xlUp) .Row End End Sub

Krok 9: Teraz na vymazanie údajov z poslednej bunky v stĺpci A do prvej bunky najskôr vyberte rozsah buniek s funkciou ClearContents .

kód:

 Sub Reset () lastrow = ThisWorkbook.Sheets ("Sheet2"). Bunky (Rows.Count, 1) .End (xlUp) .Row Range ("A2: A" & lastrow) .ClearContents End Sub Sub

Teraz zatvorte okno VBA.

Krok 10: Pravým tlačidlom myši kliknite na kartu Štart a vyberte možnosť Priradiť makro .

Krok 11: Vyberte podprogram Štart, ktorý sme vykonali vyššie.

Krok 12: Rovnaké urobte aj pre tlačidlo Reset. Priraďte subkód Reset na tlačidlo Reset a kliknite na OK a ukončite návrhový režim, aby ste vykonali kód.

Krok 13: Teraz kliknite najskôr na tlačidlo Štart . Čas začiatku dostaneme ako 3:51:33.

Krok 14: Teraz znova kliknite na tlačidlo Štart 2-3 krát, aby ste získali viacnásobný časový odstup. Uvidíme, že v každej iterácii je pár sekúnd.

Krok 15: Teraz otestujeme tlačidlo Reset . Kliknite na Reset. Uvidíme, údaje sú teraz vymazané a pripravené na ďalšie kolá počítania času.

Výhody programu Excel VBA Counter

  • Je veľmi ľahké implementovať počítadlo časových kôl, ako sme videli v príklade 2.
  • Počítadlo VBA má veľa typov implementácie, nie je to obmedzené iba na príklady, ktoré sme videli.

Čo je potrebné pamätať

  • Vždy je lepšie priradiť kód každému tlačidlu, keď sme vykonali 2 alebo viac typov kódu v jednom procese.
  • Po priradení a vykonaní kódu na karte Vývojár ukončite režim návrhu.
  • Môžeme tiež vytvoriť počítadlo času naživo, kde môžeme vidieť odpočítavanie času alebo sledovanie času v reálnom čase.
  • Uložte makro do makra, aby ste umožnili vynikajúci formát súborov, aby sme nestratili náš kód.

Odporúčané články

Toto je sprievodca počítadlom VBA. Tu diskutujeme o tom, ako vytvoriť VBA Counter v Exceli pomocou kódu VBA spolu s praktickými príkladmi a stiahnuteľnou šablónou Excel. Viac informácií nájdete aj v nasledujúcom článku -

  1. Použitie chyby prekročenia VBA v programe Excel
  2. Príklady chyby VBA 1004
  3. Ako používať VBA DoEvents?
  4. Metódy skrytia stĺpcov vo VBA

Kategórie:

VBA