Як вставити таймер зворотного відліку в Excel?

1. Вставити таймер зворотного відліку в Excel
2. Рекомендовані інструменти для підвищення продуктивності в Excel
3. Забезпечує перегляд і редагування за допомогою вкладок в Microsoft Office, набагато більш потужний,...

Якщо ви хочете обробляти деякі дані за обмежений час, ви можете вставити таймер зворотного відліку на аркуші даних, а коли закінчите відлік часу, з'явиться нагадує діалогове вікно, що нагадує вам. Тут я розповім вам код VBA, щоб вставити таймер зворотного відліку в Excel.

Вставити таймер зворотного відліку в Excel

Вставити таймер зворотного відліку в Excel

В Excel він не може відлік часу, але ви можете скопіювати наступний код VBA, щоб підрахувати час.

1. Виберіть осередок і відформатуйте її як форматування часу, клацнувши правою кнопкою миші на осередку і вибравши Формат ячеек, потім в діалоговому вікні натисніть Час і вибір 13: 30: 55, який належить до Тип: список, при натисканні OK для виходу з цього діалогу. Дивіться скріншот:

2. Введіть час, в яке ви хочете зворотний відлік, в осередок форматування. Дивіться скріншот:

3. Натисніть Alt + F11 відкривати ключі Microsoft Visual Basic для додатків вікна.

4. Натисніть Вставити> модуль а потім скопіюйте наступний VBA в нове вікно.

VBA: таймер зворотного відліку.

Dim gCount As Date 'Updateby20140925 Sub Timer () gCount = Now + TimeValue ( "00:00:01") Application.OnTime gCount, "ResetTime" End Sub Sub ResetTime () Dim xRng As Range Set xRng = Application.ActiveSheet.Range ( "E1") xRng.Value = xRng.Value - TimeSerial (0, 0, 1) If xRng.Value <= 0 Then MsgBox "Countdown complete." Exit Sub End If Call Timer End Sub

Чайові: E1 в наведеному вище коді вказує осередок часу, яку ви вводите на етапі 2.

5. Натисніть прогін або натисніть F5 для запуску таймера зворотного відліку. Тепер час відраховується.

6. І коли відлік закінчиться, з'явиться діалогове вікно.

Чайові: Ви не можете зупинити зворотний відлік, коли він працює, крім закриття книги.

Рекомендовані інструменти для підвищення продуктивності в Excel

Kutools для Excel допомагає завжди завершувати роботу завчасно і виділятися з натовпу

• Більше, ніж потужні розширені функції 300, розроблені для робочих сценаріїв 1500, що підвищують продуктивність на 70%, дають вам більше часу, щоб піклуватися про сім'ю і радіти життю.
• Більше не потрібно запам'ятовувати формули і коди VBA, дайте вашому мозку відпочити.
• Стати експертом по Excel за хвилини 3. Складні і повторювані операції можна виконати за лічені секунди,
• Щодня скорочуйте тисячі операцій з клавіатурою і мишкою, попрощайтеся з професійними захворюваннями зараз.
• Високоефективні люди 110,000 і вибір всесвітньо відомих компаній 300 +.
• 60-Day повнофункціональна пробна версія. 60-день гарантії повернення грошей. 2 років безкоштовного оновлення і підтримки.

Забезпечує перегляд і редагування за допомогою вкладок в Microsoft Office, набагато більш потужний, ніж вкладки браузера

• Вкладка Office призначена для Word, Excel, PowerPoint і інших додатків Office: Publisher, Access, Visio і Project.
• Відкривайте і створюйте кілька документів в нових вкладках одного і того ж вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% і зменшує сотні кліків мишкою для вас кожен день!