Excel как вставить в ячейку календарь

Выбор даты из всплывающего календаря

Описание работы

Excel позволяет добавить выпадающий календарь в конкретную ячейку, но часто этого не достаточно и приходится вводить большое количество дат в разные ячейки. Не всегда удобно делать это с клавиатуры, так как при вводе хочется параллельно видеть день недели и не ошибиться в выборе даты.

Чтобы вставить дату из всплывающего календаря в любой ячейке Excel можно использовать надстройку VBA-Excel. Для этого:

1. Выделить ячейку в которую необходимо вставить дату.
2. Перейти на вкладку VBA-Excel.
3. Выбрать команду Вставить дату.
   
4. В диалоговом окне Календаря выбрать нужную дату.

Работа с формой календаря

Форма календаря имеет достаточно широкий функционал.

• Можно быстро перейти к текущему числу.
• Быстро переключить месяц путем выбора его из списка.
• Изменять год с помощью переключателей.
• При выборе даты отображаются дни недели и подсвечиваются выходные дни.
• Вы можете вызвать окно ввода даты и продолжать работать с данными. Закрывать окно нет необходимости.
• Закрыть календарь можно в любой момент путем нажатия на крестик в правом верхнем углу.

Всплывающий календарь

Если вам часто приходится вводить даты в ячейки листа, то делать это вручную неудобно. Для ввода именно сегодняшней даты можно воспользоваться функцией СЕГОДНЯ (TODAY), сочетанием клавиш Ctrl+; или макросом, но если нужны разные даты из прошлого или будущего, то вбивать их руками долго.

К сожалению, в стандартном арсенале средств Excel нет встроенного выпадающего календаря (в отличие от Word), да еще и в последних версиях, начиная с Excel 2007, Microsoft зачем-то убрала из стандартного комплекта поставки библиотеку mscalc.osx, которая позволяла быстро создать пользовательскую форму с календарем.

Естественно, это «узкое место» не осталось без внимания опытных пользователей и экспертов Excel MVP, которые оперативно создали несколько интерактивных календарей на макросах для удобного ввода дат. Вот подборка неплохих, на мой взгляд, бесплатных вариантов:

Windows Date Picker
Автор: Ron de Bruin
Цена: бесплатно
Ссылка

