主题：VBA策略回测时增加统计内容

请具体补充一下，你是需要在测评结束后对测评的结果再进一步加工呢，还是在VBA的测评过程中，取得某一个信号位置点，然后再去进一步统计？

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=68896 以这里的范例4为例：

使用PEL策略的信号进行交易
For i = 0 to HistroyData.Count-1
if Formula.GetBufData("开多",i) = 1 And TestReport.Holding = 0 Then '开多
TestReport.Buy 1, HistroyData.Close(i)

在出现开多信号的控制语句中，你已经知道了HistroyData对象中的k线数据索引了，HistroyData.Close(i) 就是当前K线的收盘价 HistroyData.Close(i+1) 就是下跟K线的收盘价 
End if

if Formula.GetBufData("平多",i) = 1 And TestReport.Holding > 0 Then '平多
TestReport.Sell 0, HistroyData.Close(i)
End if


'显示测试时当前的资产
Application.msgout TestReport.ASSET

'为步进下一个数据做准备
TestReport.StepIt i
Next
 

在 TestReport.AddTestStock 函数前加入FOR循环指令即可。

遍历整个市场的品种参考

MarketData 对象

GetReportCount 得到指定市场的品种数量.例如:GetReportCount("SQ") 表示取上海期货交易所所有合约数量.如果调用失败返回-1.

GetReportDataByIndex 得到指定市场指定基于0索引的ReportData对象，该方法主要可以用来对整个市场的品种进行遍历.