Коллеги, добрый день. Возможно построить График (одну линию) продолжением с разных листов. Копировать все данные на один лист НЕ НУЖНО. СПАСИБО
Коллеги, добрый день. Возможно построить График (одну линию) продолжением с разных листов. Копировать все данные на один лист НЕ НУЖНО. СПАСИБОAndreyka
Function UnionVal(r As String) Dim ran As Range, mF() ReDim mF(1 To 1) m = Split(r, ";") For Each it In m Set ran = Range(it) m1 = ran.Value ReDim Preserve mF(1 To UBound(mF) + UBound(m1) - IIf(UBound(mF) = 1, 1, 0)) For i = 1 To UBound(m1) t = t + 1 mF(t) = m1(i, 1) Next Next UnionVal = mF End Function
Function UnionVal(r As String) Dim ran As Range, mF() ReDim mF(1 To 1) m = Split(r, ";") For Each it In m Set ran = Range(it) m1 = ran.Value ReDim Preserve mF(1 To UBound(mF) + UBound(m1) - IIf(UBound(mF) = 1, 1, 0)) For i = 1 To UBound(m1) t = t + 1 mF(t) = m1(i, 1) Next Next UnionVal = mF End Function
Покумекал тут немного. Лучше ЮДФку так записать: [vba]
Код
Function UnionVal(ParamArray r() As Variant) Dim mF(), m, i&, it ReDim mF(1 To 1) t = 0 For Each it In r m = it.Value ReDim Preserve mF(1 To UBound(mF) + UBound(m) - IIf(UBound(mF) = 1, 1, 0)) For i = 1 To UBound(m) t = t + 1 mF(t) = m(i, 1) Next Next UnionVal = mF End Function
[/vba] Тогда она чувствительна к измененям диаппазонов(удалению или добавлению строк)
Покумекал тут немного. Лучше ЮДФку так записать: [vba]
Код
Function UnionVal(ParamArray r() As Variant) Dim mF(), m, i&, it ReDim mF(1 To 1) t = 0 For Each it In r m = it.Value ReDim Preserve mF(1 To UBound(mF) + UBound(m) - IIf(UBound(mF) = 1, 1, 0)) For i = 1 To UBound(m) t = t + 1 mF(t) = m(i, 1) Next Next UnionVal = mF End Function
[/vba] Тогда она чувствительна к измененям диаппазонов(удалению или добавлению строк)SLAVICK
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