• Устанавливается как надстройка (есть версии для старых Excel 200-2003 и для новых Excel 2007-2010 и, отдельно, для Excel 2013.
• Вызывается через контекстное меню ячейки (правой кнопкой мыши по ячейке — Date Picker).
• Позволяет вставлять дату в нескольких форматах, вплоть до номера недели (по разным стандартам).
• Автоматически подстраивается под российский стандарт недели (с понедельника).

Excel Date Picker
Автор: Jim Cone
Цена: бесплатно
Ссылка

• Макрос (не надстройка!) с открытым кодом VBA — можно посмотреть как всё устроено и модернизировать «под себя». Но надо копировать код в каждый используемый файл и вызывать нажатием на кнопку или сочетанием клавиш, т.е. универсальность хромает.
• Удобная система прокрутки лет и месяцев.
• Российскую неделю (с понедельника) знает.
• Каких-либо настроек нет.

• Работает только в Excel 2013, добавляется через магазин приложений Office App Store на вкладке Вставка — Приложения для Office (Insert — Office Apps Store).
• Вставляется на лист как постоянный графический объект и добавляет выбранную дату в любую выделенную предварительно ячейку.
• Умеет менять стандарты недели, отображать номера недель, вводить не только дату, но и время.
• Есть возможность задавать темы оформления.
• Нет кнопки перехода к текущему дню.

Date Picker
Автор: Sam Radakovitz, руководитель команды программистов Excel в Microsoft
Цена: бесплатно
Сайт автора умер, ссылки не работают, но можно скачать заботливо сохраненную мной когда-то копию здесь.

• Устанавливается как надстройка.
• Вызывается через правую кнопку мыши по ячейке — Pick from calendar или с помощью удобного всплывающего значка календарика справа от ячейки с датой.
• Красивый дизайн, отображение количества дней до выбранной даты от текущей.
• Использует USA-стандарт недели (отображает неделю с воскресенья).
• Настроек нет.

• в Excel 2003 и старше — меню Сервис — Надстройки — Обзор (Tools — Add-ins — Browse)
• в Excel 2007 и новее — Файл — Параметры — Надстройки — Перейти — Обзор (File — Options — Add-ins — Go To — Browse)

Excel как вставить в ячейку календарь

Проблемы с отображением видео:

Ну нет в MS Excel календаря вот и приходится пользователям либо вводить даты с клавиатуры, либо создавать свои собственные формы в виде календаря для быстрой вставки дат. В данной статье я предлагаю решение для «ленивых», для тех, кому лень делать и то, и другое.

Помучиться все-таки немного придется, а именно скачать и установить надстройку ЁXCEL, ну и еще немного почитать справку. Зато потом со вставкой дат проблем практически не будет.

Когда надстройка подключена, встаем на ячейку, в которую необходимо вставить дату и нажимаем правую клавишу мышки, в выпавшем контекстном меню выбираем последний пункт «Календарь»:

Откроется форма календаря. Выберите месяц, год и нажмите на соответствующий день:

Форма закроется, а в выбранную ячейку введется указанная дата.

Если вы хотите ввести несколько дат в разные ячейки, и вам не хочется каждый раз заходить в контекстное меню, снимите галочку напротив пункта «Закрыть при выборе даты»:

Форма перестанет закрываться при щелчке по дате. Введите несколько дат, а затем просто закройте форму.

Важно:

• Если вы встали на ячейку, в которой уже введена дата и нажали «Календарь», то форма календаря откроется, а выбранная дата в форме будет соответствовать дате, находящейся в ячейке. Если вы хотите ввести в эту ячейку дату близкую к текущей дате, нажмите на форме кнопку «Сегодня», календарь переключится на текущую дату.
• Если вы не видите в контекстном меню пункта «Календарь» — воспользуйтесь командой » Создать контекстное меню надстройки «.

Комментарии

Автору надстройки однозначно респект.

У меня есть сомнения, что это для «ленивых».
1. Скачать
2. Установить — ну ладно, без этого никуда и один раз. а дальше?
3. Добраться до календаря НЕ В ОДИН КЛИК и это каждый раз, когда нужно выбрать дату.
4. Искать нужную дату, если она не в этом году/месяце

мне кажется, что нужно доработать, чтобы она была действительно для ленивых )))

1. доступ в один клик
2. реагировать на даты в соседних ячейках, вдруг там уже год и месяц есть

Excel как вставить в ячейку календарь

Проблемы с отображением видео:

Ну нет в MS Excel календаря вот и приходится пользователям либо вводить даты с клавиатуры, либо создавать свои собственные формы в виде календаря для быстрой вставки дат. В данной статье я предлагаю решение для «ленивых», для тех, кому лень делать и то, и другое.

Помучиться все-таки немного придется, а именно скачать и установить надстройку ЁXCEL, ну и еще немного почитать справку. Зато потом со вставкой дат проблем практически не будет.

Когда надстройка подключена, встаем на ячейку, в которую необходимо вставить дату и нажимаем правую клавишу мышки, в выпавшем контекстном меню выбираем последний пункт «Календарь»:

Откроется форма календаря. Выберите месяц, год и нажмите на соответствующий день:

Форма закроется, а в выбранную ячейку введется указанная дата.

Если вы хотите ввести несколько дат в разные ячейки, и вам не хочется каждый раз заходить в контекстное меню, снимите галочку напротив пункта «Закрыть при выборе даты»:

Форма перестанет закрываться при щелчке по дате. Введите несколько дат, а затем просто закройте форму.

Важно:

