Question

Excel 里面的visual basic编辑函数

我写了个函数，代码如下（方法比较笨，不要深究），在表格中应用的时候总是提示“赋值号左边的函数必须返回变体或调用对象”，请问哪里错了？
代码：
Function Enthalpy_NH3_Satish(T, x) As Double
m1 = 0
m2 = 0
m3 = 0
m4 = 0
m5 = 0
m6 = 0
m7 = 1
m8 = 1
m9 = 2
m10 = 3
m11 = 5
m12 = 5
m13 = 5
m14 = 6
m15 = 6
m16 = 8

n1 = 1
n2 = 4
n3 = 8
n4 = 9
n5 = 12
n6 = 14
n7 = 0
n8 = 1
n9 = 1
n10 = 3
n11 = 3
n12 = 4
n13 = 5
n14 = 2
n15 = 4
n16 = 0

a1 = -7.6108
a2 = 25.6935
a3 = -247.092
a4 = 325.952
a5 = -158.854
a6 = 61.9084
a7 = 14.1314
a8 = 1.18167
a9 = 2.84179
a10 = 7.41609
a11 = 891.844
a12 = -1613.09
a13 = 622.106
a14 = -207.588
a15 = -6.87393
a16 = 3.50716

Enthalpy_NH3_Satish(T, x) = 100 * (a1 * ((T / 273.16 - 1) ^ (m1)) * (x ^ (n1)) + a2 * ((T / 273.16 - 1) ^ (m2)) * (x ^ (n2)) + a3 * ((T / 273.16 - 1) ^ (m3)) * (x ^ (n3)) + a4 * ((T / 273.16 - 1) ^ (m4)) * (x ^ (n4)) + a5 * ((T / 273.16 - 1) ^ (m5)) * (x ^ (n5)) + a6 * ((T / 273.16 - 1) ^ (m6)) * (x ^ (n6)) + a7 * ((T / 273.16 - 1) ^ (m7)) * (x ^ (n7)) + a8 * ((T / 273.16 - 1) ^ (m8)) * (x ^ (n8)) + a9 * ((T / 273.16 - 1) ^ (m9)) * (x ^ (n9)) + a10 * ((T / 273.16 - 1) ^ (m10)) * (x ^ (n10)) + a11 * ((T / 273.16 - 1) ^ (m11)) * (x ^ (n11)) + a12 * ((T / 273.16 - 1) ^ (m12)) * (x ^ (n12)) + a13 * ((T / 273.16 - 1) ^ (m13)) * (x ^ (n13)) + a14 * ((T / 273.16 - 1) ^ (m14)) * (x ^ (n14)) + a15 * ((T / 273.16 - 1) ^ (m15)) * (x ^ (n15)) + a16 * ((T / 273.16 - 1) ^ (m16)) * (x ^ (n16)))
End Function

Answer 1

Function Enthalpy_NH3_Satish(T, x) As Double
m1 = 0
m2 = 0
m3 = 0
m4 = 0
m5 = 0
m6 = 0
m7 = 1
m8 = 1
m9 = 2
m10 = 3
m11 = 5
m12 = 5
m13 = 5
m14 = 6
m15 = 6
m16 = 8

n1 = 1
n2 = 4
n3 = 8
n4 = 9
n5 = 12
n6 = 14
n7 = 0
n8 = 1
n9 = 1
n10 = 3
n11 = 3
n12 = 4
n13 = 5
n14 = 2
n15 = 4
n16 = 0

a1 = -7.6108
a2 = 25.6935
a3 = -247.092
a4 = 325.952
a5 = -158.854
a6 = 61.9084
a7 = 14.1314
a8 = 1.18167
a9 = 2.84179
a10 = 7.41609
a11 = 891.844
a12 = -1613.09
a13 = 622.106
a14 = -207.588
a15 = -6.87393
a16 = 3.50716

Enthalpy_NH3_Satish = 100 * (a1 * ((T / 273.16 - 1) ^ (m1)) * (x ^ (n1)) + a2 * ((T / 273.16 - 1) ^ (m2)) * (x ^ (n2)) + a3 * ((T / 273.16 - 1) ^ (m3)) * (x ^ (n3)) + a4 * ((T / 273.16 - 1) ^ (m4)) * (x ^ (n4)) + a5 * ((T / 273.16 - 1) ^ (m5)) * (x ^ (n5)) + a6 * ((T / 273.16 - 1) ^ (m6)) * (x ^ (n6)) + a7 * ((T / 273.16 - 1) ^ (m7)) * (x ^ (n7)) + a8 * ((T / 273.16 - 1) ^ (m8)) * (x ^ (n8)) + a9 * ((T / 273.16 - 1) ^ (m9)) * (x ^ (n9)) + a10 * ((T / 273.16 - 1) ^ (m10)) * (x ^ (n10)) + a11 * ((T / 273.16 - 1) ^ (m11)) * (x ^ (n11)) + a12 * ((T / 273.16 - 1) ^ (m12)) * (x ^ (n12)) + a13 * ((T / 273.16 - 1) ^ (m13)) * (x ^ (n13)) + a14 * ((T / 273.16 - 1) ^ (m14)) * (x ^ (n14)) + a15 * ((T / 273.16 - 1) ^ (m15)) * (x ^ (n15)) + a16 * ((T / 273.16 - 1) ^ (m16)) * (x ^ (n16)))
End Function

Answer 2

Enthalpy_NH3_Satish(T, x)=100这个你直接Enthalpy_NH3_Satish=100...
例如下面的
直接是定义的函数名称=值
Function getv(rg As Range)

getv = rg.Text

End Function

追问

可能是我语文学的不好，没看懂

追答

Enthalpy_NH3_Satish(T, x)= 这里把括号内容去掉