Ta primer ponazarja Zbiranje območij v Excel VBA. Spodaj imamo omejen obseg ("B2: C3, C5: E5"). To območje ima dve področji. Vejica ločuje dve področji.
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo dva predmeta Range. Objekte Range imenujemo rangeToUse in singleArea.
Zatemni območjeČe želite uporabiti območje, eno območje kot območje
2. Inicializiramo objekt Range rangeToUse z Range ("B2: C3, C5: E5")
Set rangeToUse = Range ("B2: C3, C5: E5")
3. Če želite šteti število področij rangeToUse, dodajte naslednjo kodno vrstico:
MsgBox rangeToUse.Areas.Count
Rezultat:
4. S pomočjo indeksnih vrednosti se lahko sklicujete na različna področja rangeToUse. Naslednja kodna vrstica šteje število celic prvega območja.
MsgBox rangeToUse.Areas (1) .Count
Rezultat:
5. Prav tako lahko prelistate vsako območje rangeToUse in preštejete število celic vsakega območja. Spodnji makro zmore.
Za vsako posamezno območje v območjuToUse.Areas
MsgBox singleArea.Count
Naslednja singleArea
Rezultat:
Za praktičen primer zbiranja površin si oglejte naš primer programa Primerjaj območja.