Как перестроить график с помощью макроса - Microsoft Office Excel

ruavia3 · 01.04.2009, 11:34

Имеются заданные(через Insert>Name>Define) переменные, а=A2:A20, b=B2:B200, c = C2:C20, d=D2:D20 и так далее.
Мне необходимо, чтобы график построенный на переменных a и b, при нажатии кнопки строился на переменных c и d.

SAS888 · 01.04.2009, 11:46

Т.е. нужно изменить диапазон построения диаграммы с "A2:B20" на "C2:D20" ?

ruavia3 · 01.04.2009, 11:48

вообщем да, но необходимо учесть разницу в максимальных и минимальных значениях диапазонов.

IgorGO · 01.04.2009, 11:48

как-то так:
ActiveSheet.ChartObjects(1).Activat e
ActiveChart.SetSourceData Source:=Range(...

ruavia3 · 01.04.2009, 11:58

Цитата:

Сообщение от IgorGO

как-то так:
ActiveSheet.ChartObjects(1).Activat e
ActiveChart.SetSourceData Source:=Range(...

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

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

mchip · 01.04.2009, 12:09

Вот с этой темы скачай test1.zip, там формируются графики по разным значениям. Посмотри. Будут вопросы пиши.

IgorGO · 01.04.2009, 12:27

Цитата:

Это подойдет,если диапазон построения графика зафиксирован

это подойдет в любом случае, если вы научите макрос, как выбирать "правильный" диапазон ячеек, или оператор сначала в ручном режиме укажет поименованый диапазон, а макрос сошлется на это имя. Как по мне - первый вариант гораздо интереснее.

ruavia3 · 01.04.2009, 13:35

Не могли бы прописать умный макрос или его кусок - для CommandButton1, чтобы график мог перестроиться на переменные e,f,g?

ruavia3 · 01.04.2009, 18:22

Вот что записывает рекодер, если менять диапазон в ручную.

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Val ues = "=test.xls!e"
ActiveChart.SeriesCollection(1).Nam e = "=Sheet1!R2C6"
ActiveChart.SeriesCollection(2).Val ues = "=test.xls!f"
ActiveChart.SeriesCollection(2).Nam e = "=Sheet1!R2C7"
ActiveChart.SeriesCollection(3).Val ues = "=test.xls!g"
ActiveChart.SeriesCollection(3).Nam e = "=Sheet1!R2C8"

Marchuk · 01.04.2009, 19:09

счас если найду как я подобное делал .

01.04.2009, 11:34	#1
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Как перестроить график с помощью макроса Имеются заданные(через Insert>Name>Define) переменные, а=A2:A20, b=B2:B200, c = C2:C20, d=D2:D20 и так далее. Мне необходимо, чтобы график построенный на переменных a и b, при нажатии кнопки строился на переменных c и d.

01.04.2009, 11:46	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Т.е. нужно изменить диапазон построения диаграммы с "A2:B20" на "C2:D20" ? Чем шире угол зрения, тем он тупее.

01.04.2009, 11:48	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	как-то так: ActiveSheet.ChartObjects(1).Activat e ActiveChart.SetSourceData Source:=Range(... Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

01.04.2009, 12:09	#6
mchip Форумчанин Регистрация: 24.06.2008 Сообщений: 516	Вот с этой темы скачай test1.zip, там формируются графики по разным значениям. Посмотри. Будут вопросы пиши. Можно сделать все! Было бы время, да деньги...

01.04.2009, 19:09	#10
Marchuk Пользователь Регистрация: 27.03.2009 Сообщений: 78	счас если найду как я подобное делал . Знание формул - Слабо; Знание макросов - Средне; Оформляем воздушными шарами.

01.04.2009, 18:22	#9
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Вот что записывает рекодер, если менять диапазон в ручную. ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1).Val ues = "=test.xls!e" ActiveChart.SeriesCollection(1).Nam e = "=Sheet1!R2C6" ActiveChart.SeriesCollection(2).Val ues = "=test.xls!f" ActiveChart.SeriesCollection(2).Nam e = "=Sheet1!R2C7" ActiveChart.SeriesCollection(3).Val ues = "=test.xls!g" ActiveChart.SeriesCollection(3).Nam e = "=Sheet1!R2C8"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Запуск макроса с параметрами из другого макроса	Saladin	Microsoft Office Excel	2	19.01.2009 09:43
Как сбросить зависание макроса	valerij	Microsoft Office Excel	3	26.12.2008 07:38
Срочно! Помогите построить график с помощью QChart	MARCH	БД в Delphi	0	08.12.2008 04:04
с помощью макроса скопировать значение всей строки(не одной ячейки, а нескольких)	global	Microsoft Office Excel	6	27.11.2008 17:43
Построить график с помощью Делфи	Rusl92	Мультимедиа в Delphi	4	02.10.2008 22:19