mimin0 (Все сообщения пользователя)

Как правильно заполнить ActiveCell.FormulaR1C1, Как задать чтобы в формуле СУММЫ считало от определённой ячейки до R[-1]C

mimin0 Пользователь Сообщений: 2 Регистрация: 05.10.2017	# 05.10.2017 15:20:48 Огромное спасибо!
	Перейти

Как правильно заполнить ActiveCell.FormulaR1C1, Как задать чтобы в формуле СУММЫ считало от определённой ячейки до R[-1]C

MiMiN0

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

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

05.10.2017 13:45:59

Код

For x = 8 To 100 Step 1
    If IsEmpty(Cells(x, 1)) = 0 Then
    GoTo finish2
    Else
    Cells(x, 4).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 4):R[-1]C)"
    Cells(x, 5).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 5):R[-1]C)"
    Cells(x, 6).Select
    ActiveCell.FormulaR1C1 = "=SUM(Cells(8, 6):R[-1]C)"
    End If
    GoTo finish1
finish2:
Next x
finish1:
   
End Sub

Изменено: MiMiN0 - 05.10.2017 14:02:10 (Исправил ошибки оформления)

Перейти