Ez a példa illusztrálja a Területek gyűjtése ban ben Excel VBA. Az alábbiakban a határos tartományt határozzuk meg ("B2: C3, C5: E5"). Ennek a tartománynak két területe van. A vessző elválasztja a két területet.
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először két Range objektumot deklarálunk. A Range objektumokat rangeToUse és singleArea -nak hívjuk.
Dim tartomány: ToUse As Range, singleArea As Range
2. Inicializáljuk a Range objektum rangeToUse tartományt ("B2: C3, C5: E5")
RangeToUse = Tartomány beállítása ("B2: C3, C5: E5")
3. A tartományToUse területeinek számításához adja hozzá a következő kód sort:
MsgBox rangeToUse.Areas.Count
Eredmény:
4. Az index értékek segítségével hivatkozhat a rangeToUse tartomány különböző területeire. A következő kódsor számolja az első terület celláinak számát.
MsgBox rangeToUse.Areas (1). Szám
Eredmény:
5. A tartományToUse egyes területein is ciklusba léphet, és megszámolhatja az egyes területek celláinak számát. Az alábbi makró teszi a dolgát.
Minden egyes területhezA tartományToUse.Areas
MsgBox singleArea.Count
Következő kislemezArea
Eredmény:
A területek gyűjteményének gyakorlati példáját lásd a tartományok összehasonlítása példaprogramunkban.