自定义函数的插入方式引起的错误

碧水蓝天

Function apressure(t, x)
    Application.Volatile True

    Dim tt As Double
    Dim c1 As Double
    Dim c2 As Double
    Dim c3 As Double
    Dim c4 As Double
    Dim c5 As Double
    Dim c6 As Double
    Dim c7 As Double
    Dim a As Double

    tt = 273.15 + t
    c1 = -5674.5359
    c2 = 6.3925247
    c3 = -0.009677843
    c4 = 0.00000062215701
    c5 = 2.0747825E-09
    c6 = -9.484024E-13
    c7 = 4.1635019
    a = c1 / tt + c2 + c3 * tt + c4 * tt ^ 2 + c5 * tt ^ 3 + c6 * tt ^ 4 + c7 * Application.Ln(tt)
    apressure = Exp(a) * x

End Function

如上所示，直接定义了一个自定义函数，在插入过程中出现了两种情况。
第一种：我直接在单元格输入=apressure(E3,F3)，加引用的单元格出现#NAME错误。
第二种：选择用插入函数的方式，在单元格内调用自定义函数 =Book2.xlsm!apressure.apressure(E3,F3)，这个方式可以正确的显示计算结果。

请教为什么第一种方式不可以显示正确结果？

是否有一个方法可以将自定义函数像excel内置函数一样直接调用的方法？

liulang0808

自定义函数，放到模块里，然后引用看看是否能满足需求
最好不要放到工作表对应的代码区域

碧水蓝天

liulang0808 发表于 2018-9-26 09:54
自定义函数，放到模块里，然后引用看看是否能满足需求
最好不要放到工作表对应的代码区域

这个代码都是放在模块区域的，不知道为什么两种方式的结果不一样。

wj2368

应该没有问题啊

liulang0808

碧水蓝天 发表于 2018-9-26 09:57
这个代码都是放在模块区域的，不知道为什么两种方式的结果不一样。

放到模块里应该没有问题的
楼主对模块做什么限制了吗？
建议上传附件吧

小fisher

是不是跨工作簿调用了？

碧水蓝天

liulang0808 发表于 2018-9-26 10:34
放到模块里应该没有问题的
楼主对模块做什么限制了吗？
建议上传附件吧

饱和水蒸气分压力.zip (15.42 KB, 下载次数: 4)

2018-9-26 10:56 上传

点击文件名下载附件
案例文件

上传了附件，请指教

liulang0808

碧水蓝天 发表于 2018-9-26 10:57
上传了附件，请指教

楼主修改下模块名，或者函数名看看，让二者不一致

碧水蓝天

liulang0808 发表于 2018-9-26 11:00
楼主修改下模块名，或者函数名看看，让二者不一致

非常感谢，已经解决了，好像是这个模块名称与函数名称一样的问题引起的。