如何将VBAmacros添加到公式栏中的标准函数列表中？

我在Sheet1中定义了自己的macros，例如：

Function MyPower(rad As Double) As Double Dim res As Double If rad = 0 Then res = 0 Else res = 0.01 * Exp(1.7 * Log(rad)) Power = res End If End Function 

我希望能够像标准函数之一那样通过一个公式栏调用它，例如fx = MyPower（“A1”），就像fx = Cos（“A1”）一样。

我需要做什么来将这个macros添加到配方栏？ 我相信这很简单，但默认情况下不起作用。

Answer 1

简单！ 在模块中创build您的function，而不是一个表macros。

您还误放了错误的返回值…

 Function MyPower(rad As Double) As Double Dim res As Double If rad = 0 Then res = 0 Else res = 0.01 * Exp(1.7 * Log(rad)) End If MyPower = res ' <-- "MyPower": Move it here End Function