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

[Lyubov1990]

Здравствуйте, господа! Помогите пожалуйста, мне нужно чтобы пользователь вводил дату на моей форме с помощью календарика! Если это можно организовать, то подскажите как?

[EducatedFool]

В прикреплённом файле нажмите на зелёную кнопку
В появившейся форме нажмите на кнопку возле поля для даты.

(добавлено)
У меня на сайте выложен ещё один пример такого же календарика на форме: http://excelvba.ru/Fill_Invoice
(см. вложение к статье)
Кроме того, на форме присутствуют выпадающие списки, и другие полезные примеры того, как облегчить и усовершенствовать ввод данных через форму на лист Excel)
Например, для полей "серия" и "номер" паспорта реализована проверка вводимых символов - допускается ввод только заданного количества цифр

[Lyubov1990]

Спасибо огромное! Вы мне очень помогли!

[ruavia3]

Немного отойду от темы, а можно сделать так, чтобы данные не добавлялись, а заменялись в одной ячейке?

[EducatedFool]

При нажатии кнопки на форме срабатывает код:

Private Sub CommandButton1_Click()
    If Me.FIO = "" Then MsgBox "Не введена фамилия", vbCritical, "Ошибка": Exit Sub
    If Me.Date1 = "" Then MsgBox "Не введена дата рождения", vbCritical, "Ошибка": Exit Sub
    Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)

    ActiveSheet.Unprotect Пароль    ' снимаем защиту
    cell = cell.Row - 1: cell.Next = Me.FIO: cell.Next.Next = Me.Date1
    ActiveSheet.Protect Пароль    ' снова ставим защиту
End Sub

Замените в нем Set cell = [a65000].End(xlUp).Offset(1)
на Set cell = [a65000].End(xlUp) - и данные всегда будут заноситься в последнюю строку

А если замените на Set cell = [d5], то данные попадут в ячейки d5 : d7

[SAS888]

А почему в форме не использовать стандартный элемент управления DTPicker?

[EducatedFool]

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

А почему в форме не использовать стандартный элемент управления DTPicker?

Хватит с меня этих Picker-ов.
Когда-то пользовался ими, но при переносе файла на другой комп приходится таскать вместе с файлом бибилиотеку Common Controls (или какую-то другую, не помню уже), а потом ещё и регистрировать её.

Раньше я так и делал (свой файл сопровождал инсталлятором), пока не встретил эту реализацию календаря от Avsha.
Теперь пользуюсь только ей.

[SAS888]

Вообще-то, я именно потому и спросил, что зачем "таскать" в файле форму, если подобная уже существует в Excel. Необходимые библиотеки, начиная с версии 2003 инсаллируются при обычной установке Office (если, конечно, специально не отключать). Но, как говорится, Вам виднее.

[EducatedFool]

Необходимые библиотеки, начиная с версии 2003 инсаллируются при обычной установке Office (если, конечно, специально не отключать). Но, как говорится, Вам виднее.

Вот этого не знал...
Я использовал этот компонент во времена всеобщего использования Office 2002, когда отсутствие этого компонента при стандартной установке Office было нормой.

Похоже, действительно пора переходить на DTPicker...

[Punker1]

В стандартной установке ни в 2003 ни в 2007 календаря нет, надо дополнительно в опциях установки Access ставить галку на элементе управления календарь, сам с этой проблемой столкнулся.