以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  编一个自定义函数，测试通不过。  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=7922)
--  作者：txin66
--  发布时间：2011/9/7 23:41:38
--  编一个自定义函数，测试通不过。

按 SHIFT F5 ,报 “编译器错误 1012  ，缺少if  ”;

该函数的目的，是函数中已经对3个 数（实际是30多个数）的大小关系设定好，调用函数时输入数值，函数将其与函数里面预先的大小关系进行类比，类比符合的，返回一个数值；

如果下面的代码不适合，请问用什么语句来表达更好。

如果在公式编辑窗口里，如何实现。

这个类似的问题，已经提了好几次。麻烦哪位高手一次彻底指点。

 

 

Function ABC(Formula,x,y,z)


    ABC=0

    If x>y and y>z     Then
         abc=1
   
    Else If x>y and y<z then
  abc=2
   
    Else If x<y and y<z then
       abc=3
  
   
   
    End If


End Function
--  作者：admin
--  发布时间：2011/9/8 14:59:19
--  
ElseIf 中间不要加空格 
--  作者：zjxte
--  发布时间：2011/9/19 23:56:38
--  
只能说是vba不熟悉造成的