Bestem tomme og fylte Excel -celler via VBA

Anonim

Hvordan undersøke celler med en makro

Vil du evaluere celler og bestemme hvor mange celler som er fylt i et område og hvor mange som ikke er det? Følgende figur viser et eksempel:

A1: B7 -markøren inneholder noen tomme celler og noen fylte celler. Hvis du vil evaluere dette i en makro, kan du bruke følgende programkode:

Sub CountsFilledCells ()
Dim Number As Long
Dim Number2 så lenge
Dim area As Range
Dim a As String
Angi område = utvalg
Number = Application.CountA (område)
Count2 = area.Cells.Count - nummer
a = MsgBox ("I gjeldende utvalg er" _
& Nummer & "celler fylt og" & nummer2 _
& "Celler tomme.", VbOKOnly, "evaluere celler")
Slutt Sub

Makroen angir funksjonen CountA å telle antall ikke-tomme celler i et område. Resultatet lagrer variabelen Nummer. For å bestemme antall fylte celler, trekkes denne verdien fra antall totalt undersøkte celler. Makroen lagrer denne verdien i Nummer 2.

Etter starten bestemmer programkoden antall fylte og tomme celler i den aktive merkingen og viser resultatet i et vindu:

Hvis du vil behandle et utvalg du ønsker i stedet for det gjeldende valget, må du tilpasse verditildelingen til variabelen område på. Den brukes i makroen med eiendommen Valg tilkoblet. Hvis du vil definere et område selv i stedet, erstatter du sett-Tildeling til variabelen område ved et uttrykk for følgende form:

Angi område = Område ("A1: B5")

Områdespesifikasjonen refererer alltid til det aktive regnearket. Hvis du vil adressere et annet regneark, legger du det foran OmrådeKommandere referansene til metodene Arbeidsbøker og Ark fikset.