在自定义函数中调用公式

Question

我想在Excel中为公式创建一个包装器，

我们这样说：

Function NewToday()
     NewToday = Today()
End Function

然而，当我调用它时，我得到一个'Sub或Function not defined'。

基本上我想用VBA代码中提供的参数调用普通的excel函数

Answer 1

today在VBA命名空间中不存在，因此出错。但是，您可以使用Evaluate检索任何Excel函数，其行为类似于Excel中的公式输入。

Function NewToday() As Date
     NewToday = Evaluate("today()")
End Function

但是，您需要手动将单元格格式化为Date

Answer 2

使用Date代替：

Function NewToday() As Date
    NewToday = Date
End Function