Excel - Ввод даты c помощью формы календаря

Создания формы календаря для простого и быстрого добавления даты в выбранную ячейку таблицы Excel.
1) Установка и регистрация библиотеки MSCOMCT2.OCX.
2) Создание файла надстройки Calendar.xlam с использованием элемента управления ActiveX - Microsoft MonthView Control 6.0 (SP6).
3) Создание вкладки для вызова формы.
Файл MSCOMCT2.OCX можно скачать здесь:
yadi.sk/d/-Pol...
или
www.dropbox.co...
или здесь: support.micros...

[@pc_dot]

НЕ появляется в Toolbox. Все делал: и запуск от администратора и добавление через Другие элементы. Затем нажал на Toolbox правой кнопкой и во всплывающем меню нажал Additional Controls... и уже там нашел "Microsoft MonthView Control 6.0" . Выбрал его и нажал ОК. Вот тогда календарь и появился в Toolbox.

[@pc_dot]

Короче не надо загонятся с кодом. Скачивайте архив по ссылке, которая дана в описании, затем следуете указаниям из файла "команды" и после манипуляций смотрим видео с 8 минуты.

[@ВладимирЕршов-ш8е]

Спасибо за подсказку. Как только календарь появился в Tool box остальное все получилось. Календарь работает без проблем. После сохранения файла Calendar.xlam на одном компьютере скинул его на другой компьютер и все так же прекрасно заработало. Единственное, в Microsoft Excel 2007 не удалось сделать календарь как вкладка, так как в "настройка ленты" (параметры Excel) отсутствует кнопка создать группу и он появился только в строке лента. А так всё работает хорошо.

[@ebman4kasset]

А если в Additional Controls нету Microsoft MonthView Control 6.0. В командной строке все зарегистрировалось нормально, а дальше я в выборе формы просел....

[@Максбеттом]

к сожалению даже так ничего не получилось. Такое впечатление, что офис 2021 вообще не принимает элементы данной библиотеки

[@Максбеттом]

к сожалению даже так ничего не получилось. Такое впечатление, что офис 2021 вообще не принимает элементы данной библиотеки

[@mrenjoyerbro2746]

У меня не нужно было устанавливать библиотеку. Такой файл уже был у меня в папке до этого. Microsoft Office 2013. Все, что я сделал, это скопировал Calendar.xlam как сказал автор и добавил его в Excel и все заработало!!!! Можно так же нажать по созданной кнопке правой кнопкой мыши и добавить в панель быстрого доступа.

[@MaxLeRoi2]

Щоб не париться з набором: Private Sub cmdClose_Click() Unload Me End Sub Private Sub MonthView1_DateClick(ByVal DateClicked As Date) On Error Resume Next Dim cell As Object For Each cell In Selection.Cells cell.Value = DateClicked Next cell Unload Me End Sub Private Sub UserForm_Initialize() If IsDate(ActiveCell.Value) Then Me.MonthView1.Value = ActiveCell.Value End If End Sub Модуль Sub OpenCalendar() FrmCalendar.Show End Sub

[@Evgeniy_Gorgolin]

Да не работает это уже давно. Так что не парьтесь.

[@Anatolii_Kodirov]

Подскажите, Microsoft MonthView Control 6.0 работает на Office 2021?

[@mrenjoyerbro2746]

Все работант, спасибо!

[@Anatolii_Kodirov]

Подскажите пожалуйста, в форму необходимо добавить поле "Дата" но у меня нету элемента Date And Time Picker 6.0 (SP6), пробовал добавлять библиотеку MSCOMCT2.OCX на офис 2021но ничего не получилось, я так понимаю на офисе 2021 не работает, как можно решить эту задачу?

[@Максбеттом]

тоже офис 2021 (с лицензией) не получается установить элемент календаря совсем (его просто нет). Библиотека регистрируется, а элементы управления ActiveX вообще не появляются в списке...

[@Polyariz]

Компонент Microsoft MonthView Control 6.0 добавился в Excel?

[@andreytsytsarin9349]

После регистрации не появился в additional controls. С 3-ей минуты встрял, помогите наладить

[@q3q3q3q3q]

а дайте вашу почту плз. хочу с вами пообщаться, спросить можно ли добавить иконку с календарем в ячейку(чтобы меньше мышкой крутить) и чтобы в выделенную ячейку вставала дата. что в макросе поменять нужно?)

[@agent-vw2os]

Не работает, пишет "требуемый класс отсутствует в classFactory" , все сделал как в видео, что может быть не так?

[@ЕвгенийЛапшин-з1д]

Чуть пое...и всё РАБОТАЕТ) ...Андрей Мерзлюк, по его комменту заработало

[@gamybarebixon8011]

Здравствуйте, сделал все, по Вашей рекомендации, а при регистрации файла мне написали, что "Выбранный файл не содержит саморегистрирующихся объектов Active X

[@Ilya.Vityugov]

все сделал - не работает

[@ЕвгенийСеребряков-ч8у]

