Question

excel2003中已定义好2个函数，如何再定义1个函数在不同条件下调用这两个函数？

excel2003中已用VBA已定义好2个函数js1(x)、js2(x)，代码如下。如何再定义1个函数js(x)：当js1(x)返回的是数值时，让js(x)返回js1(x)的数值；否则返回js2(x)的结果？

Function js1(x)
WithCreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"

Do While InStr(1, x, "]") > 0
a = InStr(1, x, "[")
b = InStr(1, x, "]")
x = Left(x, a - 1) & Right(x, Len(x) -b)
Loop

js1 = .Eval(x)
End With
End Function

Function js2(x)
WithCreateObject("Access.Application")

Do While InStr(1, x, "]") > 0
a = InStr(1, x, "[")
b = InStr(1, x, "]")
x = Left(x, a - 1) & Right(x, Len(x) -b)
Loop

js2 = .Eval(x)
End With
End Function

Answer 1

　　大风大浪都过来了, 怎么到小河沟这儿卡住了?

　　普通IF函数就可以了吧?

• =IF(ISNUMBER(JS1(A1)),JS1(A1),JS2(A1))

追问

谢谢！

在单元格里输入这个我知道
但怎么把这个你上面的这个思想定义为另一个新函数js(x)，这样在单元格里直接输入=js(x)就好了

追答

　　用EXCEL自带的自定义公式试试:

　　Ctrl+F3, 打开名称管理器

　　新建"名称", 如 js

　　把下面公式粘贴到里面

• =IF(ISNUMBER(JS1(A1)),JS1(A1),JS2(A1))