Question

Excel 中用visual basic 编辑函数问题

我写了个函数，在表格中应用的时候总是提示“赋值号左边的函数调用必须返回变体或调用对象”，请问哪里错了？
代码如下：
Function Pwv_NH3_Lester(T) As Double
A1 = -7.296251
A2 = 1.618053
A3 = -1.956546
A4 = -2.114118
Tc = 405.4
Pc = 111.85
r = T / Tc
F = (1 / r) * (A1 * (1 - r) + A2 * (1 - r) ^ (3 / 2) + A3 * (1 - r) ^ (5 / 2) + A4 * (1 - r) ^ 5)
Pwv_NH3_Lester(T) = Exp(F) * Pc
End Function

Answer 1

问题出在这一句：

Pwv_NH3_Lester(T) = Exp(F) * Pc

这样写变成了调用这个函数了，而且也不符合语法规范。给函数赋值时，不需要用参数表达式，应改为：

Pwv_NH3_Lester = Exp(F) * Pc

Answer 2

Function Pwv_NH3_Lester(T) As Double
A1 = -7.296251
A2 = 1.618053
A3 = -1.956546
A4 = -2.114118
Tc = 405.4
Pc = 111.85
r = T / Tc
F = (1 / r) * (A1 * (1 - r) + A2 * (1 - r) ^ (3 / 2) + A3 * (1 - r) ^ (5 / 2) + A4 * (1 - r) ^ 5)
Pwv_NH3_Lester = Exp(F) * Pc
End Function

Answer 3

Pwv_NH3_Lester(T) = Exp(F) * Pc

改成Pwv_NH3_Lester= Exp(F) * Pc