Получение коллекции смежных областей произвольного несмежного диапазона в VBA Excel. Свойство Areas объекта Range. Примеры со скриншотами.
Свойство Areas объекта Range
Range.Areas — это свойство, возвращающее коллекцию смежных областей (диапазонов) исходного объекта Range, состоящего из нескольких областей.
Свойство Areas смежного диапазона возвращает коллекцию, состоящую из одного исходного диапазона.
Пример кода с Range.Areas
Код VBA Excel, отображающий адрес выделенного несмежного диапазона и адреса смежных областей, составляющих исходный выделенный диапазон:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Primer() Dim s As String, myArea As Range 'Отображаем адрес выделенного диапазона на активном листе MsgBox "Адрес выделенного диапазона:" & vbNewLine & Selection.Address 'Отображаем адреса смежных областей выделенного диапазона s = "Адреса смежных областей выделенного диапазона:" For Each myArea In Selection.Areas s = s & vbNewLine & myArea.Address Next MsgBox s End Sub |
Примеры несмежных диапазонов
1. Выделенный диапазон состоит из пересекающихся и непересекающихся смежных областей (диапазонов):
Результат работы кода:
2. Выделенный диапазон состоит из пересекающихся, непересекающихся и объединенных смежных областей (диапазонов):
Результат работы кода:
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.