Формула разности двух ячеек по строки i в VBA

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Формула разности двух ячеек по строки i в VBA (Макросы/Sub)

Spirtuoz

Дата: Суббота, 27.09.2025, 22:38 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Добрый день.

Написал такой вот макрос, который добавляет строки после определенного значения "01.12.2025", а потом заполняет эти строки необходимыми значениями. Так вот осталось сделать последний шаг - надо написать формулу разности между двумя ячейками в заранее определенных столбцах по строкам i (см ниже). Никак не могу понять как это сделать... Буду благодарен за помощь.

[vba]

Код

Sub delemty()
Dim i As Long, cod As String

For i = 14 To 390
If Cells(i, 2) = "01.12.2025" Then
cod = Cells(i, 1)
Rows(i + 1).Insert
Cells(i + 1, 2) = "12/01/2026"
Cells(i + 1, 2).NumberFormat = "mmm-yy"
Cells(i + 1, 1).Value = cod
[color=red]Cells(i + 1, 17).FormulaR1C1 = Тут нужна запись типо "=N16-O16", только вместо 16 была строка i+1. То есть макрос должен именно ставить формулу, т.к. создана новая строка.[/color]

End If

Next
End Sub

[/vba]