Написать дату в VBA

Ибрагим Белхороев Пользователь Сообщений: 467 Регистрация: 15.02.2021	#1 04.03.2021 11:27:42 Как написать в VBA формат этой даты ="№ 5 от "&ТЕКСТ(КОНМЕСЯЦА(ТДАТА();0);"[$-FC19]ДД ММММ")&" 20 "&ТЕКСТ(КОНМЕСЯЦА(ТДАТА();0);"[$-FC19]ГГ \г.") ?

Marat Ta Пользователь Сообщений: 831 Регистрация: 11.02.2021	#2 04.03.2021 11:36:47 Ибрагим Белхороев, файл примера?

Ибрагим Белхороев

Пользователь

Сообщений: 467 Регистрация: 15.02.2021

04.03.2021 11:42:49

Marat Ta, в ячейку A1 через VBA нужно написать вот этот формат даты ="№ 5 от "&ТЕКСТ(КОНМЕСЯЦА(ТДАТА();0);"[$-FC19]ДД ММММ")&" 20 "&ТЕКСТ(КОНМЕСЯЦА(ТДАТА();0);"[$-FC19]ГГ \г.")

Прикрепленные файлы

Книга5.xlsx (8.26 КБ)

Изменено: Ибрагим Белхороев - 04.03.2021 11:43:03

МатросНаЗебре

Пользователь

Сообщений: 6476 Регистрация: 05.02.2014

04.03.2021 11:53:31

Код
With Range("A1") .FormulaR1C1 = "=""№ 5 от ""&TEXT(EOMONTH(NOW(),0),""[$-FC19]ДД ММММ"")&"" 20 ""&TEXT(EOMONTH(NOW(),0),""[$-FC19]ГГ \г."")" .Calculate .Value = .Value End With

aequit

Пользователь

Сообщений: 209 Регистрация: 13.01.2020

04.03.2021 14:30:55

Код
Range("A1") = "№ 5 от " & Format(WorksheetFunction.EoMonth(Now(), 0), "[$-FC19]DD MMMM YYYY г.")

P.s. Если год нужен с пробелом:

Код
Range("A1") = "№ 5 от " & Format(WorksheetFunction.EoMonth(Now(), 0), "[$-FC19]DD MMMM 20 YY г.")

Изменено: aequit - 04.03.2021 14:36:14