1

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

2 ответа2

2

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

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

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

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

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

Используйте следующее для 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .