копирование диаграммы с листа на лист с изменением источника

Liquids

Гость

08.07.2011 16:47:30

Всем привет!

Сорри если такая тема была, не нашел(

Вопрос собственно в теме - есть два листа с одинаково расположенными данными, по этим данным на одном листе построено 10 разных графиков. Можно ли как-нибудь скопировать на второй лист все 10 графиков так, чтобы они использовали данные со второго листа? Т.е. как относительная формула.

Заранее спасибо!

Ёксель-моксель Пользователь Сообщений: 1807 Регистрация: 16.01.2013	#2 08.07.2011 17:29:43 Проще создать копию первого листа, а уже на нём заменить данные первого листа на данные второго листа (-: Удивление есть начало познания © Surprise me! И да пребудет с нами сила ВПР.

Liquids

Гость

11.07.2011 09:23:45

Это да, проще, но только дело в том что данные на всех листах у меня добавляются с помощь макроса, и если их начать менять то боюсь все полетит, а там уже оч много инфы...
Хотя сейчас копию книги сделаю попробую) А других способов точно нет?

webley

Пользователь

Сообщений: 2176 Регистрация: 01.01.1970

11.07.2011 10:02:50

Можете попробовать этот макрос (ставит для всех диаграмм на активном листе ссылку на этот лист)
Sub test()
Dim c As ChartObject
Dim s As Series
Dim OldName As String

For Each c In ActiveSheet.ChartObjects
For Each s In c.Chart.SeriesCollection
OldName = Mid(s.Formula, InStrRev(s.Formula, ",", InStrRev(s.Formula, "!")) + 1, InStrRev(s.Formula, "!") - InStrRev(s.Formula, ",", InStrRev(s.Formula, "!")))
s.Formula = Replace(s.Formula, OldName, ActiveSheet.Name & "!")
Next s
Next c
End Sub

vikttur

Пользователь

Сообщений: 47172 Регистрация: 15.09.2012

11.07.2011 10:06:03

{quote}{login=Liquids}{date=08.07.2011 04:47}{thema=копирование диаграммы с листа на лист с изменением источника}{post}Вопрос собственно в теме - есть два листа с одинаково расположенными данными, по этим данным на одном листе построено 10 разных графиков.{/post}{/quote}
Имеет смысл посмотреть на форуме темы о динамических графиках. Основная идея - построение одного графика по изменяемым исходным данным.

Liquids Гость	#6 12.07.2011 17:07:22 webley, огромное спасибо! Макрос спас очень много полезного времени!

Читают тему