Как склонять месяцы в excel'e? (оч. нужно)

[dzzirt]

Как склонять месяцы в excel'e?

набиваю дату, например - 22.07.2006, правой кн. мыши --- формат ячеек ---- дата ---- тип: 14 Март, 1999 --- пишет 22 Июнь, 2006.
Мне нужно чтобы дата выглядела так: 22 июня 2006 г.
Как это сделать?

Вариант "вручную" не подходит

 

[dervish]

Public Function МЕСЯЦРОД(n As Byte) As String

If n = 1 Then
МЕСЯЦРОД = "января"
ElseIf n = 2 Then
МЕСЯЦРОД = "февраля"
ElseIf n = 3 Then
МЕСЯЦРОД = "марта"
ElseIf n = 4 Then
МЕСЯЦРОД = "апреля"
ElseIf n = 5 Then
МЕСЯЦРОД = "мая"
ElseIf n = 6 Then
МЕСЯЦРОД = "июня"
ElseIf n = 7 Then
МЕСЯЦРОД = "июля"
ElseIf n = 8 Then
МЕСЯЦРОД = "августа"
ElseIf n = 9 Then
МЕСЯЦРОД = "сентября"
ElseIf n = 10 Then
МЕСЯЦРОД = "октября"
ElseIf n = 11 Then
МЕСЯЦРОД = "ноября"
ElseIf n = 12 Then
МЕСЯЦРОД = "декабря"
Else
МЕСЯЦРОД = "а х.з."
End If

End Function

 

[dzzirt]

спасибо большое!!! Только я непонял как этот скрипт использовать (я далеко не профи в программировании), я зашёл в екселевский ВБ и вставил этот код, но не знаю какими должны быть мои последующие действия для достижения желаемого результата.

 

[a.n.onim]

А дальше на листе можно ввести формулу =МЕСЯЦРОД(1), она выведет января.

 

[dzzirt]

У меня почему-то не работает