автоматическая вставка даты в нужном падеже

[mistx]

Здравствуйте!
Необходимо вставить дату в диапазон ячеек E2:En в формате
05 ноября 2009г.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
With Target(1, 2)
.Value = Format(Now, "Long Date")
End With
End If
If IsEmpty(Target) Then
Target(1, 2) = Empty
End If
End Sub

при выполнении данного кода получаю 5 Ноябрь 2009 г.

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
        Target(1, 2).Value = Format(Now, "DD MMMM YYYY г.")
        If IsEmpty(Target) Then Target(1, 2) = Empty
    End If
End Sub

[mistx]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
        Target(1, 2).Value = Format(Now, "DD MMMM YYYY г.")
        If IsEmpty(Target) Then Target(1, 2) = Empty
    End If
End Sub

благодарю.

[ХочуЗнать]

Всем большой привет!
Ради Бога, извените меня за непрошенное вторжение! Но, все таки, как вставить месяц словом в падеже, с маленькой буквы да еще и на украинском языке. Например так: 05 листопада 2009 р.
Спасибо!

[EducatedFool]

Сообщение от ХочуЗнать

как вставить месяц словом в падеже, с маленькой буквы да еще и на украинском языке. Например так: 05 листопада 2009 р.

А если воспользоваться макрорекордером, и отформатировать ячейку?

Sub Макрос1()
    Selection.NumberFormat = "[$-FC22]d mmmm yyyy"" р."";@"
End Sub

Sub Макрос2()
    [a1] = Now
    [a1].NumberFormat = "[$-FC22]d mmmm yyyy"" р."";@"
End Sub

[ХочуЗнать]

Еще раз спасибо!
Но, На листе Эксель работает, а вот в коде ВБА почемуто не хочет. Коды привожу ниже
Private Sub Calendar1_Activate()
If Not IsEmpty(ActiveCell.Value) And IsDate(ActiveCell.Value) Then
Me.Calendar1.Value = ActiveCell.Value
Else
Me.Calendar1.Value = Date
End If
Me.Caption = "Сьогодні - " & Date & " року"
End Sub

Private Sub Calendar1_Click()
End Sub
Application.EnableEvents = False
ActiveCell = Me.frm_Calendar.Value
ActiveCell.NumberFormat = "dd.mm.yyyy р."
Unload Me
Application.EnableEvents = True
End Sub

[EducatedFool]

А что, нельзя было попробовать так:

Private Sub Calendar1_Activate()
    If Not IsEmpty(ActiveCell.Value) And IsDate(ActiveCell.Value) Then
        Me.Calendar1.Value = ActiveCell.Value
    Else
        Me.Calendar1.Value = Date
    End If
    Me.Caption = "Сьогодні - " & Date & " року"
End Sub

Private Sub Calendar1_Click()
    Application.EnableEvents = False
    ActiveCell = Me.frm_Calendar.Value
    ActiveCell.NumberFormat = "[$-FC22]d mmmm yyyy"" р."";@"
    Unload Me
    Application.EnableEvents = True
End Sub

[ХочуЗнать]

В том и дело, что пробовал, но ничего не получается. Пишет 5 Листопад 2009 р.
А нужно мне это для календарика, который нашел на Планета РУ и хочу приспособить на свою форму. Этот файл с календариком прикрепляю.А саму дату вы можете найти в шапке выпадающего календарика.

[doober]

Надо свой формат создать.
Через часик ,что нибудь придумаю

[IgorGO]

Надо свой формат создать.

сильно сомневаюсь. "[$-FC22]d mmmm yyyy"" р."";@"
у меня это давно и успешно работает: назви місяців українською мовою у родовому відмінку (починаються з маленької літери)