Диалоговое окно с 2 ячейками

[mephist]

Доброго времени суток!
Мне нужно, чтобы при открытии книги выскакивало окно с 2 ячейками для ввода. В эти ячейки подразумевается ввод двух дат.
Подскажите, как организовать такое окно? как организовать форматность даты(например, чтобы в окошечках было ..-..-....)???

[EducatedFool]

Так, что ли, надо?



Если так, то вот пример:



Формат даты можно установить в строке Me.Date2 = Get_Date(Me.Date2, Now)

К примеру, можно попробовать такой вариант:

Private Sub B_Дата1_Change_Click()
    Me.Date1 = Format(Get_Date(Me.Date1, Now), "DD-MM-YYYY")
End Sub

Private Sub B_Дата2_Change_Click()
    Me.Date2 = Format(Get_Date(Me.Date2, Now), "DD-MM-YYYY")
End Sub

Если при запуске формы даты должны быть уже введены в поля, используйте что-то вроде этого:

Private Sub UserForm_Initialize()
    Me.Date1 = Format(Now - 2, "DD-MM-YYYY")
    Me.Date2 = Format(Now, "DD-MM-YYYY")
End Sub

Ещё один пример (с нужным Вам форматированием дат)