Kako pregledati celice z makrom
Ali želite ovrednotiti celice in ugotoviti, koliko celic je zapolnjenih v obsegu in koliko ne? Naslednja slika prikazuje primer:
Marker A1: B7 vsebuje nekaj praznih celic in nekaj napolnjenih celic. Če želite to oceniti v makru, lahko uporabite naslednjo programsko kodo:
PodštevilkeFilledCells ()
Zatemni število tako dolgo
Dim Number2 As Long
Zatemni območje kot območje
Zatemni kot niz
Nastavljeno območje = Izbor
Number = Application.CountA (območje)
Count2 = area.Cells.Count - število
a = MsgBox ("V trenutni izbiri so" _
& Število & "celice napolnjene in" & številka2 _
& "Celice prazne.", VbOKSamo "oceni celice")
End Sub
Makro nastavi funkcijo ŠtetjeA za štetje števila celic, ki niso prazne, v območju. Rezultat shrani spremenljivko številko. Za določitev števila napolnjenih celic se ta vrednost odšteje od števila vseh pregledanih celic. Makro shrani to vrednost v Številka 2.
Po zagonu programska koda določi število napolnjenih in praznih celic v aktivni oznaki in prikaže rezultat v oknu:
Če želite obdelati obseg po vaši izbiri in ne trenutnega izbora, prilagodite dodelitev vrednosti spremenljivki območje ob. Uporablja se v makronu z lastnostjo Izbor povezan. Če želite namesto tega sami določiti obseg, zamenjajte nastavljeno-Dodelitev spremenljivki območje z izrazom naslednje oblike:
Nastavljeno območje = območje ("A1: B5")
Specifikacija obsega se vedno nanaša na aktivni delovni list. Če želite nasloviti drug delovni list, ga postavite pred DometUkažite sklice na metode Delovni zvezki in Listi fiksno.