Этот пример иллюстрирует коллекцию Areas в Excel VBA. Ниже мы граничили Range ( «B2: C3, C5: E5»). Этот диапазон имеет две области. Запятая разделяет две области.

Areas Collection in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, мы объявляем два объекта Range. Мы называем объекты Диапазон rangeToUse и singleArea.

Dim rangeToUse As Range, singleArea As Range

  1. Мы инициализировать объект rangeToUse Range с Range ( «B2: C3, C5: E5»)

Set rangeToUse = Range("B2:C3,C5:E5")

  1. Для того, чтобы подсчитать количество областей rangeToUse, добавьте следующую строку кода:

MsgBox rangeToUse.Areas.Count

Результат:

Count Areas

  1. Вы можете обратиться к различным областям rangeToUse, используя значение индекса. Следующая строка кода подсчитывает число ячеек первой области.

MsgBox rangeToUse.Areas(1).Count

Результат:

Count Cells

  1. Вы можете также цикл по каждой области rangeToUse и подсчет количества клеток каждой области. Макрос ниже делает трюк.

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

Результат:

Count Cells

Count Cells

Для практического примера коллекции областей см нашей примера программы ссылка: / VBA-примеры Сравни-диапазоны [Сравнить] Ranges.