Note: The other languages of the website are Google-translated. Back to English

Як оновити або вставити (поточну) дату та час за допомогою командної кнопки в Excel?

Зазвичай багато користувачів Excel, як правило, вставляють мітку часу з формулою = ЗАРАЗ (). За цією формулою вставлена ​​мітка часу буде оновлюватися автоматично кожного разу, коли ви відкриваєте книгу. Як вручну в будь-який час оновити дату та час на аркуші, як цього досягти? Ця стаття покаже вам спосіб оновлення поточної дати та часу, натиснувши кнопку команди в Excel.

Оновіть дату та час за допомогою командної кнопки з кодом VBA


Оновіть дату та час за допомогою командної кнопки з кодом VBA

Будь ласка, виконайте наступні дії, щоб оновити дату та час за допомогою командної кнопки в Excel.

1. Вставте командну кнопку, клацнувши Розробник > Insert > Кнопка керування (керування ActiveX). Дивіться знімок екрана:

2. Клацніть правою кнопкою миші на вставлену командну кнопку, а потім натисніть Переглянути код з меню, що клацне правою кнопкою миші.

3. У спливаючому Microsoft Visual Basic для додатків вікно, будь ласка, замініть оригінальний код на код VBA нижче.

Код VBA: оновіть дату та час за допомогою командної кнопки в Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

примітки: У коді CommandButton1 - це назва вставленої командної кнопки. А A2 - це клітинка, в якій відображатимуться дата та час оновлення. Будь ласка, змініть їх, як вам потрібно.

4. Вимкніть режим дизайну на вкладці розробник. Клацніть на командну кнопку, після чого поточна дата та час вставляються в клітинку A2.

І кожного разу, коли ви натискаєте на кнопку команди, дата та час у комірці А2 будуть негайно оновлюватися.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (7)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт.. це дійсно хороша основна інформація..


Одне запитання - як змінити код, щоб поміщати позначку дати в НАСТУПНИЙ рядок нижче, щоразу, коли натискається кнопка? (зберігати дані, раніше написані вище?)


Дякую вам так багато!
Цей коментар був мінімізований модератором на сайті
привіт,
Наведений нижче код VBA працюватиме у вибраній комірці. Якщо ви хочете вставити позначку часу до клітинки, просто виділіть її та натисніть кнопку.

Приватна підкоманда CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Встановіть xRg = виділення
xRg.Value = Зараз()
End Sub
Цей коментар був мінімізований модератором на сайті
Чудово! Дякую за цей підручник.


Однак як вставити ЛИШЕ дату у форматі ДД/ММ/РРРР?
Цей коментар був мінімізований модератором на сайті
привіт,
Щоб вирішити проблему, ви можете відформатувати вихідну клітинку як форматування короткої дати.
Цей коментар був мінімізований модератором на сайті
У мене є питання. Є робоча книга, яку ми зберігаємо на спільному диску для всієї команди. Я хочу додати до нього цей макрос, щоб у будь-який час, коли вносилися зміни, ми могли просто натиснути кнопку, і час і дата автоматично заповнюватимуться одним клацанням миші. Тепер ось питання: з цієї книги дані витягуються в інші книги, якщо я збережу новий файл як "увімкнений макрос" і видалю стару книгу "без макросів", чи будуть дані продовжувати витягуватися з цієї нової книги чи чи потрібно буде виправити всі інші робочі книги.
Цей коментар був мінімізований модератором на сайті
Привіт Мішель,
Після збереження книги як книги Excel з підтримкою макросів код все ще працює нормально.
Цей коментар був мінімізований модератором на сайті
Як мені оновити код, щоб поставити штамп часу/дати в клітинку ПОДАЛЕЖ до кнопки, щоб він застосовувався до кожного рядка в ньому
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL