Kako pregledati ćelije pomoću makronaredbe
Želite li procijeniti ćelije i utvrditi koliko je ćelija ispunjeno u rasponu, a koliko nije? Sljedeća slika prikazuje primjer:
Marker A1: B7 sadrži neke prazne ćelije i neke ispunjene ćelije. Ako želite to ocijeniti u makronaredbi, možete upotrijebiti sljedeći programski kod:
Sub CountsFilledCells ()
Dim Number As Long
Dim Number2 As Long
Zatamnjeno područje kao raspon
Dim a As String
Područje postavljanja = Odabir
Broj = Aplikacija.CountA (područje)
Count2 = area.Cells.Count - broj
a = MsgBox ("U trenutnom odabiru su" _
& Broj & "ćelije ispunjene i" & broj2 _
& "Ćelije prazne.", VbOKSamo, "procijeni ćelije")
Kraj podm
Makro postavlja funkciju CountA za brojanje broja ćelija koje nisu prazne u rasponu. Rezultat sprema varijablu broj. Kako bi se odredio broj ispunjenih stanica, ova se vrijednost oduzima od broja ukupno pregledanih stanica. Makro sprema ovu vrijednost u Broj 2.
Nakon početka programski kôd određuje broj ispunjenih i praznih ćelija u aktivnoj oznaci i prikazuje rezultat u prozoru:
Ako želite obraditi raspon po vašem izboru, a ne trenutni odabir, prilagodite dodjelu vrijednosti varijabli području na. Koristi se u makronaredbi sa svojstvom Izbor spojen. Ako umjesto toga želite sami definirati raspon, zamijenite postavljen-Dodjela varijabli području izrazom sljedećeg oblika:
Postavljeni raspon = Domet ("A1: B5")
Specifikacija raspona uvijek se odnosi na aktivni radni list. Ako se želite obratiti drugom radnom listu, stavite ispred DometNaredite reference na metode Radne bilježnice i Listovi fiksno.
