主题：怎么编写VBA自定义函数调用实际帐户

我是专业版的客户，我编写了一个图表交易策略，使用图表多帐户交易。我想在我的交易策略里面知道实盘时候多帐户的信息，怎么调用？各位大侠最好能给我个程序让我好好学习一下，不胜感激！！！

看来我说的不明白。我的想法是，在我的程序中增加一个判断：我有3个实盘帐户，比如20500111，20500222，20500333，我要检测一下是不是真的启用了三个帐户。比如，如果少了一个，报错。如果多了一个帐户，也报错。我的意思讲明白了吗？我主要想知道我的实盘的帐户的帐号，然后对这个帐号进行判断。

Function zhanghu(Formula)
        Dim szhhu
        szhhu=Order.CTPAccountName(0)

End Function

 

这样编写调取活动帐户名称怎么就不对了？

大伙给看看啊，急啊！

 application.MsgOut CTPAccountName(i)
这个地方修改一下， application.MsgOut order.CTPAccountName(i)

这样就可以输出当前活动帐户了。谢谢！

order.CTPAccountName(i)返回的是什么类型的函数？整数还是字符串？可以把这个返回的值给存起来，或者进行比较吗？我想用这个数据构筑一个限制条件，限制非期望的帐户登录。

'调用登录帐户数量
Function zhanghu(Formula)
  Ac=Order.CTPAcCount
   '定义一个计算返回的数组
    Dim ResultMa
    Redim ResultMa(Ac)

    For  i=0 to ac-1
      ResultMa(i) = Order.CTPAccountName(i)
    Next

    '返回已经登录的帐户
    zhanghu = ResultMa
End Function

我想用自定义函数返回已经登录的帐户，这样写可以吗？如果可以，那么在公式中怎么调用呢？

如果返回的是字符串，那么可以在自定义函数中进行比较。我在自定义函数中开一个字符串数组，分别把我期望登录的帐户赋值给这个字符串数组，然后再把这个字符串数组和返回的已经登录的帐号进行对比，如果出现了非期望登录帐号，自定义函数返回0，正常返回1。这个思路可以实现吗？如何实现呢？急盼！

是啊。我需要一个返回值构筑一个下单条件，如果出现了非预期登录帐户，则不允许下单。

dim array(4)
        array(1)="1000"
        array(2)="10086"
 application.MsgOut array(i)

 

这里无法输出。没有反应。