Всплывающий календарь
Если вам часто приходится вводить даты в ячейки листа, то делать это вручную неудобно. Для ввода именно сегодняшней даты можно воспользоваться функцией СЕГОДНЯ (TODAY), сочетанием клавиш Ctrl+; или макросом, но если нужны разные даты из прошлого или будущего, то вбивать их руками долго.
К сожалению, в стандартном арсенале средств Excel нет встроенного выпадающего календаря (в отличие от Word), да еще и в последних версиях, начиная с Excel 2007, Microsoft зачем-то убрала из стандартного комплекта поставки библиотеку mscalc.osx, которая позволяла быстро создать пользовательскую форму с календарем.
Естественно, это "узкое место" не осталось без внимания опытных пользователей и экспертов Excel MVP, которые оперативно создали несколько интерактивных календарей на макросах для удобного ввода дат. Вот подборка неплохих, на мой взгляд, бесплатных вариантов:
 | Windows Date Picker
Автор: Ron de Bruin Цена: бесплатно Ссылка
|
 | Excel Date Picker
Автор: Jim Cone Цена: бесплатно Ссылка
|
 | Mini Calendar and Date Picker
Автор: VERTEX Цена: бесплатно. Ссылка в Office Apps Store
|
 | Date Picker
Автор: Sam Radakovitz, руководитель команды программистов Excel в Microsoft Цена: бесплатно Сайт автора умер, ссылки не работают, но можно скачать заботливо сохраненную мной когда-то копию здесь.
|
P.S.
Установка надстроек:
- в Excel 2003 и старше - меню Сервис - Надстройки - Обзор (Tools - Add-ins - Browse)
- в Excel 2007 и новее - Файл - Параметры - Надстройки - Перейти - Обзор (File - Options - Add-ins - Go To - Browse)
Ссылки по теме
Application.OnUndo <Заголовок>,<имя восстанавливающего макроса>
Function
PtrSafe
Не имеется ли такого?
Файлик, который дан ниже в комментариях ("русифицированный";) требует лишь добавить PtrSafe, о чем так же написано чуть ниже в обсуждении.
Можно ли "правильный" файлик с пометкой про PtrSafe так же добавить в шапку? - когда "горит", трудно вчитываться в переписку
Могу добавить "исправленный" файл, если найду способ, как
заранее спасибо
Проблема с календарем всплывала у меня относительно часто, по каким-то магическим причинам старый объект календарь контрол не работал у клиентов даже в той же версии экселя, где я писал. Пытался шаманить - не шаманилось, духи были на вражеской стороне.
Решение нашел на данном сайте -- . Ребята написали календарь в виде класса, который можно импортировать в свой проект. Очень удобно, работает во всех версиях. Понравилось, что можно раскрасить календарь под свой вкус и цвет.
Думаю можно добавить в Вашу статью эту ссылку, может кому поможет.
И вопрос: можно ли создать календарь где в каждой ячейке с датой находилась бы информация т.е таблица excel с проделанной работой или шаблоны с этой таблицей? Для удобства дальнейшего их архивирования и для востоновления сценариев проделанной работы по мере необходимости. Думаю было бы очень удобно в разворачиваемом окне календаря иметь необходимую для работы таблицу.Зарание спасибо!
Windows Date Picker
Автор: Ron de Bruin
Николай, огромное спасибо вам за сайт на котором очень много информации и полезных статей.
У меня есть вопрос: нашел в интернете календарь переделал под себя все работает, но есть один маленький нюанс когда выбираешь дату то в userform-у дата ставится с не понятным форматом месяц/день/год код пересмотрел не один раз и не могу понять почему такой ставится формат.
Хотелось бы чтоб был что ставилась обычная дата например: 15.01.2015. Буду очень благодарен если по можете в решение проблемы
Windows Date Picker
Автор: Ron de Bruin
Цена: бесплатно
Windows Date Picker
Автор: Ron de Bruin
Цена: бесплатно
Стоит windows 10 x64 + Exel 2013
На win xp+exel2010 написал макрос в форме vba для ввода даты через MSCOMCT2.OCX,
Чтоб в форме быстро выбрать дату.
Сейчас при перустоновке системы на новую я снова установис эту библиотеку( всеми спосабами), но все равно у мен яен появляется это наадстройка. Есть вариант приучить ее или пеерходить на другую( какая из присутствующих будут в форму монтироваться)
Календарь Excel Date Picker .
Все замечательно!
Вопрос, как и где изменить код, чтобы при нажатии кнопки Insert дата появлялась в определенной ячейке, например С6?
Буду очень благодарен за решение.
Скачал Excel Date Picker. Работает отлично. Вот только один вопрос: Как скопировать календарь в новую книгу, чтобы ссылка не открывала скачанный файл. Копирую модули и форму, при нажатии кнопки выдает ошибки. Пользователь я пока не ахти.
Нужна помощь, что нужно изменить что бы при удалении в столбцах L5:P370 значения дата в колонке "А" не проставлялась:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("L2:P370") Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With Range("A" & cell.Row) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub
Полностью русифицировал, добавил отображение значка «Календарь» во всех ячейках имеющий формат «Дата», а также добавил кнопку «ТД» - текущая дата.
Для не опытных написал макрос («Включить надстройку Excel через vba.xlsm»), чтобы автоматически установить надстройки.
Инструкция:
1) Две файлы вложить в одну папку («samradDatePicker2019.xla» и «Включить надстройку Excel через vba.xlsm»;
2) Запустить файл «Включить надстройку Excel через vba.xlsm»;
3) Нажать кнопку «Запустить настройку».
Макрос автоматически задаст пути и начнёт установку:
- Полный путь к файлу «samradDatePicker2019»
- Полный путь к папке «AddIns» + «samradDatePicker2019»
- Полный путь к папке «XLSTART» + «samradDatePicker2019»
Скачать:
отлично работает, супер! сейчас приступил к русификации!