В Excel 2003 можно ли вводить даты в ячейку из раскрывающегося календаря, а не вводить их вручную?
2 ответа
Есть несколько способов:
Добавление поля формы с раскрывающимся календарем может быть более удобным, но подходит для ограниченного числа ячеек, сделанных вручную.
- включить вкладку разработчика в Excel
- выберите «Вставка»> «Другие» (нижний правый значок)> «Microsoft Date and Time Picker Control 6.0».
- поместите элемент управления на свой лист
- с помощью вкладки « Разработчик » отобразить страницу свойств элемента управления
- установить свойство LinkedCell для вашей ячейки
- с помощью вкладки « Разработчик » отключить режим разработки
добавление универсального выпадающего списка даты / времени может быть немного менее интуитивно понятным, но вам не требуется дополнительная специальная обработка ячеек даты
- Вы можете получить это дополнение (ну, для Excel-2003 вам нужно найти что-то подобное) или создать свое собственное с подобной функциональностью (требуется опыт разработки программного обеспечения). Путь идет через надстройки Excel.
Можно ли вводить даты в ячейку из выпадающего календаря?
Используйте следующее для Excel 2003.
Добавление раскрывающегося списка календаря в Excel 2003
Вставьте> Объект, прокрутите вниз и нажмите "Управление календарем Microsoft".
Щелкните правой кнопкой мыши вкладку листа и просмотрите код.
Вставьте следующий код:
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, сохраните синтаксис и измените его в соответствии с требованиями.
Закройте редактор VB.
Выйти из режима дизайна.
Когда вы нажимаете в a1: A100, вы получаете календарь, который по умолчанию соответствует сегодняшней дате.
Нажмите на дату, и она будет введена в активную ячейку.
Источник Добавление раскрывающегося списка календаря в Excel 2003