|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
07.02.2013, 20:40
|
#1 |
|
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Редактирование макроса на основе записи.
Привет! отредоктировал такой макрос:
If [H13] = 50 Then ActiveSheet.ChartObjects("Диаграмма 1").Activate '60НВ ActiveChart.SeriesCollection(4).Nam e = "='Рабочий'!$B$10" ActiveChart.SeriesCollection(4).XVa lues = "='Рабочий'!$B$12:$B$24" ActiveChart.SeriesCollection(4).Val ues = "='Рабочий'!$C$12:$C$24" '70НВ ActiveChart.SeriesCollection.NewSer ies ActiveChart.SeriesCollection(5).Nam e = "='Рабочий'!$B$134" ActiveChart.SeriesCollection(5).XVa lues = "='Рабочий'!$B$136:$B$148" ActiveChart.SeriesCollection(5).Val ues = "='Рабочий'!$C$136:$C$148" End If График 60НВ строится отлично, а график 70НВ без ActiveChart.SeriesCollection.NewSer ies, не строится, а с этой фразой при последующей проверке появляются какие-то клоны этого графика. Как можно этого избежать? |
|
|
|
07.02.2013, 22:39
|
#2 |
|
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Попробуйте так
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
|
|
|
08.02.2013, 15:20
|
#3 |
|
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
If [H13] = 50 Then
ActiveSheet.ChartObjects("Диаграмма 1").Activate '60НВ ActiveChart.SeriesCollection(4).Nam e = "='Рабочий'!$B$10" ActiveChart.SeriesCollection(4).XVa lues = "='Рабочий'!$B$12:$B$24" ActiveChart.SeriesCollection(4).Val ues = "='Рабочий'!$C$12:$C$24" '70НВ ActiveChart.SeriesCollection.NewSer ies ActiveChart.SeriesCollection(5).Nam e = "='Рабочий'!$B$134" ActiveChart.SeriesCollection(5).XVa lues = "='Рабочий'!$B$136:$B$148" ActiveChart.SeriesCollection(5).Val ues = "='Рабочий'!$C$136:$C$148" If ActiveChart.SeriesCollection.Count < 5 Then ActiveChart.SeriesCollection.NewSer ies End If Не помогло появляется ряд6 и ряд7 потом ряд8 и ряд9 и т.к. |
|
|
|
|
09.02.2013, 13:58
|
#4 |
|
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Это вместо строки, выделенной красным!
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
|
|
|
09.02.2013, 16:23
|
#5 |
|
Пользователь
Регистрация: 08.07.2010
Сообщений: 81
|
Отлично!!!!!!!!!!!!!! Работает нет ни чего больше.
 Спасибо!!!!!!!!
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Редактирование записи | Михаил Юрьевич | БД в Delphi | 3 | 21.01.2013 21:28 |
| Просьба помочь в написании макроса (на коммерч.основе) | brussik | Microsoft Office Excel | 2 | 09.02.2011 10:59 |
| Редактирование записи Access | Dmitriy.G | БД в Delphi | 3 | 17.09.2010 11:39 |
| Access, редактирование записи | byte916 | Помощь студентам | 1 | 30.05.2010 01:58 |
| Редактирование записи ado | palochka | БД в Delphi | 7 | 24.05.2010 10:58 |
