Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/График с разных листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » График с разных листов (Графики и диаграммы/Charts)
График с разных листов
Andreyka Дата: Четверг, 10.11.2016, 10:21 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Коллеги, добрый день.
Возможно построить График (одну линию) продолжением с разных листов.
Копировать все данные на один лист НЕ НУЖНО.
СПАСИБО
К сообщению приложен файл: Tes1.xlsx(15Kb)
 
Ответить
СообщениеКоллеги, добрый день.
Возможно построить График (одну линию) продолжением с разных листов.
Копировать все данные на один лист НЕ НУЖНО.
СПАСИБО

Автор - Andreyka
Дата добавления - 10.11.2016 в 10:21
SLAVICK Дата: Четверг, 10.11.2016, 11:20 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
можно так:
Пользовательская функция:
[vba]
Код
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]
Добавлена в имена (Ctrl + F3) с формулой:
Код
UnionVal("Лист1!B4:B21;Лист2!B4:B21;Лист3!B4:B21")

По этому имени построен график.
К сообщению приложен файл: Tes1-1-.xlsm(23Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениеможно так:
Пользовательская функция:
[vba]
Код
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]
Добавлена в имена (Ctrl + F3) с формулой:
Код
UnionVal("Лист1!B4:B21;Лист2!B4:B21;Лист3!B4:B21")

По этому имени построен график.

Автор - SLAVICK
Дата добавления - 10.11.2016 в 11:20
Pelena Дата: Четверг, 10.11.2016, 11:23 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9888
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Ещё вариант с доп. столбцами и точечной диаграммой
К сообщению приложен файл: 8700075.xlsx(14Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕщё вариант с доп. столбцами и точечной диаграммой

Автор - Pelena
Дата добавления - 10.11.2016 в 11:23
SLAVICK Дата: Четверг, 10.11.2016, 12:43 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Покумекал тут немного.
Лучше ЮДФку так записать:
[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]
Тогда она чувствительна к измененям диаппазонов(удалению или добавлению строк)
К сообщению приложен файл: Tes1-1-1-.xlsm(24Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеПокумекал тут немного.
Лучше ЮДФку так записать:
[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
Дата добавления - 10.11.2016 в 12:43
Andreyka Дата: Четверг, 10.11.2016, 13:31 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
SLAVICK, и Pelena, СПАСИБО вам.
Интересны оба варианта.
З.Ы. Почему-то на макрос ругае
 
Ответить
СообщениеSLAVICK, и Pelena, СПАСИБО вам.
Интересны оба варианта.
З.Ы. Почему-то на макрос ругае

Автор - Andreyka
Дата добавления - 10.11.2016 в 13:31
Мир MS Excel » Вопросы и решения » Вопросы по Excel » График с разных листов (Графики и диаграммы/Charts)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!