как вставить формулу в vba

[Ilya_L]

У меня такая проблема, никогда не пользовался формулами в vba, не могу вставить..
Нужно чтобы диапазон ячеек ("2,7:100,7") имел формулу суммы трех ячеек ("2,4:2,6") ("3,4:3,6") и т.д.

[SAS888]

Вам нужно с помощью VBA вставить формулу в ячейку? Или просто посчитать и в ячейку поместить результат?

[Ilya_L]

вставляется таблица с данными с n строками...в 4,5 и 6 столбцах находятся числа..в этот момент 7 столбец пустой, и в него нужно вывести сумму этих строк по нажатию кнопки или вызову процедуры.. можно и формулой, и просто посчитать, чтобы посмотреть оба варианта..

[alex77755]

А простой вариант в ячейке "G2" формула "=СУММ(D2:F2)"
не подходит? Вставить формулу и "растянуть" на весь диапазон?

[Ilya_L]

мне нужно через vba..

[SAS888]

Вариант1 - с формулами. Вариант2 - без них.

Sub Вариант1()
    Application.ScreenUpdating = False
    [G2].FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
    [G2].AutoFill Destination:=[G2:G100]
End Sub

Sub Вариант2()
    Dim i As Integer, x As Range, a(): Application.ScreenUpdating = False
    Set x = [D2:G100]: a = x.Value
    For i = LBound(a, 1) To UBound(a, 1): a(i, 4) = a(i, 1) + a(i, 2) + a(i, 3): Next
    x.Value = a
End Sub

[Ilya_L]

спасибо...