Макрос, накоплений

[valerij]

Как, заменить на макрос, желтым?

[EducatedFool]

Sub test()
    For i = 1 To 6
        Cells(5 * i + 1, 1).FormulaR1C1 = "=r[-1]c+r[-5]c"
    Next
End Sub

[valerij]

Как всегда, забыл добавить, извиняюсь, извиняюсь
Цикл должен начинаться с нуля.
А как мона без формул?

[IgorGO]

Да, Валера, совершенно не детский алгоритм... ничего, что цикл с 3-х начнется?

Sub zxc()
Cells(11, 1) = Cells(5, 1) + Cells(10, 1)
For d = 3 To 21
Cells(5 * d + 1, 1) = Cells(5 * d - 4, 1) + Cells(5 * d, 1)
Next
End Sub

[valerij]

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

что цикл с 3-х начнется?

Нужно с нуля, ибо у меня уже есть цикл он с нуля

For dat = 0 To 30 '31 день месяца

и менять его нельзя.

Sub zxc()
Cells(11, 1) = Cells(5, 1) + Cells(10, 1)
For d = 0 To 21
Cells(5 * (d + 3) + 1, 1) = Cells(5 * (d + 3) - 4, 1) + Cells(5 * (d + 3), 1)
Next
End Sub

Собственно я хотел проверить(мучили сомнения), прав ли я, у меня конечно этот алгоритм решен, даже проще, чем у Игорей, я просто пропускаю первый день месяца

If dat <> 0 Then 'Пропуск первого числа, месяца
Cells(dat * 54 + 45, 10) = Cells(dat * 54 + 44, 10) + _
                Cells(dat * 54 - 9, 10) 'Накопление доставки

[IgorGO]

однако...

Sub zxc()
  For d = 0 To 31
    if d>2 then Cells(5 * d + 1, 1) = Cells(5 * d - 4, 1) + Cells(5 * d, 1)
    if d=2 then Cells(11, 1) = Cells(5, 1) + Cells(10, 1)
  Next
End Sub

[valerij]

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

однако...

однако, упростим.....

Sub zxc()
Cells(11, 1) = Cells(5, 1) + Cells(10, 1)
  For d = 0 To 31
    If d > 2 Then Cells(5 * d + 1, 1) = Cells(5 * d - 4, 1) + Cells(5 * d, 1)
  Next
End Sub