Доброго вечера всем.
Помогите решить непростой вопрос.
Вопрос касается операции со временем.
Макрос устанавливает таймер на 7 секунд.
Я делаю следующие операции - жму на кнопку "включить таймер", затем выжидаю пару секунд и жму на кнопку "выключить таймер".
Затем закрываю рабочую книгу.
Но тут происходит следующее:
Через 5 секунд эта закрытая книга - сама собой открывается и макрос в нем - продолжает работать по таймеру.
Такое ощущение, что после нажатия на кнопку отключения и закрытия книги - таймер каким-то образом продолжил свою работу.
Как надежно отключить таймер, чтобы он намертво вырубался и начинал работать только тогда - когда я вновь нажму на кнопку "включить таймер" ?
То есть если запустить таймер, выждать секунду, отключить таймер и закрыть книгу - чтобы эта книга не открывалась бы сама по себе.
Причем не нужно ставить каких-то скриптов на событие "закрытия книги".
Таймер должен надежно отключатся именно кнопкой.
Макрос выглядит так:
| Код |
|---|
Option Explicit
Private boolStop As Boolean
Sub Включить_таймер()
boolStop = False
Вставить_данные
End Sub
Private Sub Вставить_данные()
Dim lr As Long
If boolStop = True Then
Exit Sub
End If
lr = Cells(Rows.Count, "C").End(xlUp).Row
If lr = 1 Then
If Range("C1").Value <> "" Then
lr = lr + 1
End If
Else
lr = lr + 1
End If
Cells(lr, "C").Value = Range("A1").Value + (Range("B1").Value * lr - Range("B1").Value)
Application.OnTime Now + TimeValue("00:00:05"), "Вставить_данные"
Макрос7
End Sub
Sub Выключить_таймер()
boolStop = True
End Sub
|
