See näide illustreerib Alade kogumine sisse Exceli VBA. Allpool oleme piiritletud vahemikuga ("B2: C3, C5: E5"). Sellel vahemikul on kaks piirkonda. Koma eraldab need kaks ala.
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerime kaks vahemiku objekti. Me nimetame vahemiku objekte vahemikuks toToUse ja singleArea.
Dim vahemikToUse As Range, singleArea As Range
2. Initsialiseerime Range objektivahemiku RanToUse koos vahemikuga ("B2: C3, C5: E5")
Määra rangeToUse = Vahemik ("B2: C3, C5: E5")
3. Vahemiku piirkondade arvu lugemiseks lisage järgmine koodirida:
MsgBoxi vahemikToUse.Areas.Count
Tulemus:
4. Indeksi väärtuste abil saate viidata vahemiku rangeToUse erinevatele aladele. Järgmine koodirida loendab esimese piirkonna lahtrite arvu.
MsgBoxi vahemikToUse.Areas (1). Loend
Tulemus:
5. Samuti saate loopToUse iga ala läbida ja loendada iga piirkonna lahtrite arvu. Allpool olev makro teeb asja ära.
Iga üksiku piirkonna jaoks vahemikusToUse.Areas
MsgBox singleArea.Count
Järgmine singelArea
Tulemus:
Piirkondade kogumise praktilise näite leiate meie näidisprogrammist Vahemike võrdlemine.