Ссылка на несколько диапазонов рабочего листа из кода VBA Excel с помощью свойства Range, метода Union и свойства Selection.
Ссылка через свойство Range
Чтобы создать в VBA Excel ссылку на несколько диапазонов с помощью свойства Range, укажите в качестве аргументов данного свойства отдельные диапазоны и ячейки, разделив их запятыми, а всю строку аргументов заключите в прямые кавычки:
|
1 2 3 4 5 |
Sub Primer1() Dim MyRange As Range Set MyRange = Range("B2:D6, D4:F8, B8, H2:I8") MyRange.Select End Sub |
Результат работы кода:
Ссылка с помощью метода Union
Чтобы создать в VBA Excel ссылку на несколько диапазонов с помощью метода Union, укажите в качестве аргументов данного метода ссылки на отдельные диапазоны и ячейки через свойство Range, разделив их запятыми:
|
1 2 3 4 5 |
Sub Primer2() Dim MyRange As Range Set MyRange = Union(Range("B2:D6"), Range("D4:F8"), Range("B8"), Range("H2:I8")) MyRange.Select End Sub |
Результат работы кода тот же, что и для первого примера.
Использование свойства Selection
Если необходимо получить в VBA Excel ссылку на несколько диапазонов, выделенных на рабочем листе, используйте для этого свойство Selection:
|
1 2 3 4 5 |
Sub Primer3() Dim MyRange As Range Set MyRange = Selection MsgBox MyRange.Address End Sub |
В качестве объекта, возвращаемого свойством Selection, взято выделение диапазонов, созданное первым примером.
Результат работы кода:
