Постепенное отображение данных - на диаграмме

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Постепенное отображение данных - на диаграмме (Макросы/Sub)

Glass4217

Дата: Вторник, 14.05.2019, 05:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

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

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

Подскажите как это сделать макросом ?

К сообщению приложен файл: 6604769.xls (35.5 Kb)

Ответить

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

Дата: Среда, 15.05.2019, 02:59 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

K-SerJC, спасибо вам большое

Ответить

Постепенное отображение данных - на диаграмме (Макросы/Sub)

Страница 1 из 1
1