Добавить формулу ячейки в Excel через VBA

Question

Я не эксперт по Excel или VBA, но я хочу вставить эту текущую формулу Excel в ячейки с помощью VBA.

Текущая формула Excel:

=IF(OR(ISNUM(D570)=FALSE;ISNUM(D573)=FALSE);"";IF(C573="Total";D573-D570;""))

VBA формула:

 ActiveSheet.Range("a" & ActiveSheet.Rows.Count).End(xlUp).Offset(2, 12).Value = "=IF(OR(ISNUM(R[-3]C[-9])=FALSE;ISNUM(R[0]C[-9])=FALSE);'';IF(R[0]C[-10]='Total';R[0]C[-9]-R[-3]C[-9];''))"

Это не работает ... Кто-то может мне помочь, пожалуйста?

Answer 1

Попробуйте использовать .formula = вместо .value = в коде VBA.

Установка .value ячейки просто копирует в любое указанное вами значение. В этом случае ваша формула просто преобразуется в строковое значение.

Используя свойство .formula, вы фактически указываете формулу, которая используется для вычисления значения, которое вы и ищете.

Answer 2

Могу ли я сначала предложить упрощение вашей формулы, начиная с:

=IF(OR(ISNUM(D570)=FALSE;ISNUM(D573)=FALSE);"";IF(C573="Total";D573-D570;""))

... для ...

=IF(AND(C573="Total"; ISNUM(D570); ISNUM(D573)); D573-D570; "")

Затем я бы установил ячейку (активную ячейку в приведенном ниже примере) для использования этой формулы с использованием кода VBA:

ActiveCell.Formula = "=IF(...)"