• Если вы встали на ячейку, в которой уже введена дата и нажали «Календарь», то форма календаря откроется, а выбранная дата в форме будет соответствовать дате, находящейся в ячейке. Если вы хотите ввести в эту ячейку дату близкую к текущей дате, нажмите на форме кнопку «Сегодня», календарь переключится на текущую дату.
• Если вы не видите в контекстном меню пункта «Календарь» — воспользуйтесь командой » Создать контекстное меню надстройки «.

Комментарии

Автору надстройки однозначно респект.

У меня есть сомнения, что это для «ленивых».
1. Скачать
2. Установить — ну ладно, без этого никуда и один раз. а дальше?
3. Добраться до календаря НЕ В ОДИН КЛИК и это каждый раз, когда нужно выбрать дату.
4. Искать нужную дату, если она не в этом году/месяце

мне кажется, что нужно доработать, чтобы она была действительно для ленивых )))

1. доступ в один клик
2. реагировать на даты в соседних ячейках, вдруг там уже год и месяц есть

Excel как вставить в ячейку календарь

Выпадающий календарь для ввода дат

Наша задача — добавить в книгу Excel пользовательскую форму (окно) с автоматическим календарем. Вот такое:

Окошко будет появляться при нажатии сочетания клавиш и после выбора в нем нужной даты — она попадает в текущую ячейку листа. Просто и красиво!

Откройте редактор Visual Basic через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor).

Создайте в нем новую пустую пользовательску форму, выбрав в меню Insert — User form .

Автоматически должна появиться панель Toolbox :

Если не появилась — жмите в меню View — Toolbox .

На этой панели представлены различные управляющие элементы окон: кнопки, списки, счетчики и т.д. Но нам нужен элемент (календарь), которого пока на панели не видно. Чтобы добавить его, щелкните по серому фону панели правой кнопкой мыши и выберите Additional Controls . Появится вот такое окно:

В нем надо найти и отметить Элемент управления Календарь 11.0 (Calendar Control 11.0). Версии могут отличаться (11.0, 10.0 и т.д.) в зависимости от версии Microsoft Office, это несущественно. После нажатия на ОК на панели появится новая кнопка — Calendar :

Щелкните по ней, а затем нарисуйте календарь на поле формы, удерживая нажатой левую кнопку мыши:

При желании подправьте размеры формы и календаря и введите текст заголовка окна в панели свойств слева.

Теперь переключитесь в режим ввода программного кода созданной формы (меню View — Code ) и скопируйте туда этот текст:

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat=»dd/mm/yy»
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Теперь надо заставить Excel показывать нам созданную форму, когда мы этого захотим. Для этого вставьте новый модуль ( Insert — Module ) и скопируйте туда этот текст:

Sub ShowCalendar()
UserForm1.Show
End Sub

Осталось закрыть редактор Visual Basic и, вернувшись в Excel, назначить созданному макросу ShowCalendar любое подходящее сочетание клавиш (меню Сервис — Макрос — Макросы — кнопка Параметры ).

Если у Вас установлена не полная версия Office, то элемента управления Календарь может не оказаться в списке Additional Controls . Тогда скачайте этот файл (MSCal.ocx.zip) , поместите его в папку C:Windowssystem32 и зарегистрируйте новый элемент управления через меню Пуск — Выполнить , далее набрать Regsvr32 c:windowssystem32mscal.ocx и нажать ОК .

(За дополнение спасибо Vadim )

Если Вы хотите, чтобы календарь автоматически появлялся на экране, когда пользователь выделяет определенные ячейки (диапазон) на листе, то щелкните правой кнопкой мыши по ярлычку этого листа и выберите Исходный текст (View Source). В открывшееся окно редактора Visual Basic скопируйте следующий код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range(«A1:A20»), Target) Is Nothing Then
UserForm1.Show
End If
End Sub

Теперь при выделении любой ячейки из диапазона А1:А20 календарь будет автоматически отображаться на экране.