Ten przykład ilustruje Kolekcja obszarów w Excel VBA. Poniżej obramowaliśmy Range("B2:C3,C5:E5"). Ten zakres ma dwa obszary. Przecinek oddziela te dwa obszary.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy dwa obiekty Range. Obiekty Range nazywamy rangeToUse i singleArea.
Zakres przyciemnienia, aby użyć jako zakres, pojedynczy obszar jako zakres
2. Inicjujemy obiekt RangeToUse z Range("B2:C3,C5:E5")
Ustaw rangeToUse = Range("B2:C3,C5:E5")
3. Aby policzyć liczbę obszarów rangeToUse, dodaj następującą linię kodu:
MsgBox zakresDoUżycia.Obszary.Liczba
Wynik:
4. Możesz odwołać się do różnych obszarów rangeToUse, używając wartości indeksu. Poniższa linia kodu zlicza liczbę komórek pierwszego obszaru.
MsgBox zakresDoUżycia.Obszary(1).Liczba
Wynik:
5. Możesz także przejść przez każdy obszar rangeToUse i policzyć liczbę komórek w każdym obszarze. Poniższe makro załatwia sprawę.
Dla każdego pojedynczego obszaru W zasięguDoUżycia.Obszary
MsgBox singleArea.Count
Następny pojedynczyObszar
Wynik:
Aby zapoznać się z praktycznym przykładem kolekcji obszarów, zobacz nasz przykładowy program Porównaj zakresy.