Dette eksempel illustrerer Områdesamling i Excel VBA. Nedenfor har vi grænset op til rækkevidde ("B2: C3, C5: E5"). Denne serie har to områder. Kommaet adskiller de to områder.
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi to Range -objekter. Vi kalder Range -objekterne rangeToUse og singleArea.
Dim rangeToUse As Range, singleArea As Range
2. Vi initialiserer Range -objektet rangeToUse med Range ("B2: C3, C5: E5")
Indstil rangeToUse = Range ("B2: C3, C5: E5")
3. For at tælle antallet af områder i rangeToUse skal du tilføje følgende kodelinje:
MsgBox rangeToUse.Areas.Count
Resultat:
4. Du kan henvise til de forskellige områder af rangeToUse ved at bruge indeksværdierne. Følgende kodelinje tæller antallet af celler i det første område.
MsgBox rangeToUse.Areas (1) .Tælling
Resultat:
5. Du kan også gå gennem hvert område af rangeToUse og tælle antallet af celler i hvert område. Makroen herunder gør tricket.
For hvert enkelt område In rangeToUse.Areas
MsgBox singleArea.Count
Næste singleArea
Resultat:
For et praktisk eksempel på områdesamlingen, se vores eksempelprogram Sammenlign områder.