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

Как обновить или вставить (текущую) дату и время с помощью командной кнопки в Excel?

Обычно многие пользователи Excel обычно вставляют метку времени с помощью формулы = СЕЙЧАС (). С помощью этой формулы вставленная метка времени будет обновляться автоматически каждый раз, когда вы открываете книгу. Чтобы вручную обновить дату и время на листе в любое время, как этого добиться? Эта статья покажет вам метод обновления текущей даты и времени, нажав кнопку Command в Excel.

Обновление даты и времени с помощью командной кнопки с кодом VBA


Обновление даты и времени с помощью командной кнопки с кодом VBA

Чтобы обновить дату и время с помощью командной кнопки в Excel, сделайте следующее.

1. Вставьте командную кнопку, нажав разработчик > Вставить > Командная кнопка (элемент управления ActiveX). Смотрите скриншот:

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

3. Во всплывающем Microsoft Visual Basic для приложений окна, замените исходный код приведенным ниже кодом VBA.

Код VBA: обновление даты и времени с помощью командной кнопки в Excel

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

Внимание: В коде CommandButton1 - это имя вставленной вами командной кнопки. А A2 - это ячейка, в которой будут отображаться дата и время обновления. Пожалуйста, измените их по своему усмотрению.

4. Отключите режим «Дизайн» на вкладке «Разработчик». Нажмите кнопку Command, и текущая дата и время будут вставлены в ячейку A2.

И каждый раз, когда вы нажимаете кнопку Command, дата и время в ячейке A2 будут немедленно обновляться.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет.. это действительно хорошая базовая информация..


Один вопрос - как изменить код, чтобы поместить метку даты в СЛЕДУЮЩУЮ строку ниже при каждом нажатии кнопки? (сохраняя данные, ранее написанные выше?)


Огромное спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Приведенный ниже код VBA будет работать с выбранной ячейкой. Если вы хотите вставить метку времени в ячейку, просто выберите ее и нажмите кнопку.

Private Sub CommandButton1_Click ()
Dim xRg как диапазон
On Error Resume Next
Установите xRg = Выбор
xRg.Value = Сейчас()
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий! Спасибо за этот урок.


Однако как мне вставить ТОЛЬКО дату в формате ДД/ММ/ГГГГ?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Вы можете отформатировать выходную ячейку как форматирование короткой даты, чтобы решить эту проблему.
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть вопрос. Есть рабочая книга, которую мы храним на общем диске для доступа всей команды. Я хочу добавить к нему этот макрос, чтобы в любое время, когда вносятся изменения, мы могли просто нажать кнопку, и время и дата будут автоматически заполняться одним щелчком мыши. Теперь вот вопрос: из этой книги данные передаются в другие книги, если я сохраню новый файл как «с поддержкой макросов» и удалю старую книгу «без макросов», будут ли данные продолжать извлекаться из этой новой книги или мне нужно исправить все другие книги.
Этот комментарий был сведен к минимуму модератором на сайте
Привет Мишель,
После сохранения книги как книги Excel с поддержкой макросов код по-прежнему работает нормально.
Этот комментарий был сведен к минимуму модератором на сайте
Как обновить код, чтобы поместить отметку времени/даты в ячейку СЛЕДУЮЩИЙ к кнопке, чтобы она применялась к каждой строке на ней
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL