Ako skúmať bunky pomocou makra
Chcete vyhodnotiť bunky a určiť, koľko buniek je vyplnených v rámci rozsahu a koľko nie? Nasledujúci obrázok ukazuje príklad:
Značka A1: B7 obsahuje niekoľko prázdnych buniek a niektoré vyplnené bunky. Ak to chcete vyhodnotiť v makre, môžete použiť nasledujúci kód programu:
Podpočetné hodnoty Vyplnené bunky ()
Dim číslo ako dlhé
Dim číslo 2 ako dlhé
Tmavá oblasť ako rozsah
Reťazec Dim a As
Nastaviť oblasť = výber
Číslo = Application.CountA (oblasť)
Count2 = area.Cells.Count - číslo
a = MsgBox ("V aktuálnom výbere sú" _
& Číslo & "bunky vyplnené a" & číslo2 _
& „Bunky prázdne.“, VbOKLen „vyhodnotiť bunky“)
Koniec pod
Makro nastavuje funkciu Gróf A. spočítať počet prázdnych buniek v rozsahu. Výsledok uloží premennú číslo. Na stanovenie počtu naplnených buniek sa táto hodnota odpočíta od celkového počtu skúmaných buniek. Makro uloží túto hodnotu do Číslo 2.
Po spustení programový kód určí počet naplnených a prázdnych buniek v aktívnom označení a výsledok zobrazí v okne:
Ak chcete spracovať rozsah podľa vlastného výberu a nie pre aktuálny výber, prispôsobte priradenie hodnoty premennej oblasť o. Používa sa v makre s vlastnosťou Výber pripojený. Ak chcete namiesto toho definovať rozsah sami, nahraďte nastaviť-Priradenie k premennej oblasť vyjadrením nasledujúceho tvaru:
Nastaviť rozsah = rozsah ("A1: B5")
Špecifikácia rozsahu vždy odkazuje na aktívny pracovný hárok. Ak chcete adresovať ďalší pracovný hárok, umiestnite ho pred RozsahPríkaz na odkazy na metódy Pracovné zošity a Listy opravené.
