Как макросом удлинить время для обновления данных из сводных - Страница 2

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

Как макросом удлинить время для обновления данных из сводных (Макросы/Sub)

Как макросом удлинить время для обновления данных из сводных

mkotik

Дата: Среда, 27.02.2019, 12:57 | Сообщение № 21

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 181

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

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

Excel 2013

Цитата boa, 27.02.2019 в 12:28, в сообщении № 17 ()

mkotik,
В модуль книги

Не отрабатывает - поставил два MsgBox - до и после - 3 сек разница
После изменения
[vba]

Код

Application.OnTime (Now + TimeValue("00:59:30")), "CloseBook"

[/vba]
то же самое.
DoEvent тоже пробовал - безрезультатно
А кто-нибудь не "засекал" по времени исполнения каких-нибудь простых циклов?

Сообщение отредактировал mkotik - Среда, 27.02.2019, 12:59

Ответить

mkotik

Дата: Среда, 27.02.2019, 13:05 | Сообщение № 22

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 181

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

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

Excel 2013

anvg, к сожалению - безрезультатно

Ответить

mkotik

Дата: Вторник, 05.03.2019, 18:48 | Сообщение № 23

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 181

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

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

Excel 2013

После долгих экспериментов получилось, но как-то всё корявенько...
Привожу текст
[vba]

Код

Sub Макрос2_рабочий()
'
' Макрос2 Макрос
'
    Workbooks.Open Filename:= _
        "\\fs\documents$\ArchiveDocuments\Работа\ТОП\Топ 20_суммарный.xlsx"
    ActiveWorkbook.RefreshAll
    Sheets("Данные").Select
    ActiveWindow.SmallScroll Down:=-45
    Range("F5").Select
    ActiveCell.FormulaR1C1 = _
        "=N(CUBEVALUE(""Conn"",RC2,R2C,выр_ро_отдел,валюта,выр_оборот))/7"
    Sheets("Топ 20").Select
    MsgBox "Заходим Application.OnTime"
    MsgBox "Книга " & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
    Application.OnTime (Now + TimeValue("00:00:41")), "CloseBook"
    MsgBox "Выходим Application.OnTime"
End Sub

Private Sub CloseBook()
    MsgBox "заходим CloseBook"
    ActiveWorkbook.Close SaveChanges:=True
    MsgBox "выходим CloseBook"
End Sub

[/vba]

Ответить

Как макросом удлинить время для обновления данных из сводных (Макросы/Sub)

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