Jak počítat řádky listu aplikace Excel pomocí makra VBA

Autor: Janice Evans
Datum Vytvoření: 27 Červenec 2021
Datum Aktualizace: 17 Listopad 2024
Anonim
Jak počítat řádky listu aplikace Excel pomocí makra VBA - Články
Jak počítat řádky listu aplikace Excel pomocí makra VBA - Články

Obsah

Někdy potřebujeme znát počet řádků použitých v tabulce aplikace Excel, abychom mohli vytvořit vzorec nebo dokonce makro VBA. Naštěstí existují některé poměrně snadné způsoby, jak to udělat, a Excel VBA je jen jedním z nich.Nejjednodušší způsob, jak zjistit tyto informace, je přejít na konec listu a podívat se na číslo vpravo od posledního datového bodu; nicméně, s VBA, tento výpočet je extrémně jednoduchý.


Pokyny

S VBA je velmi jednoduché spočítat počet řádků v listu aplikace Excel (BananaStock / BananaStock / Getty Images)

    Plánování makra

  1. Otevřete list aplikace Excel a editor VBA stisknutím klávesy "Alt + F11".

  2. Spusťte nový soubor projektu VBA klepnutím pravým tlačítkem myši na sešit zobrazený v nabídce vpravo a výběrem možnosti Nový.

  3. Spusťte novou funkci zadáním "Sub CountRows ()". To řekne kompilátoru VBA, že je nový podprogram pro soubor projektu. Pokud dáváte přednost přejmenování podprogramu, změňte text "CountRows" na libovolné požadované jméno, za nímž musí následovat závorky uvedené výše, například "YourName ()".


  4. Vytvořte proměnnou obsahující text "Dim Count as Long" na dalším řádku.

  5. Zadejte následující kód:

    Počet = 0 Počet = Počet + 1 ActiveCell.Offset (1, 0) .Vybrat smyčku do IsEmpty (ActiveCell.Offset (0, 1))

    To informuje kompilátor program, který je nutné analyzovat proměnné počet a potom spočítat řádky celého listu. Kód přidá proměnnou do celkového počtu a poté se přesune na další buňku, dokud je prázdný. Když dosáhne prázdné buňky, provedení se zastaví.

  6. Aktivovat textové pole přidáním nového řádku s textem "MsgBox Count". Zobrazí se vyskakovací okno, které vám řekne celkový počet řádků. Chcete-li, aby pole bylo o něco užitečnější, můžete zadat libovolný další text. Přejmenovat řádek na:

    MsgBox "Počet řádků" [počet]


    Text můžete podle potřeby změnit v uvozovkách.

  7. Nakonec zadejte "End Sub" v novém řádku pro ukončení funkce podprogramu.

    Spuštění makra

  1. Vraťte se do listu aplikace Excel a uložte jej.

  2. Zvýrazněte první buňku sloupce, která obsahuje největší počet dat. Tento sloupec by neměl obsahovat prázdné buňky od jeho vrcholu ke dnu.

  3. Otevřete nabídku "Nástroje" a vyberte "makra" zobrazit dialogové okno, které obsahuje všechna makra programované pro list.

  4. Vyberte makro vytvořené v oddílu 1 s názvem "CountRows" nebo jiným názvem, který jste zadali, a klepněte na tlačítko "Spustit". Po dokončení zobrazí makro rozbalovací textové pole, ve kterém je uveden počet vyplněných řádků

Jak

  • Pokud potřebujete jen získat číslo, jednodušší a jednodušší alternativou je spočítat řádky pomocí vzorce. V prázdné buňce zadejte "= COUNT (A: A, IF (A> 0,1,0))", kde A je sloupec, jehož počet řádků se počítá.