VBA Excel. Свойство Areas объекта Range

Получение коллекции смежных областей произвольного несмежного диапазона в VBA Excel. Свойство Areas объекта Range. Примеры со скриншотами.

Содержание

1. Свойство Areas объекта Range

Свойство Areas объекта Range

Range.Areas — это свойство, возвращающее коллекцию смежных областей (диапазонов) исходного объекта Range, состоящего из нескольких областей.

Свойство Areas смежного диапазона возвращает коллекцию, состоящую из одного исходного диапазона.

Код VBA Excel, отображающий адрес выделенного несмежного диапазона и адреса смежных областей, составляющих исходный выделенный диапазон:

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

MsgBox s

End Sub

1. Выделенный диапазон состоит из пересекающихся и непересекающихся смежных областей (диапазонов):

Результат работы кода:

2. Выделенный диапазон состоит из пересекающихся, непересекающихся и объединенных смежных областей (диапазонов):

Результат работы кода:

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.