Jak prozkoumat buňky pomocí makra
Chcete vyhodnotit buňky a určit, kolik buněk je v rozsahu vyplněno a kolik ne? Následující obrázek ukazuje příklad:
Značka A1: B7 obsahuje některé prázdné buňky a některé vyplněné buňky. Pokud to chcete vyhodnotit v makru, můžete použít následující kód programu:
Dílčí počtyFilledCells ()
Dim číslo jako dlouhé
Dim Number2 as Long
Dim area As Range
Dim a As String
Nastavit oblast = výběr
Číslo = Application.CountA (oblast)
Count2 = area.Cells.Count - číslo
a = MsgBox ("V aktuálním výběru jsou" _
& Číslo & "buňky vyplněny a" & číslo2 _
& „Buňky prázdné.“, VbOKOnly, „vyhodnotit buňky“)
End Sub
Makro nastavuje funkci Hrabě A. spočítat počet neprázdných buněk v rozsahu. Výsledek uloží proměnnou číslo. K určení počtu naplněných buněk se tato hodnota odečte od počtu zkoumaných celkových buněk. Makro uloží tuto hodnotu do Číslo 2.
Po spuštění programový kód určí počet naplněných a prázdných buněk v aktivním označení a výsledek zobrazí v okně:
Pokud chcete zpracovat rozsah podle vašeho výběru místo aktuálního výběru, přizpůsobte přiřazení hodnoty proměnné plocha na. Používá se v makru s vlastností Výběr připojen. Pokud chcete místo toho definovat rozsah sami, nahraďte soubor-Přiřazení proměnné plocha výrazem v následující podobě:
Nastavit rozsah = rozsah ("A1: B5")
Specifikace rozsahu vždy odkazuje na aktivní list. Pokud chcete adresovat jiný list, vložte jej před RozsahPříkaz odkazy na metody Sešity a Povlečení na postel pevný.