mkotik |
Дата: Среда, 27.02.2019, 12:57 |
Сообщение № 21 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 181
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
Не отрабатывает - поставил два MsgBox - до и после - 3 сек разница После изменения [vba]Код Application.OnTime (Now + TimeValue("00:59:30")), "CloseBook" [/vba] то же самое. DoEvent тоже пробовал - безрезультатно А кто-нибудь не "засекал" по времени исполнения каких-нибудь простых циклов?
Не отрабатывает - поставил два MsgBox - до и после - 3 сек разница После изменения [vba]Код Application.OnTime (Now + TimeValue("00:59:30")), "CloseBook" [/vba] то же самое. DoEvent тоже пробовал - безрезультатно А кто-нибудь не "засекал" по времени исполнения каких-нибудь простых циклов?mkotik
Сообщение отредактировал mkotik - Среда, 27.02.2019, 12:59 |
|
| Ответить
|
mkotik |
Дата: Среда, 27.02.2019, 13:05 |
Сообщение № 22 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 181
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
anvg, к сожалению - безрезультатно
anvg, к сожалению - безрезультатноmkotik
|
|
| Ответить
|
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]
После долгих экспериментов получилось, но как-то всё корявенько... Привожу текст [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
|
|
| Ответить
|