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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом удлинить время для обновления данных из сводных (Макросы/Sub)
Как макросом удлинить время для обновления данных из сводных
mkotik Дата: Среда, 27.02.2019, 12:57 | Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

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

Не отрабатывает - поставил два MsgBox - до и после - 3 сек разница
После изменения
[vba]
Код
Application.OnTime (Now + TimeValue("00:59:30")), "CloseBook"
[/vba]
то же самое.
DoEvent тоже пробовал - безрезультатно
А кто-нибудь не "засекал" по времени исполнения каких-нибудь простых циклов?


Сообщение отредактировал mkotik - Среда, 27.02.2019, 12:59
 
Ответить
Сообщение
mkotik,
В модуль книги

Не отрабатывает - поставил два MsgBox - до и после - 3 сек разница
После изменения
[vba]
Код
Application.OnTime (Now + TimeValue("00:59:30")), "CloseBook"
[/vba]
то же самое.
DoEvent тоже пробовал - безрезультатно
А кто-нибудь не "засекал" по времени исполнения каких-нибудь простых циклов?

Автор - mkotik
Дата добавления - 27.02.2019 в 12:57
mkotik Дата: Среда, 27.02.2019, 13:05 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
anvg, к сожалению - безрезультатно
 
Ответить
Сообщениеanvg, к сожалению - безрезультатно

Автор - mkotik
Дата добавления - 27.02.2019 в 13:05
mkotik Дата: Вторник, 05.03.2019, 18:48 | Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 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]
 
Ответить
СообщениеПосле долгих экспериментов получилось, но как-то всё корявенько...
Привожу текст
[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]

Автор - mkotik
Дата добавления - 05.03.2019 в 18:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом удлинить время для обновления данных из сводных (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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