Hoe cellen te onderzoeken met een macro
Wilt u cellen evalueren en bepalen hoeveel cellen in een bereik worden gevuld en hoeveel niet? De volgende afbeelding toont een voorbeeld:
De A1: B7-markering bevat enkele lege cellen en enkele gevulde cellen. Als u dit in een macro wilt evalueren, kunt u de volgende programmacode gebruiken:
Sub CountsFilledCells ()
Dim nummer zo lang
Dim nummer2 zo lang
Dim gebied Als bereik
Dim een As-string
Gebied instellen = Selectie
Nummer = Application.CountA (gebied)
Count2 = area.Cells.Count - getal
a = MsgBox ("In de huidige selectie zijn" _
& Nummer & "cellen gevuld en" & nummer2 _
& "Cellen leeg.", VbOKOnly, "cellen evalueren")
Einde sub
De macro stelt de functie in: graafA om het aantal niet-lege cellen in een bereik te tellen. Het resultaat slaat de variabele op nummer. Om het aantal gevulde cellen te bepalen, wordt deze waarde afgetrokken van het totale aantal onderzochte cellen. De macro slaat deze waarde op in Nummer 2.
Na de start bepaalt de programmacode het aantal gevulde en lege cellen in de actieve markering en geeft het resultaat weer in een venster:
Als u een bereik van uw keuze wilt verwerken in plaats van de huidige selectie, past u de waardetoewijzing aan de variabele aan Oppervlakte Bij. Het wordt gebruikt in de macro met de eigenschap Selectie verbonden. Als u in plaats daarvan zelf een bereik wilt definiëren, vervangt u de set-Toewijzing aan de variabele Oppervlakte door een uitdrukking van de volgende vorm:
Bereik instellen = bereik ("A1: B5")
De bereikspecificatie verwijst altijd naar het actieve werkblad. Als je een ander werkblad wilt behandelen, zet dan voor de BereikCommandeer de verwijzingen naar de methoden Werkmappen en Lakens gemaakt.
