如何在具有函数的单元格中编写公式？

Question

我想在具有函数的特定单元格中编写公式。

我写过这个，但它不起作用，我不明白为什么：

Function formulaCell(x, y)

ActiveSheet.Cells(x, y).FormulaR1C1 = "=IF(R[-1]C=0,"""",R[-1]C)"

End Function

Excel返回#VALEUR

提前致谢

Answer 1

如果未从单元格调用该函数，您的函数将正常工作。

例如，这里是来自 Sub：

Sub MAIN()
    Dim msg As String
    msg = formulaCell(3, 3)
    MsgBox msg
End Sub

Function formulaCell(x As Long, y As Long) As String
    ActiveSheet.Cells(x, y).FormulaR1C1 = "=IF(R[-1]C=0,"""",R[-1]C)"
    formulaCell = "Mission Accomplished!!"
End Function

单元格中的 UDF（）只能向该单元格返回一个值。 Sub 中的 UDF（）可以做得更多！