/ / Excel VBA Områder Collection

Excel VBA Områder Indsamling

Dette eksempel illustrerer Indsamling af arealer i Excel VBA. Nedenfor har vi grænser op til Range ("B2: C3, C5: E5"). Denne rækkevidde har to områder. Kommaet adskiller de to områder.

Områder Indsamling i Excel VBA

Placer en kommandoknap på dit regneark og tilføj følgende kodelinjer:

1. Først erklærer vi to rækkeobjekter. Vi kalder Range Objects rangeToUse og singleArea.

Dim rangeToUse As Range, singleArea As Range

2. Vi initialiserer Range-objektintervallet Anvend med rækkevidde ("B2: C3, C5: E5")

Set rangeToUse = Range("B2:C3,C5:E5")

3. For at tælle antallet af områder i intervalToUse, tilføj følgende kode linje:

MsgBox rangeToUse.Areas.Count

Resultat:

Antal områder

4. Du kan henvise til de forskellige områder af intervalToUse ved hjælp af indeksværdierne. Følgende kode linje tæller antallet af celler i det første område.

MsgBox rangeToUse.Areas(1).Count

Resultat:

Grevceller, første område

5. Du kan også løbe gennem hvert område af interval. Brug og tæl antallet af celler i hvert område. Makroen nedenfor gør tricket.

For Each singleArea In rangeToUse.Areas
    MsgBox singleArea.Count
Next singleArea

Resultat:

Grevceller, første område

Grevceller, andet område

For et praktisk eksempel på områdets samling, se vores eksempelprogram Sammenlign ranges.

Læs også: