U hebt de macro "UsedRange" nodig om alle cellen in een tabel te markeren of te tellen met behulp van een macro. Aan de hand van twee voorbeelden laten we u zien hoe u dit op de juiste manier gebruikt.
Als u cellen in uw tabellen met macro's wilt verwerken, moet u zich beperken tot de cellen die daadwerkelijk inhoud bevatten. Dit is gemakkelijker en veel sneller dan door alle cellen in alle kolommen en rijen te zoeken. Excel biedt u hiervoor de woning GebruiktBereik Bij. Het verwijst naar alle gebruikte cellen van een tabel en levert a Bereik-Object.
Gebruik UsedRange om de gebruikte Excel-cellen te markeren
De volgende macro laat zien hoe u de eigenschap in de praktijk kunt gebruiken:
Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Selecteren
Einde sub
De volgende afbeelding laat zien hoe het eruit kan zien wanneer de macro in een tabel wordt gebruikt. Alle gebruikte cellen zijn gemarkeerd:
De macro markeert altijd de cellen in de actieve tabel. Als u een andere tabel wilt gebruiken, vervangt u het object ActiveSheet door te verwijzen naar de desbetreffende tabel.
Hoe de gebruikte celbereiken in Excel te tellen
Gebruik de volgende macro om het aantal cellen in een tabel met een formule te tellen:
SubformulesTellen ()
Dim Cell As Range Dim Count As Double Count = 0 voor elke cel in ActiveSheet.UsedRange. Cellen Als cel. HasFormula Dan Teller = Teller + 1 Volgende cel MsgBox ("Er zijn" & Str $ (teller) & "cellen met formules in de actieve tabel.")
Einde sub
De macro stelt de eigenschap in Gebruikte Bereik.Cellen dat maakt het mogelijk om te verwijzen naar alle cellen die in gebruik zijn in de tabel. Als een cel een formule bevat, wordt de variabele "Teller" met 1 verhoogd. Het resultaat wordt vervolgens in een berichtvenster weergegeven:
