VBА. Проблема с отображением динамики на графике

Пользователь

Сообщений: 125 Регистрация: 01.04.2018

21.01.2021 11:51:40

Приветствую, дорогие профессионалы!
Сделал выгрузку данных по Covid-19 из открытых источников и сверстал несколько занимательных аналитических таблиц и статистик.
Хочу на 3 листе построить визуализацию - динамической гистограммы. Аналог Ютуб
Наткнулся на проблемку с синхронным отображением динамики на гистограмме при изменения временного интервала макросом. Помогает только периодическая остановка процедуры и запуск.
Буду признателен если кто-то из знатоков предложит решение которое модернизирует код, который позволит плавно наблюдать изменение ситуации со скоростью 1 день =1 сек
Всем заранее благодарен!
https://www.dropbox.com/s/0l7z2wkb0jey5r7/Covid-19%203.0.xlsm?dl=0(файлик великоват оказался)

Прикрепленные файлы

Screenshot_4.png (81.46 КБ)

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

21.01.2021 13:01:56

Код

Sub Macro1()
Range("A1") = Format(43831 - 1, "DD.MM.YYYY")
Call Macro2
End Sub

Sub Macro2()
If CDate(Range("A1")) <= 44200 Then
Range("A1") = Format(CDate(Range("A1")) + 1, "DD.MM.YYYY")
    ActiveWorkbook.SlicerCaches("ВременнаяШкала_Дата1").TimelineState. _
        SetFilterDateRange "01.01.2020", Range("A1")
Application.OnTime Now + CDate("0:0:1"), "Macro2"
End If
End Sub

Только вот PowerView использовать для этого лучше

Изменено: БМВ - 21.01.2021 13:03:22

По вопросам из тем форума, личку не читаю.

vlad000 Пользователь Сообщений: 125 Регистрация: 01.04.2018	#3 21.01.2021 13:25:03 БМВ, Огромное спасибо! все замечательно работает.. Попробую еще на PowerView сделать насколько я понял вместо Wait и Sleep нужно было OnTime применить Изменено: vlad000 - 21.01.2021 13:28:04