Страницы: 1
RSS
как автоматически строить график для аналогичных таблиц в Excel 2007, однотипные графики для множества однотипных таблиц
 
Добрый день ! Подскажите, пожауйста, такой вопрос для Excel 2007.
есть 23 листа с однотипными таблицами, нужно автоматически построить однотипные графики для всех таблиц. Проблема в том, что при создании диаграммы, программа автоматически привязывает её к конкретному листу и при копировании её на другой лист, данные не меняются, они остаются привязанными к исходному листу . С суммирующими таблицами при этом такой трюк проходит, при копировании её на новый лист суммирующая таблица заполняется данными с нового листа .

Спасибо,
С уважением, Евгений.
 
Ранее делал заготовку (лист с данными и диаграмму на отдельной закладке). При одновременном копировании данных и диагр., диагр. ссылалась на копию листа с данными. (выделил оба листа, с зажатым контролом перетянул, отпустил) Не вижу сути вопроса.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 Суть вопроса в том, что не получается скопировать диаграмму на другой лист, чтобы диаграмма брала данные из тех же ячеек, но с листа, на который её перенесли. То есть, вопрос о том, как создать диаграмму, в которой адреса ячеек будут автоматически указаны для листа, в который эта диаграмма вставляется . К сожалению, не получается прикрепить файл, чтобы привести пример .
 
Цитата
student57 пишет: К сожалению, не получается прикрепить файл, чтобы привести пример .
Не нужно сожалеть - нужно Правила почитать.
 
Цитата
нужно автоматически построить однотипные графики для всех таблиц
Не нужно. Если таблицы однотипные, достаточно одной динамичной диаграммы. Не листы перебирать - лишь изменять исходные данные диаграммы..
 
 Спасибо за совет, но задача требует именно тех исходных условий, которые указаны .
 
делал похожую задачу, код ниже удаляет привязку диаграммы к старому листу
Внимательней к параметру OldString, укажите какой номер листа был прародителем остальных

Код
Sub change_chart_source()
' Изменение ссылок в диаграмме
'если диапозон-источник для диаграммы сгруппирован и свернут, надо развернуть
OldString = ActiveWorkbook.Worksheets(1).Name
For Each shts In ActiveWorkbook.Worksheets
NewString = shts.Name
        For Each oChart In shts.ChartObjects
            For Each mySrs In oChart.Chart.SeriesCollection
                mySrs.Formula = WorksheetFunction.Substitute(mySrs.Formula, OldString, NewString)
            Next
        Next
Next shts
End Sub
 
 
Круто, Спасибо !
 
Цитата
задача требует именно тех исходных условий, которые указаны
Любопытства ради: зачем 23 графика? Вы их сможете просматривать все и сразу?
Выпадающий список с названиями таблиц и один график, в который подставляются данные в зависимости от выбранного значения в выпадающем списке - почему так не принимается?
Страницы: 1
Читают тему
Наверх