Можно ли вводить даты из раскрывающегося календаря?

можно ли вводить даты в ячейки из выпадающего календаря?

используйте следующую команду для Excel 2003.

добавление календаря выпадающего списка в Excel 2003

1. вставить > объект, прокрутите вниз и нажмите на "Microsoft Calendar Control".

2. щелкните правой кнопкой мыши вкладку рабочий лист и просмотреть код.

3. вставьте следующий код:

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target.Cells.Count > 1 Then Exit Sub
       'Change this to your range of dates
       If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
           Calendar1.Top = Target.Top + Target.Height
           Calendar1.Left = Target.Left + Target.Width / 2 - Calendar1.Width / 2
           Calendar1.Visible = True
           Calendar1.Value = Now
       ElseIf Calendar1.Visible Then Calendar1.Visible = False
       End If
   End Sub
   Private Sub Calendar1_Click()
       ActiveCell.Value = (Calendar1.Value)
       ActiveCell.NumberFormat = "dd mmm yy"
   End Sub
   

   Примечание в коде диапазон дат установлен как A1: A100, поддерживать синтаксис и изменить это в соответствии.

4. закрыть редактор VB.

5. выйти из режима проектирования.

при нажатии в a1: A100 вы получите календарь, который по умолчанию на сегодняшний дата.

щелкните дату, и она будет введена в активную ячейку.

Source добавление раскрывающегося списка календаря в Excel 2003