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

如果你没有编程基础的话，就在论坛上随便找个VBA程序，就可以学会。

然后，你在order对象里 有下面的一个方法，可以找到你要的信息

Account2 方法

得到指定的国内期货帐户信息

Account2(Type，Account)

Type    指定帐户信息类型。Type可以使用下列数值：

Account 可缺省，登陆的帐户名称，若不填写则表示当前默认的帐户

2 返回指定交易帐户的类型：0盈透 1CTP综合平台 2金仕达平台 255 无效登录账户
3 返回指定交易帐户中的现金余额
4 返回指定交易帐户中的浮动盈亏
6 返回指定交易帐户中的动态权益
12 返回当前交易帐户中的现金总结余
19 返回当前交易帐户中的当前可用资金
20 返回当前交易帐户中的当前流动资产
26 返回当前交易帐户中的上次结算准备金
27 返回当前交易帐户中的期货结算准备金
28 返回当前交易帐户中的占用保证金
29 返回当前交易帐户中的可取资金数量
30 返回当前交易帐户中的平仓盈亏数额
31 返回当前交易帐户中的手续费
32 返回当前交易帐户中的入金金额
33 返回当前交易帐户中的出金金额
34 返回当前交易帐户中的上次信用额度
35 返回当前交易帐户中的上次质压
36 返回当前交易帐户中的质压金额
37 返回当前交易帐户中的信用额度
35 返回当前交易帐户中的冻结保证金
36 返回当前交易帐户中的冻结手续费
37 返回当前交易帐户中的保底资金
41 返回指定或当前交易账户的登录网关名称

你需要一个返回值，作为图表交易的使用参数吗？

如果是的是我就写一个自定函数，如果不需要，只是为了看一看的话，那么写一个VBA窗体，最利于看了。

能看明白吗？

我没有CTP的帐号所以不能测试。

你理解了，自己再 调试一下。

Function zhanghu(Formula)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   
   
    zhanghu=0
    dim array(4)
        array(1)="1000"
        array(2)="10086"
       
      for i=0 to order.CTPAcCount 
          application.MsgOut array(i)
          for j=0 to 5
             if order.IsAccount(order.CTPAccountName(i))=1 then
              
                if order.CTPAccountName(i)=array(j) then
                   zhanghu=1
                   exit for
                end if
               
             end if
          next         
         
      next
       
    
   

End Function