Sådan undersøges celler med en makro
Vil du gerne evaluere celler og bestemme, hvor mange celler der er udfyldt i et område, og hvor mange ikke er det? Følgende figur viser et eksempel:
A1: B7 -markøren indeholder nogle tomme celler og nogle fyldte celler. Hvis du vil evaluere dette i en makro, kan du bruge følgende programkode:
Sub CountsFilledCells ()
Dim Number så længe
Dim Number2 så længe
Dim område som område
Dim a som streng
Indstil område = markering
Nummer = Application.CountA (område)
Count2 = area.Cells.Count - nummer
a = MsgBox ("I det aktuelle valg er" _
& Nummer & "celler fyldt og" & nummer2 _
& "Celler tomme.", Kun VbOK, "evaluer celler")
Afslut Sub
Makroen indstiller funktionen Tæl A. at tælle antallet af ikke-tomme celler i et område. Resultatet gemmer variablen nummer. For at bestemme antallet af fyldte celler trækkes denne værdi fra antallet af undersøgte samlede celler. Makroen gemmer denne værdi i Nummer 2.
Efter starten bestemmer programkoden antallet af fyldte og tomme celler i den aktive markering og viser resultatet i et vindue:
Hvis du vil behandle et valg af dit valg frem for det aktuelle valg, skal du tilpasse værditildelingen til variablen areal på. Det bruges i makroen med ejendommen Udvælgelse forbundet. Hvis du vil definere et område selv i stedet, skal du udskifte sæt-Tildeling til variablen areal ved et udtryk for følgende form:
Indstil område = område ("A1: B5")
Områdespecifikationen refererer altid til det aktive regneark. Hvis du vil adressere et andet regneark, skal du sætte det foran RækkeviddeKommandér referencerne til metoderne Arbejdsbøger og Ark fast.