Таймер отсчета обратного времени до даты

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

Таймер отсчета обратного времени до даты (Формулы/Formulas)

Katastrofa

Дата: Понедельник, 29.05.2017, 11:28 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

2010

Добрый день. Задача установить таймер отсчета обратного времени до даты. Сделала простейший в виде формулы, но он не показывает "в режиме реального" времени. Макросы что нашла в других темах не понятны, в плане куда вносить дату и время

Ответить

vikttur

Дата: Понедельник, 29.05.2017, 11:32 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Цитата

Сделала простейший в виде формулы...

Показать не хотите?

Цитата

Макросы что нашла...

Где? Какие?

Цитата

таймер отсчета обратного времени до даты.

Если файл не открыт круглосуточно, зачем в реальном времени? Поможет простейшая формула с функцией СЕГОДНЯ()

Сообщение отредактировал vikttur - Понедельник, 29.05.2017, 11:35

Ответить

Katastrofa

Дата: Понедельник, 29.05.2017, 11:37 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

2010

Ссылка на макрос http://www.excelworld.ru/forum/10-3112-1

К сообщению приложен файл: 8004537.xlsx (9.4 Kb)

Ответить

Katastrofa

Дата: Понедельник, 29.05.2017, 11:41 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

2010

нужен счетчик в реальном времени.

Ответить

vikttur

Дата: Понедельник, 29.05.2017, 11:47 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Немного доработанный код из сообщения по ссылке.
[vba]

Код

Private NextTick As Date, dFinish As Date

Sub StartTimer()
    dFinish = Cells(8, 5).Value: Call Ввод_времени
End Sub

Sub Ввод_времени()
    If dFinish - Time <= 0 Then
        MsgBox "Время истекло!", 64, "ТАЙМЕР"
        Exit Sub
    Else
        Range("B8").Value = Now
        Range("B9").Value = dFinish - Now

        NextTick = Now + TimeValue("00:00:01")
        Application.OnTime NextTick, "Ввод_времени"
    End If
End Sub

Sub Остановка_времени()
    On Error Resume Next
    Application.OnTime NextTick, "Ввод_времени", , False
End Sub

[/vba]

Сообщение отредактировал vikttur - Понедельник, 29.05.2017, 23:19

Ответить

Katastrofa

Дата: Понедельник, 29.05.2017, 13:02 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

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

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

2010

тот вариант таймера к сожалению мне не подходит, он срабатывает по запуску. а нужен как в приложенном мной файле 8004537.xlsx

Ответить

vikttur

Дата: Понедельник, 29.05.2017, 16:26 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Так это уже не тот вариант )

Цитата

он срабатывает по запуску

Любой код срабатывает по запуску: вручную, при открытии книги, по событию листа...

Можно первую процедуру вставить в модуль листа, [vba]

Код

Sub StartTimer()

[/vba]заменить на
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("E8"), Target) Is Nothing Then
.....

[/vba]
Таймер будет запускаться при изменении граничной даты в Е8. Но это если фйл открыт круглосуточно, иначе придется после открытия книги изменять значение Е8

Вам что нужно?