Как открыть календарь при нажатии на определенную ячейку в Excel?
Предположим, что на листе есть диапазон столбцов, вам нужно часто вводить и изменять даты внутри, но скучно вводить или изменять дату вручную за раз. Как быстро вводить даты, не вводя вручную диапазон столбцов? В этой статье говорится о появлении календаря при нажатии на ячейки в определенном диапазоне, а затем о автоматической вставке даты в выбранную ячейку после выбора даты в календаре.
Шаг 2: активируйте Календарь при нажатии на ячейку
Вызов календаря при нажатии на определенную ячейку с кодом VBA
Решите эту проблему, как показано ниже.
Внимание: Этот метод работает только с 32-разрядной версией Microsoft Excel.
Шаг 1. Создайте пользовательскую форму с календарем
Пожалуйста, создайте UserForm, который содержит календарь, который вы увидите, щелкнув ячейку.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > UserForm.
3. Затем UserForm и Ящик для инструментов окна всплывают, в Ящик для инструментов, щелкните любой элемент управления и щелкните правой кнопкой мыши, затем выберите Дополнительные элементы управления из контекстного меню. Смотрите скриншот:
4. в Дополнительные элементы управления диалоговом окне прокрутите вниз, чтобы проверить Элемент управления Microsoft MonthView вариант в Доступные элементы управления поле, а затем щелкните OK кнопку.
5. Затем вы увидите МесяцПросмотр кнопка добавлена в Ящик для инструментов окно. Пожалуйста, нажмите эту кнопку MonthView, а затем щелкните окно UserForm1, чтобы создать Календарь в Userform.
Внимание: Вы можете настроить размер окна UserForm в соответствии с вставленным календарем, перетащив границу UserForm.
6. Дважды щелкните вставленный календарь в UserForm1 и в Код: окна, замените исходный код следующим сценарием VBA.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubВнимание: Этот код может помочь вставить дату в выбранную ячейку после выбора даты из календаря.
Шаг 2: активируйте Календарь при нажатии на ячейку
Теперь вам нужно указать определенные ячейки, чтобы при нажатии отображался календарь. Пожалуйста, сделайте следующее.
7. Дважды щелкните имя листа, содержащего ячейки, которые вы нажмете, чтобы слева появился календарь. Проекты под застройку панель, затем скопируйте и вставьте приведенный ниже код VBA в окно кода. Смотрите скриншот:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubВнимание: в коде A2: A10 - это ячейки, при нажатии на которые открывается календарь. Измените диапазон ячеек по своему усмотрению.
8. Нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
С этого момента при щелчке по любой ячейке в указанном диапазоне на текущем листе появится календарь, как показано ниже. И дата будет автоматически вставлена в выбранную ячейку после выбора даты в календаре.
Вызов календаря при нажатии на определенную ячейку с кодом VBA
В этом разделе представлены Выбор даты полезности Kutools for Excel. После включения этой функции щелкните ячейку даты, чтобы открыть календарь, вы можете легко заменить существующую дату на новую дату. Чтобы применить эту функцию, выполните следующие действия.
1. Нажмите Кутулс > Содержание > Включить средство выбора даты.
2. После включения этой функции щелкните ячейку даты, и значок календаря появится справа от ячейки.
3. Щелкните значок календаря, чтобы открыть Выбор даты диалоговое окно, а затем щелкните новую дату, чтобы заменить дату в выбранной ячейке.
Ноты:
Кнопка отмены: нажмите эту кнопку, чтобы отменить дату замены;
Кнопка «Закрыть»: нажмите эту кнопку, чтобы закрыть диалоговое окно «Выбор даты»;- Эта функция может применяться только к ячейкам, содержащим дату.
Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Статьи по теме:
- Как запустить или запустить макрос, щелкнув определенную ячейку в Excel?
- Как изменить цвет ячейки при нажатии или выборе ячейки в Excel?
- Как открыть окно сообщения при нажатии на определенную ячейку в Excel?
- Как отключить кнопку после однократного нажатия в Excel?
- Как отключить щелчок правой кнопкой мыши на вкладке листа в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
