[浏览完整版]
标题：求一自编函数
1楼
镇大官人 发表于：2015/10/16 13:17:24求一个函数，输入价格，返回这个价位上我委托的挂单数量，多单空单区分，如何自编此函数
2楼
yukizzc 发表于：2015/10/16 13:30:13dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
算法如上，自己通过自定义函数完善下
3楼
镇大官人 发表于：2015/10/16 13:46:31测试返回是0
4楼
王锋 发表于：2015/10/16 13:50:02不要用拿来主义，如果不能用，自己分析原因，自己尝试改进
5楼
镇大官人 发表于：2015/10/16 13:52:21function ORDERNUM(a)
dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
ORDERNUM=temp
End Function
dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
ORDERNUM=temp
End Function
6楼
镇大官人 发表于：2015/10/16 13:52:34问题处在哪里？
7楼
yukizzc 发表于：2015/10/16 14:21:14vba要处于启动状态，另外请从函数列表-自定义函数，从这里右键添加自定义函数，系统会自动生成代码段的。
此主题相关图片如下：wf~thmua01mg3sgv6ktv6ns.png
8楼
镇大官人 发表于：2015/10/16 14:25:51谢谢～
9楼
镇大官人 发表于：2015/10/16 16:44:09还是返回不了，能不能麻烦把这个能返回的完整的自定义函数代码发一下？
10楼
镇大官人 发表于：2015/10/19 11:56:36我们是新手，水平低，不够专业，我错了！真不该买你们2套专业版了，浪费了！