Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Постепенное отображение данных - на диаграмме - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Постепенное отображение данных - на диаграмме (Макросы/Sub)
Постепенное отображение данных - на диаграмме
Glass4217 Дата: Вторник, 14.05.2019, 05:16 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Помогите разобраться с непростой задачей.

На листе есть таблица C5:D28, по которой строится диаграмма "Диаграмма 1" .

Как макросом - применить следующий цикл ?
Цикл сперва размещает на диаграмме "Диаграмма 1" - лишь первое значение из таблицы C5:D28
Затем через полсекунды первое+второе. На диаграмме - будут размещены уже два значения.
Затем еще через полсекунды первое+второе+третье. На диаграмме - будут размещены уже три значения.
И так - пока не дойдет до конца таблицы.

(Это будет выглядеть - как постепенное построение графика.)

Подскажите как это сделать макросом ?
К сообщению приложен файл: 6604769.xls (35.5 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите разобраться с непростой задачей.

На листе есть таблица C5:D28, по которой строится диаграмма "Диаграмма 1" .

Как макросом - применить следующий цикл ?
Цикл сперва размещает на диаграмме "Диаграмма 1" - лишь первое значение из таблицы C5:D28
Затем через полсекунды первое+второе. На диаграмме - будут размещены уже два значения.
Затем еще через полсекунды первое+второе+третье. На диаграмме - будут размещены уже три значения.
И так - пока не дойдет до конца таблицы.

(Это будет выглядеть - как постепенное построение графика.)

Подскажите как это сделать макросом ?
Автор - Glass4217
Дата добавления - 14.05.2019 в 05:16
K-SerJC Дата: Вторник, 14.05.2019, 07:50 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
Цитата Glass4217, 14.05.2019 в 05:16, в сообщении № 1 ()
Подскажите как это сделать макросом ?

так можно
[vba]
Код
Sub tydysch()
ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("Л!$C$5:$D$5"), PlotBy:=xlColumns
For f = 6 To 28
ActiveChart.SetSourceData Source:=Range("Л!$C$5:$D$" & f), PlotBy:=xlColumns
Application.Wait Time:=Now + TimeValue("0:00:01")
DoEvents
Next f
End Sub
[/vba]

Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение
Цитата Glass4217, 14.05.2019 в 05:16, в сообщении № 1 ()
Подскажите как это сделать макросом ?

так можно
[vba]
Код
Sub tydysch()
ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("Л!$C$5:$D$5"), PlotBy:=xlColumns
For f = 6 To 28
ActiveChart.SetSourceData Source:=Range("Л!$C$5:$D$" & f), PlotBy:=xlColumns
Application.Wait Time:=Now + TimeValue("0:00:01")
DoEvents
Next f
End Sub
[/vba]
Автор - K-SerJC
Дата добавления - 14.05.2019 в 07:50
Glass4217 Дата: Среда, 15.05.2019, 02:59 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
K-SerJC, спасибо вам большое
 
Ответить
СообщениеK-SerJC, спасибо вам большое
Автор - Glass4217
Дата добавления - 15.05.2019 в 02:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Постепенное отображение данных - на диаграмме (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!