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

Question

В Excel 2003 можно ли вводить даты в ячейку из раскрывающегося календаря, а не вводить их вручную?

Answer 1

Есть несколько способов:

• Добавление поля формы с раскрывающимся календарем может быть более удобным, но подходит для ограниченного числа ячеек, сделанных вручную.

  1. включить вкладку разработчика в Excel
  2. выберите «Вставка»> «Другие» (нижний правый значок)> «Microsoft Date and Time Picker Control 6.0».
  3. поместите элемент управления на свой лист
  4. с помощью вкладки « Разработчик » отобразить страницу свойств элемента управления
  5. установить свойство LinkedCell для вашей ячейки
  6. с помощью вкладки « Разработчик » отключить режим разработки

• добавление универсального выпадающего списка даты / времени может быть немного менее интуитивно понятным, но вам не требуется дополнительная специальная обработка ячеек даты

  • Вы можете получить это дополнение (ну, для Excel-2003 вам нужно найти что-то подобное) или создать свое собственное с подобной функциональностью (требуется опыт разработки программного обеспечения). Путь идет через надстройки Excel.

Answer 2

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

Используйте следующее для Excel 2003.

---

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

1. Вставьте> Объект, прокрутите вниз и нажмите "Управление календарем Microsoft".

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

Нажмите на дату, и она будет введена в активную ячейку.

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