Доброго времени суток, уважаемые форумчане. Долгое время дня и ночи бьюсь, не могу решить, как сначала думал посильную задачу. Но оказался бессилен со своим багажом знаний. Есть переменная multirng, в которой несвязанные диапазоны выделенных строк. Для дальнейшей обработки данных мне нужно номера первой и последней строки каждого выделенного диапазона загнать в переменные z(i) и y(i). Если это возможно, то еще в идеале, используя существующие циклы, нужно выстроить эти диапазоны по возрастанию (т.к. выделяться они могут хаотично, а на выходе строй по возрастанию принципиально). Это было бы вообще то что надо. Освоил способ "сначала загнать адреса списком в текстовую строку, а затем вытянуть в переменные массива, но он длинный и, как мне кажется неразумный. Внизу кривой эскиз. С таким вложенным циклом никакой нормальной нумерации z(i) и y(i) конечно же нет, но это как я представлял картину, крутил, менял местами в поисках. Помогите пожалуйста найти решение.
Sub test() Dim element As Range, multirng As Range, nrw As Range Dim str AsByte, i AsByte, z() AsInteger, y() AsInteger Dim s AsString For Each element In Selection
str = 1 + str If multirng IsNothingThen Set multirng = Rows(element.Row) Else Set multirng = Union(multirng, Rows(element.Row)) EndIf Next ' текстовая строка для передачи в другие книги For Each nrw In multirng.Areas
s = s & "," & nrw.EntireRow.Address(0, 0) Next ' значения из цикла загнать по-возрастанию в переменные массива ReDim z(1To multirng.Areas.Count) ReDim y(1To multirng.Areas.Count) For i = 1To multirng.Areas.Count For Each nrw In multirng.Areas
z(i) = nrw.Rows(1).Row
y(i) = nrw.Rows(nrw.Rows.Count).Row Next Next EndSub
Доброго времени суток, уважаемые форумчане. Долгое время дня и ночи бьюсь, не могу решить, как сначала думал посильную задачу. Но оказался бессилен со своим багажом знаний. Есть переменная multirng, в которой несвязанные диапазоны выделенных строк. Для дальнейшей обработки данных мне нужно номера первой и последней строки каждого выделенного диапазона загнать в переменные z(i) и y(i). Если это возможно, то еще в идеале, используя существующие циклы, нужно выстроить эти диапазоны по возрастанию (т.к. выделяться они могут хаотично, а на выходе строй по возрастанию принципиально). Это было бы вообще то что надо. Освоил способ "сначала загнать адреса списком в текстовую строку, а затем вытянуть в переменные массива, но он длинный и, как мне кажется неразумный. Внизу кривой эскиз. С таким вложенным циклом никакой нормальной нумерации z(i) и y(i) конечно же нет, но это как я представлял картину, крутил, менял местами в поисках. Помогите пожалуйста найти решение.
Sub test() Dim element As Range, multirng As Range, nrw As Range Dim str AsByte, i AsByte, z() AsInteger, y() AsInteger Dim s AsString For Each element In Selection
str = 1 + str If multirng IsNothingThen Set multirng = Rows(element.Row) Else Set multirng = Union(multirng, Rows(element.Row)) EndIf Next ' текстовая строка для передачи в другие книги For Each nrw In multirng.Areas
s = s & "," & nrw.EntireRow.Address(0, 0) Next ' значения из цикла загнать по-возрастанию в переменные массива ReDim z(1To multirng.Areas.Count) ReDim y(1To multirng.Areas.Count) For i = 1To multirng.Areas.Count For Each nrw In multirng.Areas
z(i) = nrw.Rows(1).Row
y(i) = nrw.Rows(nrw.Rows.Count).Row Next Next EndSub
Sub test() Dim z&(), y() Dim i& ReDim z(1To Selection.Areas.Count, 1To2)
i = 0 For Each element In Selection.Areas
i = i + 1
y = element.Value
z(i, 1) = element.Row
z(i, 2) = element.Row + UBound(y) - 1 Next
BubbleSort z
EndSub Sub BubbleSort(ByRef List) Dim First AsInteger, Last AsInteger Dim i AsInteger, j AsInteger Dim Temp& Dim Temp1&
First = LBound(List)
Last = UBound(List) For i = First To Last - 1 For j = i + 1To Last If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
Temp1 = List(j, 2)
List(j, 1) = List(i, 1)
List(j, 2) = List(i, 2)
List(i, 1) = Temp
List(i, 2) = Temp1 EndIf Next j Next i EndSub
Доброго.
Sub test() Dim z&(), y() Dim i& ReDim z(1To Selection.Areas.Count, 1To2)
i = 0 For Each element In Selection.Areas
i = i + 1
y = element.Value
z(i, 1) = element.Row
z(i, 2) = element.Row + UBound(y) - 1 Next
BubbleSort z
EndSub Sub BubbleSort(ByRef List) Dim First AsInteger, Last AsInteger Dim i AsInteger, j AsInteger Dim Temp& Dim Temp1&
First = LBound(List)
Last = UBound(List) For i = First To Last - 1 For j = i + 1To Last If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
Temp1 = List(j, 2)
List(j, 1) = List(i, 1)
List(j, 2) = List(i, 2)
List(i, 1) = Temp
List(i, 2) = Temp1 EndIf Next j Next i EndSub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
