Leojse
Дата: Суббота, 06.06.2020, 16:32 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация:
1
±
Замечаний:
0% ±
2010/2013
Добрый день, уважаемые форумчане! Помогите, пожалуйста, протянуть формулу. Есть 2 столбца (A, C). В столбец С ввожу формулу и программно протягиваю ее. Формула следующего содержания: "Текст + значение из столбца А+сегодняшний месяц-1". Второй компонент формулы должен меняться, но не меняется - по всем ячейкам столбца C возвращает значение ячейки A2. Подскажите, пожалуйста, где я ошибаюсь?
Sub vvv()
'Протягивание формулы
Range("A2" , Cells(Rows.Count, "A" ).End(xlUp)).Offset(, 2 ).Formula = _
"Отгрузка " & Range("A2" ) & " за " _
& LCase (Format (DateSerial (Year (Now ), Month (Now ) - 1 , 1 ), "[$-ru-RU-x-nomlower]mmmm yyyy;@" )) & "г."
End Sub
Добрый день, уважаемые форумчане! Помогите, пожалуйста, протянуть формулу. Есть 2 столбца (A, C). В столбец С ввожу формулу и программно протягиваю ее. Формула следующего содержания: "Текст + значение из столбца А+сегодняшний месяц-1". Второй компонент формулы должен меняться, но не меняется - по всем ячейкам столбца C возвращает значение ячейки A2. Подскажите, пожалуйста, где я ошибаюсь?
Sub vvv()
'Протягивание формулы
Range("A2" , Cells(Rows.Count, "A" ).End(xlUp)).Offset(, 2 ).Formula = _
"Отгрузка " & Range("A2" ) & " за " _
& LCase (Format (DateSerial (Year (Now ), Month (Now ) - 1 , 1 ), "[$-ru-RU-x-nomlower]mmmm yyyy;@" )) & "г."
End Sub
Leojse
Сообщение отредактировал Leojse - Суббота, 06.06.2020, 16:35
Ответить
Сообщение Добрый день, уважаемые форумчане! Помогите, пожалуйста, протянуть формулу. Есть 2 столбца (A, C). В столбец С ввожу формулу и программно протягиваю ее. Формула следующего содержания: "Текст + значение из столбца А+сегодняшний месяц-1". Второй компонент формулы должен меняться, но не меняется - по всем ячейкам столбца C возвращает значение ячейки A2. Подскажите, пожалуйста, где я ошибаюсь? [vba]
Sub vvv() 'Протягивание формулы Range("A2", Cells(Rows.Count , "A").End(xlUp )).Offset(, 2).Formula = _ "Отгрузка " & Range("A2") & " за " _ & LCase(Format(DateSerial(Year(Now ), Month(Now ) - 1, 1), "[$-ru-RU-x-nomlower]mmmm yyyy;@")) & "г."End Sub
[/vba] Автор - Leojse Дата добавления - 06.06.2020 в 16:32
nilem
Дата: Суббота, 06.06.2020, 18:05 |
Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
Leojse , привет попробуйте так:
Sub vvv2()
Range("C2:C" & Cells(Rows.Count, 1 ).End(xlUp).Row).FormulaR1C1 = _
"= " "Отгрузка " "&RC[-2]&" " за " "&TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-1,1)," "МММ ГГГГ" ")&" "г." ""
End Sub
Leojse , привет попробуйте так:
Sub vvv2()
Range("C2:C" & Cells(Rows.Count, 1 ).End(xlUp).Row).FormulaR1C1 = _
"= " "Отгрузка " "&RC[-2]&" " за " "&TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-1,1)," "МММ ГГГГ" ")&" "г." ""
End Sub
nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение Leojse , привет попробуйте так: [vba]
Sub vvv2 ()Range("C2:C" & Cells(Rows.Count ; 1).End(xlUp ).Row ).FormulaR1C1 = _ "= ""Отгрузка ""&RC[-2]&"" за ""&ТЕКСТ(ДАТА(ГОД(СЕГОДНЯ()),МЕСЯЦ(СЕГОДНЯ())-1,1),""МММ ГГГГ"")&""г."""End Sub
[/vba]Автор - nilem Дата добавления - 06.06.2020 в 18:05
Leojse
Дата: Суббота, 06.06.2020, 18:58 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация:
1
±
Замечаний:
0% ±
2010/2013
nilem , Спасибо! Теперь работает.
nilem , Спасибо! Теперь работает.Leojse
Ответить
Сообщение nilem , Спасибо! Теперь работает.Автор - Leojse Дата добавления - 06.06.2020 в 18:58