Tento príklad ilustruje Zber oblastí v Excel VBA. Ďalej sme ohraničili rozsah („B2: C3, C5: E5“). Tento rozsah má dve oblasti. Tieto dve oblasti oddeľuje čiarka.
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme dva objekty Range. Objekty Range nazývame rangeToUse a singleArea.
Dim rangeToUse As Range, singleArea As Range
2. Inicializujeme objekt Range rangeToUse s rozsahom („B2: C3, C5: E5“)
Nastaviť rangeToUse = rozsah ("B2: C3, C5: E5")
3. Ak chcete spočítať počet oblastí rangeToUse, pridajte nasledujúci riadok kódu:
Rozsah MsgBoxToUse.Areas.Count
Výsledok:
4. Na rôzne oblasti rangeToUse sa môžete obrátiť pomocou hodnôt indexu. Nasledujúci riadok kódu počíta počty buniek prvej oblasti.
MsgBox rangeToUse.Areas (1) .Count
Výsledok:
5. Môžete tiež prechádzať každou oblasťou rangeToUse a spočítať počet buniek v každej oblasti. Makro nižšie robí svoje.
Pre každú jednotlivú oblasť v rozsahuToUse.Areas
MsgBox singleArea.Count
Nasledujúca singleArea
Výsledok:
Praktický príklad zberu oblastí nájdete v našom príklade programu Porovnanie rozsahov.