Tag: 交易

对贸易VBA循环

当我想用Excel VBAbuild立一对交易自动化时，我遇到了一个问题。 我的策略是当两只股票价差达到+/- 2标准差时开仓（OTC_Sell或OTC_Buy），当两只股票价差达到+/- 4标准差时平仓（CTC_buy或CTC_sell）或回击中庸。 一旦仓位closures，一旦我收到另一个公开交易条件（OTC），我就可以开仓。 但是，当我运行代码时，似乎循环只运行一次，因为我只能得到一个交易（以黄色突出显示）。在这个单元之后，我只能得到零而没有其他交易信号。 我重新运行从原始列旁边的单元格开始的代码，并获得另一个交易（用绿色突出显示）。要求之后，我得到全零。 而我想获得一列内的所有交易信号。 Function SignalCTC(Price1, Price2, Mean, SD, StopLoss) Dim i, j, k, m, n, o, p, numRows, numOTC, order, list, flag, finish numRows = Price1.Rows.Count Dim SignalColOTC() ReDim SignalColOTC(numRows, 1) Dim Price1Col() ReDim Price1Col(numRows) Dim Price2Col() ReDim Price2Col(numRows) Dim P_Ratio() ReDim P_Ratio(numRows) 'Loop 1 For i = 1 […]