График с разных листов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » График с разных листов (Графики и диаграммы/Charts)

Andreyka

Дата: Четверг, 10.11.2016, 10:21 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: -10 ±

Замечаний: 40% ±

Excel 2010

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

К сообщению приложен файл: Tes1.xlsx (15.1 Kb)

Ответить

SLAVICK

Дата: Четверг, 10.11.2016, 11:20 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

можно так:
Пользовательская функция:
[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 (23.4 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Pelena

Дата: Четверг, 10.11.2016, 11:23 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Ещё вариант с доп. столбцами и точечной диаграммой

К сообщению приложен файл: 8700075.xlsx (13.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SLAVICK

Дата: Четверг, 10.11.2016, 12:43 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Покумекал тут немного.
Лучше ЮДФку так записать:
[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 (24.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Andreyka

Дата: Четверг, 10.11.2016, 13:31 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: -10 ±

Замечаний: 40% ±

Excel 2010

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » График с разных листов (Графики и диаграммы/Charts)

Страница 1 из 1
1