Календарик на форме

[asas2010]

Сообщение от agregator

KOSTIK1, спасибо, то что надо, только не показывает время. Я изменил код так:
Private Sub Cmd_Select_Click()
'Команда - закончить выбор даты и закрыть форму
'SelectedDate = CStr(DateValue(dt_1))
ActiveCell = dt_1
'Unload Me
End Sub

Теперь всегда в ячеике устонавливается время, а если его (времени) не надо, как отключить? Спасибо.

[KOSTIK1]

Сообщение от asas2010

Теперь всегда в ячеике устонавливается время, а если его (времени) не надо, как отключить? Спасибо.

Тогда пользуйтесь этим календарём.

[agregator]

Asas2010, пробуйте вот этот календарик.

[asas2010]

Сообщение от agregator

Asas2010, пробуйте вот этот календарик.

Спасибо agregator, сила, то что надо. Спасибо.

[agregator]

Нашёл ошибку, изменил.

[agregator]

Всем, здрасти. Подскажите, как на форме календаря включить красный крестик (кнопка закрыть).

[KOSTIK1]

Так примерно, выполняет роль кнопки "отмена".

[agregator]

KOSTIK1, здравствуй. Не могу открыть вложенный файл, пишет (Microsoft Office Excel - обнаружена ошибка. Приложение будет
закрыто. Приносим извинения за неудобства.).

[KOSTIK1]

У меня всё прекрасно работает! Вопрос к другим участникам форума - Работает ли выложенный файл?

[EducatedFool]

Вопрос к другим участникам форума - Работает ли выложенный файл?

Да, работает.


Могу предложить аналогичное решение, но более удобное в использовании:

• Календарь запускается по двойному щелчку в ячейке
• Если в ячейке уже есть дата, календарь открывается именно на этой дате
• Можно задать дату по умолчанию (на какой дате откроется календарь, если в ячейке ещё нет даты)
• Не надо после нажатия OK щелкать ещё на чём-то для закрытия календаря

(календарь тот же, взят из примера во втором посте этой темы)

Для ввода даты в ячейку используется такой код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 Then Target = Get_Date(Target): Cancel = True
End Sub

Для выбора даты используется функция Get_Date

Function Get_Date(Optional ByVal StartDate As String, Optional ByVal Default_date As String = "") As String
    SelectedDate = StartDate
    DefaultDate = Default_date
    Form_SelectDate.Show
    Get_Date = CStr(SelectedDate)
End Function

Пример файла (даты вводятся только в 3-й столбец): http://excelvba.ru/XL_Files/Sample__...0__8-51-42.zip