创建en excel公式并将此公式传递给模块f2（）的函数出错

在这里，我希望函数f1（）创建en excel formula，并将此公式传递给f2（），而不返回f1（），f2（）将函数替换为公式，这样做时，我会得到编译错误：第

子f2行应为（可选endAll为Boolean=False，jR1为Long，jC1为Long，jGetFormula为String）

---

将可选参数移动到声明末尾

Sub f2(jR1 As Long, jC1 As Long, jGetFormula As String, Optional endAll As Boolean = False)

---

我在下面几行中更改了，现在错误消失了，但现在在单元格中我得到了#REF error，我正在写入=f1（）子f2（jR1为Long，jC1为Long，jGetFormula为String，可选的endAll调用f2（jR1，jC1，jGetFormula，True）try

单元格（jR1，jC1）=Evaluate（jGetFormula）

更改为

单元格（jR1，jC1）=jGetFormula

对不起，我忘记了

单元格（jR1，jC1）。Formula=jGetFormula

我正在键入=f1（）在单元格A3和我的单元格A1=2和A2=148中，我的单元格A3应该有公式=A1*10^3*A2/148和值2000。代码仍然在单元格A3中生成#REF！。有什么建议吗？首先不要使用f1作为函数名，其次是希望得到什么结果？如果您填写任何单元格，则生成过程并在表单上放置按钮（例如）至于me函数必须返回同一单元格中的值，通常函数在焦点松动后重新计算。。。。

Sub f2(jR1 As Long, jC1 As Long, jGetFormula As String, Optional endAll As Boolean = False)