it-swarm.com.ru

Как ввести формулу в ячейку с помощью VBA?

Я пытаюсь ввести формулу в ячейку, которая содержит переменную с именем var1a? Код, который я имею:

    Worksheets("EmployeeCosts").Range("B" & var1a).Formula = ""SUM(H5:H""& var1a)

Но он входит в лист Excel с ошибкой.

7
user2718355

Вы не правильно строите свою формулу.

Worksheets("EmployeeCosts").Range("B" & var1a).Formula =  "=SUM(H5:H" & var1a & ")"

Это делается так же, как следующие строки:

Dim myFormula As String
myFormula = "=SUM(H5:H"
myFormula = myFormula & var1a
myformula = myformula & ")"

это то, что вы пытаетесь сделать.

Кроме того, вы хотите иметь код = в начале формы.

9
enderland

Я бы сделал это так:

Worksheets("EmployeeCosts").Range("B" & var1a).Formula = _
Replace("=SUM(H5:H{SOME_VAR})","{SOME_VAR}",var1a)

Если у вас есть более сложная формула, это будет удобно

0
Đức Thanh Nguyễn