作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/18 15:04:24
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
excel2003中已定义好2个函数,如何再定义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))