Обратный отсчет

[pentagon]

Добрый день!
прошу у вас помощи, ситуация такая, человек заполняет данные в ячейку нажимает кнопку стар и время пошло,потом стоп когда закончил, дело в том что значений будет очень много заполняться в день около 100,и нужно как то умудриться еще макрос этот протягивать постоянно....есть идеи? время в ячейки должны быть в AG

[VictorM]

есть идеи?

И не только. Ищите по форуму.
Ключевое слово - таймер.

[Hugo121]

В деталях конечно ничего не понял.
Но похоже что можно и без таймера - просто ставим в AG текущее время при нажати на "стар" и "стоп".
Или можно вообще без кнопок - по событию заполнения ячеек делать ("человек заполняет данные в ячейку").

[pentagon]

Сообщение от VictorM

И не только. Ищите по форуму.
Ключевое слово - таймер.

есть но там на одну ячейку, а нужно протянуть на 1000 грубо говоря

[pentagon]

Сообщение от Hugo121

В деталях конечно ничего не понял.
Но похоже что можно и без таймера - просто ставим в AG текущее время при нажати на "стар" и "стоп".
Или можно вообще без кнопок - по событию заполнения ячеек делать ("человек заполняет данные в ячейку").

Ну смотрите, человек заполняет строчку,и в конце ячейки он нажимает кнопку "старт" и время пошло пока он обрабатывает строчку,как только он выполнил свой запрос он останавливает время,и фиксируется сколько времени ему потребовалось на заявку

[Hugo121]

Так какие проблемы - нажали старт - запомнили в публичной переменной текущее время. Нажали стоп - получили разницу текущего времени и времени из переменной.

[VictorM]

Сообщение от Hugo121

Так какие проблемы - нажали старт - запомнили в публичной переменной текущее время. Нажали стоп - получили разницу текущего времени и времени из переменной.

Примерно так

Sub tt()
Time1 = Timer    'включаем таймер
    '    код
    MsgBox "ОК." & vbCrLf & "Прошло: " & Format((Timer - Time1) / 86400, "Long Time"), , ""
End Sub

[Hugo121]

Dim t As Date

Sub start()
    t = Now()
End Sub

Sub stop_()
    With [a1]
        .NumberFormat = "h:mm:ss"
        .Value = Now() - t
    End With
End Sub

[gling]

Есть такой вариант. Окончание можете сделать тоже по изменению в ячейке