Выпадающий календарь в excel 2016
Всплывающий календарь
Если вам часто приходится вводить даты в ячейки листа, то делать это вручную неудобно. Для ввода именно сегодняшней даты можно воспользоваться функцией СЕГОДНЯ (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 Цена: бесплатно Сайт автора умер, ссылки не работают, но можно скачать заботливо сохраненную мной когда-то копию здесь.
Источник: www.planetaexcel.ru Выпадающий календарь в excel 2016Выпадающий календарь для ввода дат Наша задача – добавить в книгу 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() Private Sub UserForm_Activate() Теперь надо заставить Excel показывать нам созданную форму, когда мы этого захотим. Для этого вставьте новый модуль ( Insert – Module ) и скопируйте туда этот текст: Sub ShowCalendar() Осталось закрыть редактор 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) Теперь при выделении любой ячейки из диапазона А1:А20 календарь будет автоматически отображаться на экране. Когда тот или иной физик использует понятие “физический вакуум”, он либо не понимает абсурдности этого термина, либо лукавит, являясь скрытым или явным приверженцем релятивистской идеологии. Понять абсурдность этого понятия легче всего обратившись к истокам его возникновения. Рождено оно было Полем Дираком в 1930-х, когда стало ясно, что отрицание эфира в чистом виде, как это делал великий математик, но посредственный физик Анри Пуанкаре, уже нельзя. Слишком много фактов противоречит этому. Для защиты релятивизма Поль Дирак ввел афизическое и алогичное понятие отрицательной энергии, а затем и существование “моря” двух компенсирующих друг друга энергий в вакууме – положительной и отрицательной, а также “моря” компенсирующих друг друга частиц – виртуальных (то есть кажущихся) электронов и позитронов в вакууме. Однако такая постановка является внутренне противоречивой (виртуальные частицы ненаблюдаемы и их по произволу можно считать в одном случае отсутствующими, а в другом – присутствующими) и противоречащей релятивизму (то есть отрицанию эфира, так как при наличии таких частиц в вакууме релятивизм уже просто невозможен). Подробнее читайте в FAQ по эфирной физике. Источник: bourabai.ru Выпадающий календарь в excel 2016
= Мир MS Excel/Выпадающий календарь – Мир MS Excel –> –> –> Правила форума |
FAQ | Новости сайта | Новые сообщения | Участники | RSS |
Отметить все сообщения прочитанными и перейти на главную страницу форума |
–>
|
|
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин |
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий календарь (Формулы/Formulas) |
Выпадающий календарь
Dion | Дата: Среда, 13.12.2017, 23:16 | Сообщение № 1 | ||
|