Вам потрібно викликати підпроцедуру «Таймер», це зазвичай робиться шляхом її виклику в рамках іншої під/функції, якщо ви хочете, щоб зворотний відлік почався після введення значення в клітинку «A1» і зупинився, коли ви введете дані в інший діапазон, тоді вам потрібно прослухати зміни до цих осередків і створити логічне значення для підпроцедури Timer, щоб він знав, коли зупинитися, щоб зробити це, створіть підпроцедуру "Worksheet_Change", це буде прослуховувати робочий аркуш для будь-яких змін, ми потім створіть білий список діапазонів, які запускатимуть наш код.


Sub Worksheet_Change(ByVal Target As Range)

'Логічне значення за замовчуванням
Dim TimerActive як Boolean: TimerActive = True

«Звідси ми викликаємо таймер і отримуємо наше значення в G2
Якщо не перетинається (ціль, діапазон ("A1")) - це нічого

Якщо IsEmpty(Target), тоді TimerActive = False: вихід із підпорядкування

Помилка GoTo Errr:

Dim i як ціле число: i = ціль

Me.Range("G2").Value = i

Таймер виклику

ElseIf Not Intersect(Target, Range("B2:C57")) Це нічого тоді

TimerActive = False

Якщо IsEmpty(Target), то вийдіть із Sub

"За потреби додайте тут більше коду

End If

'Помилка обробки
Exit Sub
помилка:
MsgBox "A1 має бути цілим числом"

End Sub

Я також включив можливість видалити значення в A1, що також зупинить зворотний відлік, тепер у підпроцедурі «Таймер» на початку створіть оператор if, щоб перевірити, чи дорівнює наше логічне значення «TimerActive» False, якщо тоді нам потрібно вийти з Sub. Щоб змінити колір таймера під час зворотного відліку, вам потрібно відредагувати підпроцедуру «ResetTimer» і додати оператор if, подібний до того, що вже існує, «Якщо xRng <= 30», до цього оператора ми додаємо колір, який ми хочете використовувати "xRng.Font.Color = vbRed", ви також можете змінити колір за допомогою "xRng.Font.Color = RGB(0,0,0)", виконайте те ж саме в процедурі "Таймер", щоб скинути колір, зробіть це перед логічним оператором if, щоб колір завжди повертався до стандартного, навіть якщо він зупинений вручну.

Привіт, MAB, ви повинні переконатися, що посилання на клітинку в коді Діапазон ("E1") має збігатися з посиланням на клітинку, у якому введено час. Будь ласка, подивіться знімок екрана, клітинка A1 містить час, але в коді B1, тоді з’являється помилка.

Привіт, ви можете спробувати перевірити опцію «Увімкнути макроси VBA» в Центрі безпеки перед запуском коду.
Клацніть «Файл» > «Параметри», у вікні «Параметри Excel» виберіть «Центр довіри» на лівій панелі, потім перейдіть до вікна «Центр довіри», виберіть «Параметри макросів» і знайдіть цей параметр «Увімкнути макроси VBA», поставте прапорець і натисніть «ОК» > «ОК».