Hur man undersöker celler med ett makro
Vill du utvärdera celler och avgöra hur många celler som fylls i ett område och hur många inte? Följande bild visar ett exempel:
A1: B7 -markören innehåller några tomma celler och några fyllda celler. Om du vill utvärdera detta i ett makro kan du använda följande programkod:
Sub CountsFilledCells ()
Dim Number As Long
Dim Number2 Så länge
Dim område som intervall
Dim a As String
Ange område = Urval
Number = Application.CountA (område)
Count2 = area.Cells.Count - nummer
a = MsgBox ("I det aktuella urvalet är" _
& Nummer & "celler fyllda och" & nummer2 _
& "Celler tomma.", VbOKOnly, "utvärdera celler")
Avsluta Sub
Makrot ställer in funktionen CountA att räkna antalet icke-tomma celler i ett område. Resultatet sparar variabeln siffra. För att bestämma antalet fyllda celler subtraheras detta värde från antalet totalt undersökta celler. Makrot sparar detta värde i Nummer 2.
Efter starten bestämmer programkoden antalet fyllda och tomma celler i den aktiva markeringen och visar resultatet i ett fönster:
Om du vill bearbeta ett valfritt område snarare än det aktuella urvalet, anpassa värdetilldelningen till variabeln område på. Det används i makrot med egenskapen Urval ansluten. Om du istället vill definiera ett intervall själv, ersätt uppsättning-Tilldelning till variabeln område genom ett uttryck för följande form:
Ange intervall = Område ("A1: B5")
Områdespecifikationen hänvisar alltid till det aktiva kalkylbladet. Om du vill ta upp ett annat kalkylblad, lägg det framför RäckviddKommandon referenser till metoderna Arbetsböcker och Ark fast.