Как открыть календарь при нажатии на определенную ячейку в Excel?

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

Вызов календаря при нажатии на определенную ячейку с кодом 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. Щелкните значок календаря, чтобы открыть Выбор даты диалоговое окно, а затем щелкните новую дату, чтобы заменить дату в выбранной ячейке.

Ноты:

• Кнопка отмены: нажмите эту кнопку, чтобы отменить дату замены;
• Кнопка «Закрыть»: нажмите эту кнопку, чтобы закрыть диалоговое окно «Выбор даты»;
• Эта функция может применяться только к ячейкам, содержащим дату.

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

• Как запустить или запустить макрос, щелкнув определенную ячейку в Excel?
• Как изменить цвет ячейки при нажатии или выборе ячейки в Excel?
• Как открыть окно сообщения при нажатии на определенную ячейку в Excel?
• Как отключить кнопку после однократного нажатия в Excel?
• Как отключить щелчок правой кнопкой мыши на вкладке листа в Excel?