Какой формат имеет формула ячейки в VBA

[gadspider]

Вообщем хочу присвоить ячейке формулу прогрммно, т.е. с плавающими параметрами i И j. Однако код не работает, где ошибся?

Sheet.Range("A2").Formula="=Наклон( Sheet.Range(Sheet.Cells(i, j), Sheet.Cells(i, j));Sheet.Range(Sheet.Cells(i, j), Sheet.Cells(i, j)))"

[EducatedFool]

Попробуйте так:

Sub test()
    i = 5: j = 7
    Dim Sheet As Worksheet: Set Sheet = ActiveSheet
    Sheet.Range("A2").Formula = "=Наклон(" & Cells(i, j).Address & "," & Cells(i + 3, j - 1).Address & ")"
End Sub

Результат:

  Ячейка: A2      Формула  (стиль A1):   =Наклон($G$5;$F$8)
                  Формула  (стиль R1C1): =Наклон(R5C7;R8C6)

PS: Не увидев Вашей функции Наклон, сложно сказать, как должна выглядеть формула...

[gadspider]

функция наклон это стандартная функция Эксель.

Возвращает наклон линии линейной регрессии для точек данных в аргументах известные_значения_y и известные_значения_x. Наклон определяется как частное от деления расстояния по вертикали на расстояние по горизонтали между двумя любыми точками прямой, то есть наклон — это скорость изменения значений вдоль прямой.

Синтаксис

НАКЛОН(известные_значения_y;известн ые_значения_x)

Известные_значения_y — массив или интервал ячеек, содержащих числовые зависимые точки данных.

Известные_значения_x — множество независимых точек данных.

[EducatedFool]

функция наклон это стандартная функция Эксель.

Не знал Просто из-за неточности в коде мой Excel не распознал сразу эту функцию...

Попробуйте такой вариант:

Sub test()
    i = 5: j = 7
    Dim Sheet As Worksheet: Set Sheet = ActiveSheet
    Sheet.Range("A2").FormulaLocal = "=Наклон(" & Cells(i, j).Address & ";" & Cells(i + 3, j - 1).Address(0, 1) & ")"
    Sheet.Range("A3").FormulaLocal = "=Наклон(" & Cells(i, j).Resize(3, 2).Address(0, 0) & ";" & Cells(i + 3, j - 1).Resize(3, 4).Address & ")"
    Sheet.Range("A4").FormulaLocal = "=Наклон(" & Range(Cells(i, j), Cells(i + 5, j - 1)).Address & ";" & Cells(i + 3, j - 1).Resize(2).Address(1, 0) & ")"
End Sub

Результат:

  Ячейка: A2      Формула  (стиль A1):   =НАКЛОН($G$5;$F8)
                  Формула  (стиль R1C1): =НАКЛОН(R5C7;R[6]C6)

  Ячейка: A3      Формула  (стиль A1):   =НАКЛОН(G5:H7;$F$8:$I$10)
                  Формула  (стиль R1C1): =НАКЛОН(R[2]C[6]:R[4]C[7];R8C6:R10C9)

  Ячейка: A4      Формула  (стиль A1):   =НАКЛОН($F$5:$G$10;F$8:F$9)
                  Формула  (стиль R1C1): =НАКЛОН(R5C6:R10C7;R8C[5]:R9C[5])

[gadspider]

спасибо большое... то что надо