Подскажите если кто встречался с подобным или есть ссылки на почитать.
Цель: Написать пользовательскую функцию, в которую вводиться диапазон из не смежных областей и далее с этим диапазоном поработать.
Проблема: Не могу понять принцип работы с подобным видом диапазонов.
Как я понял для работы с не смежными диапазонами используется коллекция Areas объекта Range. Для начала хочу написать простую функцию которая бы возвращала адреса не смежных диапазонов. Пишу
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Function RangeToStr(a_range As Range) As String
Dim StrRange As String
StrRange = ""
Dim iRange As Range
For Each iRange In a_range.Areas
If StrRange <> "" Then StrRange = StrRange & ","
StrRange = StrRange & iRange.Address
Next iRange
RangeToStr = StrRange
End Function
собственно говоря это дело выдает ошибку. Причем для одного смежного диапазона считает нормально. Как только добавляешь другой через ctrl вылезает ошибка. Может кто знает что я не так делаю.
