Дата в TextBox

[and150382]

Код вставляет текущюю дату в текстбокс на форме

Private Sub myColumn17_Change()
myColumn17.Value = Format(Now, "dd.mm.yyyy")
End Sub

А как сделать чтобы дату можно было ставить любую, но в формате dd.mm.yyyy. Чтобы точки сами ставились.

[IgorGO]

Вы не потрудитесь изьясняться доходчивее?
что за загадочная констукция?
не успел пользователь что-то поправить в myColumn17 как тут же все его усилия насмарку и в myColumn17 попадает Format(Now, "dd.mm.yyyy")
как раз в том формате, что вы хотите и точки сами расставились только при этом совершенно не важно что пытался ввести пользователь.

[and150382]

Я не силен в vba пытался сделать чтобы можно было ввести дату без точек,а точки сами бы расставились. Но получилось только то что пользователь начинает вводить данные,а тут же встает текущая дата( Now)

[IgorGO]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If IsDate(TextBox1.Value) Then Exit Sub
  If Len(TextBox1.Value) <> 8 Then
    MsgBox "Либо дата ДД.ММ.ГГГГ либо 8 цифр ДДММГГГГ": Cancel = True
  Else
    TextBox1.Value = Left(TextBox1.Value, 2) & "." & Mid(TextBox1.Value, 3, 2) & "." & Right(TextBox1.Value, 4)
  End If
End Sub

назовите поле ввода даты на своей форме таким оригинальным именем TextBox1, этот код скопируйте в модуль формы.
Срабатывать процедура должна не по вводу очередного символа (при изменении значения в форме) а при выходе из нее. приведенный код не выпустит из поля редактирования пока не будет введена дата или просто 8 знаков.
это Вам заготовка для экспериментов.

[and150382]

Спасибо большое, буду пробовать