Как открыть календарь при нажатии на определенную ячейку в 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 и в Code окна, замените исходный код следующим сценарием 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
