Календарь через пользовательскую форму в Excel 2013

Question

Я создал форму пользователя с начальной датой, конечной датой, полученной датой в качестве меток и каждой меткой с текстовым полем. Надстройка для управления календарем не может быть установлена ​​из-за прав администратора.

Мой поиск заканчивается установкой надстройки для установки элемента управления Calendar 6.0, который завершается с ошибкой "Доступ запрещен" на моем компьютере.

Моя пользовательская форма работает нормально, пользователь должен ввести дату вручную. Как получить здесь всплывающее окно с календарем или любые другие предложения по вводу даты, просто щелкнув мышью на Excel 2013, работающем на 64-битной версии.

Цените свое время здесь. Спасибо.

Answer 1

Function my_date_selection(ByVal d As Variant) As Date
If Not IsDate(d) Then GoTo L1 'Exit Function

If IsDate(d) = True Then
Load calendar
calendar.SelectedDayNumber = Day(d)
calendar.SelectedMonthNumber = Month(d)
calendar.SelectedYearNumber = Year(d)
End If

L1:
calendar.Show

If calendar.SelectedDayNumber = 0 And _
 calendar.SelectedMonthNumber = 0 And _
 calendar.SelectedYearNumber = 0 Then


 my_date_selection = Date
 ' user click on the cancel button in the calendar control therefore do nothing
Else
 my_date_selection = DateSerial(calendar.SelectedYearNumber, _
                           calendar.SelectedMonthNumber, _
                           calendar.SelectedDayNumber)
'   my_date_selection = Format(my_date_selection, "DD-MMM-YYYY")
End If
'   If my_date_selection < Date Then MsgBox "Invalid Date.":     GoTo l1
Unload calendar

End Function