Диаграмма по клику - Microsoft Office Excel

ПавелАлександрович · 18.02.2011, 09:37

Здравствуйте,

есть пример файла с перечнем A-Z с присвоенными значениями, задача одна, по клику на наименование (А-Z) выводила бы диагграму с данными присвоенными именно этому наименованию, как в примере для A данные с 1 по 28

Книга1.rar

doober · 18.02.2011, 11:08

Как пример,смотрите вложение.
Поиск по форуму не помешал бы.

ПавелАлександрович · 18.02.2011, 11:21

ошибку выдает 438!!!!!

doober · 18.02.2011, 12:23

А если так попробовать

Код:

 Diag.DrawingObject.ShapeRange.Chart.SeriesCollection(1).XValues = "=Лист1!C1:AE1"
 Diag.DrawingObject.ShapeRange.Chart.SeriesCollection(1).Values = "=Лист1!" & "C" & Target.Row & ":AE" & Target.Row

ПавелАлександрович · 18.02.2011, 12:34

Цитата:

Diag.DrawingObject.ShapeRange.Chart .SeriesCollection(1).XValues = "=Ëèñò1!C1:AE1"

ругается все ровно

doober · 18.02.2011, 12:37

надо ждать помощи от тех,у кого установлен офис 2003

ПавелАлександрович · 18.02.2011, 12:43

Цитата:

надо ждать помощи от тех,у кого установлен офис 2003

то есть, в 2003 ограничена работа макросов?????
в чем именно проблема?

VictorM · 18.02.2011, 13:43

Цитата:

то есть, в 2003 ограничена работа макросов?????
в чем именно проблема?

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

ПавелАлександрович · 18.02.2011, 13:46

Цитата:

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

мммм, ну а как тогда быть??
все-таки есть алгоритм который можно применить в 2003 или нет?

doober · 18.02.2011, 14:41

Мы посовещались и я принял командирское решение

18.02.2011, 09:37	#1
ПавелАлександрович Пользователь Регистрация: 24.11.2010 Сообщений: 41	Диаграмма по клику Здравствуйте, есть пример файла с перечнем A-Z с присвоенными значениями, задача одна, по клику на наименование (А-Z) выводила бы диагграму с данными присвоенными именно этому наименованию, как в примере для A данные с 1 по 28 Книга1.rar

18.02.2011, 12:23	#4
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	А если так попробовать Код: `Diag.DrawingObject.ShapeRange.Chart.SeriesCollection(1).XValues = "=Лист1!C1:AE1" Diag.DrawingObject.ShapeRange.Chart.SeriesCollection(1).Values = "=Лист1!" & "C" & Target.Row & ":AE" & Target.Row` Анализ,обработка данных Недорого

18.02.2011, 12:37	#6
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	надо ждать помощи от тех,у кого установлен офис 2003 Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
По клику в MySQL!?	4ok	PHP	3	28.12.2010 00:04
Показать хинт по клику	TwiX	Общие вопросы Delphi	5	07.09.2010 15:06
Много кликов по клику =)	KoBRaAndrey	Общие вопросы Delphi	3	26.03.2010 17:19
Кружочки на рабочем столе по клику	pashatr	Win Api	7	14.01.2010 05:19
Выделение в ListBox по правому клику	mutabor	Общие вопросы Delphi	4	01.10.2007 22:33

18.02.2011, 11:21	#3
ПавелАлександрович Пользователь Регистрация: 24.11.2010 Сообщений: 41	ошибку выдает 438!!!!!