vba - 我尝试在 VBA 中编写代码以将此公式插入单元格时一直失败

Question

公式:

=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 中。

Answer 1

选择包含公式的单元格并写入以下内容:

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"")"