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

[agregator]

KOSTIK1, здравствуй.
На локальном компьютере файл работает, в сети нет (наверно политика безопасности).
Макрос и форма в другой книге в сети работает.
Объясни, как ты сделал, что красный крестик начал работать.

[KOSTIK1]

Я просто вставил код из "отмена" в "крестик".

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'   Команда - отменить выбор даты и закрыть форму
    If IsDate(SelectedDate) Then SelectedDate = CStr(DateValue(dt_2))
    dt_1 = dt_3
    Unload Me

'    'Восстановление исходной даты при отказе выбора
'    If CloseMode = 0 Then Cancel = 1
'    Form_DateTime_Showed = False
End Sub

EducatedFool - Спасибо за предложенные варианты, но этот

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

• Не надо после нажатия OK щелкать ещё на чём-то для закрытия календаря

не подходит т.к. был так задуман.

[agregator]

KOSTIK1, спасибо.

[Uralmaster]

А как сделать так чтобы время вставлялось в соседнюю ячейку на основе этого файла (поправленный код с крестиком) ?
Те дату/время в выбранный диапазон по столбцам(вызов календаря по одинарному клику в столбце "дата") - а просто дату в любую ячейку (вызов календаря по клику на кнопке "календарь")

[А)-(дрей]

Помогите разобраться, есть форма в ней текстбокс и кнопка, нужно чтобы при нажатии на кнопку выскакивал календарь с выбором даты и времени, после выбора в текстбоксе отображалась дата и время и в ячейке A1, также отображалась дата и время. В моем примере все работает, кроме времени - его никак не могу подключить уже второй день бьюсь).. были моменты в моих мучениях когда в текстбоксе рядом с датой время отображалось и даже в ячейке A1 тоже но в текстбоксе пропадало, еще было что дата со временем в ячейке как текст появлялась (после выбора ячейки, наведении курсора и нажатия enter все только исправлялось), короче запутался уже.. че то где то я пропускаю

[doober]

Возможно так

[VictorM]

Или так. Сам принцип.
данные расположите так как Вам нужно

[А)-(дрей]

Спасибо вам огромное обоим, точно надо было SelectedDate = CStr(DateValue(dt_1)) на SelectedDate = CStr(dt_1) заменить... убрал дополнительно чекбокс с подключением выбора времени (так как оно то мне всегда и нужно), поменял умолчания на отображение времени - все получил то что мне нужно, еще раз вам спасибо!

[А)-(дрей]

Выкладываю то что у меня получилось, все работает отлично - остается только одна проблема. В ячейку А1 заполняется значение даты со временем, но excel не воспринимает его как дату. Пробовал придавать ячейке формат "dd/mm/yy h:mm", но он все равно не воспринимает. Только после ручного ввода курсора в ячейку и нажатия Enter формируется дата со временем. Без таких манипуляций все мои формулы, ссылающиеся на эту ячейку не считаются - подскажите как вылечить!?

[VictorM]

Выкладываю то что у меня получилось, все работает отлично

Что-то у меня оно вообще не работает.
т.е. в А1 не вводятся значения.