excel - 我无休止地尝试在VBA中编写代码以将该公式插入单元格中

公式：

=IFERROR(IF(OR(E10=0,D9=0),0,NETWORKDAYS(D9,E9))," ")

我在VBA中尝试过的示例：

Sub inputWorkdays()

Range("h9").Formula =  "=IFERROR(IF(OR(E9=0,D9=0),0,NETWORKDAYS(D9,E9)),""Yes"")"


 End Sub

我正在尝试从上方将公式添加到单元格H9中。

最佳答案

选择具有公式的单元格并编写以下内容：

Sub TestMe
   debug.print Selection.Formula
   debug.print Selection.FormulaR1C1
End sub

在您的情况下，它将给出：

=IFERROR(IF(OR(E10=0,D9=0),0,NETWORKDAYS(D9,E9)),"YES")
=IFERROR(IF(OR(R[-4]C[-1]=0,R[-5]C[-2]=0),0,NETWORKDAYS(R[-5]C[-2],R[-5]C[-1])),"YES")

拿第一个，像这样使用它：

Range("h9").Formula = "=IFERROR(IF(OR(E10=0,D9=0),0,NETWORKDAYS(D9,E9)),""YES"")"