Добрый день! При запуске пишет, ошибку 424, требует Объект. Параметры безопасности отключены, ОС Win7 32-я... Что может быть? Спасибо.

[@Polyariz]

Добрый день. Проверьте, чтобы компонент Microsoft MonthView Control 6.0 добавился в Excel. Почитайте комментарии выше.

[@lpsskype9507]

Как открыть закладку свойства где меняем форму пользователя в редакторе, нажал на крестик, а сейчас не знаю как заново запустить?

[@lpsskype9507]

Где ссылку то на файл найти в каком описании урока?

[@Polyariz]

Ссылка в описании: yadi.sk/d/-PolTPHCukXDr или www.dropbox.com/s/hiyfy0qax0fwqwp/ExcelCalendar.rar?dl=0

[@serjbashtov6329]

не работает. как не крути.

[@rah1545]

Не получается..

[@ДмитрийБ-з5ю]

Добрый день, подскажите, пожалуйста, в чем может быть причина отказа в работе в Excel2007? библиотека успешно зарегистрировалась, форма календаря закрывается нажатием на кнопку и открывается на любой дате, если таковая указана в ячейке. не работает лишь функция возврата значения из календаря в указанную ячейку - если значение и было, то оно стирается. при этом в моей версии экселя на этапе двойного щелчка по календарю создается подпрограмма не как у Вас в примере, а Private Sub Calendar1_Click () , без аргументов. это с ней такой результат если добавляю в подпрограмму то в Вашем примере - Private Sub Calendar1_DateClick (все аргументы из примера..) и перестает работать - ошибок не выдает, значений никаких тоже. календарь не закрывается. Помогите ,пожалуйста, советом!

[@Polyariz]

При создании кода Вы делаете двойной щелчок на основной форме, а нужно сделать двойной щелчок именно на самом календаре, тогда у Вас создаётся функция: Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

[@lpsskype9507]

Не понятно как регистрировать файл в папке?

[@jastli887]

Polyariz Добрый день! В списке элементов ActiveX добавился календарь, но при добавлении в форму отображает ошибку: "Требуемый класс отсутствует в ClassFactory".

[@Polyariz]

Здравствуйте. Пробуйте открыть Excel с правами администратора и проверить работу компонента. Или разместить компонент в папке C:\Program Files\Microsoft Office\Office16 Для регистрации компонента открывайте командную строку с правами администратора. Если эти действия не решают проблему, возможно компонент больше не поддерживается.

[@ВиталийДубинин-к6у]

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

[@Polyariz]

Самая частая проблема - когда не регистрируется библиотека MSCOMCT2.OCX в Excel и соответственно элемента календаря не будет в списке элементов ActiveX. Если данной библиотеке нет в списке элементов ActiveX, по пробуйте сделать так: 1) запустите Excel от имени администратора; 2) перейдите во вкладку РАЗРАБОТЧИК -> в группе "Элементы управления" найдите "ВСТАВИТЬ" (Портфель с отверткой нарисован) -> после нажатия увидите ряд: "Элементы ActiveX" -> найдите здесь кнопку "Отвертка с Гаечным ключом" (Другие элементы) 3) Откроется окно "Другие элементы" -> Нажмите кнопку "Зарегистрировать настраиваемый" -> Выберете файл MSCOMCT2.OCX -> Ok. После чего "Microsoft MonthView Control 6.0" будет в списке элементов ActiveX и Вы сможете добавить календарь в форму. Если у Вас другая причина, укажите ее.

[@ВиталийДубинин-к6у]

Здравствуйте, сделал все, по Вашей рекомендации, а при регистрации файла мне написали, что "Выбранный файл не содержит саморегистрирующихся объектов Active X

[@ЕленаШалагина-ь3л]

@@ВиталийДубинин-к6у У меня точно также :(

[@ЕленаШалагина-ь3л]

@@Polyariz Подскажите, что можно предпринять?

[@Alex-vk8pu]

@@Polyariz К сожалению и этот метод не помог подтянуть библиотеку MSCOMCT2.OCX в Excel . Microsoft MonthView Control 6.0 не появился в списке по способу из видео с регистрацией файла, а по этому способу выдает сообщение, что выбранный файл не содержит саморегистрирующихся обьектов ActiveX. Эксель 2016

[@InvisiGod]

открывается на декабре 2015. Как исправить?

[@Polyariz]

Исправьте эту функцию: Sub OpenCalendar() 'Задаем текущую дату в календаре frmCalendar.MonthView1.Value = Format(Date, "dd.mm.yyyy") frmCalendar.Show End Sub

[@InvisiGod]

Спасибо!

[@АннаСорока-в2щ]

@@Polyariz я скопировала текст выше, не сработало. Как прописать, чтобы календарь открывался на текущем месяце?

[@studioprojects923]

не работает (

[@Polyariz]

Подключите рабочий макрос Calendar.xlam из архива, ссылка в описании.

[@adiletyessaliyev4922]

херня какая то календарь не появился в чем причина?