請教一下這個 VBA 怎么表達

作者：金字塔來源：cxh99.com 發布時間：2015年08月05日

咨詢內容： IF UP_G1 AND EXTGBDATA('SKV_G1') =0 AND EXTGBDATA('Last_ Location')=0 THEN BEGIN EXTGBDATASET('T0',TIMETOT0(DYNAINFO(207))); EXTGBDATASET('Last_ Location',1) ; END IF TISREMAIN(3) && EXTGBDATASET('Last_ Location',1) &&TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')>0 && TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')<=2 THEN; BEGIN TCANCEL(1,0); EXTGBDATASET('T0',TIMETOT0(DYNAINFO(207))); END IF TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')>0 && TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')<=2 THEN; BEGIN TBUYSHORT(1,SS,LMT,G1+10); // 在G1的上面10個點掛一張多單,這里您要區分點和變動價位的差別,MINDIFF表示變動價位 TBUY(1,SS,LMT,LMT,G1-10); // 在G1的下面10個點掛一張多單 EXTGBDATASET('SKV_G1',1) ; EXTGBDATASET('TOTAL_SVOL',EXTGBDATA('TOTAL_SVOL')+SS); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','G1開空_SKV_G1=%.0f' ,EXTGBDATA('SKV_G1')); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','TOTAL_SVOL=%.0f' ,EXTGBDATA('TOTAL_SVOL')); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','Last_ Location=%.0f' ,EXTGBDATA('Last_ Location')); END
請教一下，我想當紅色條件出現后，才執行藍色部分的，但藍色部分出現后才執行綠色部分，就是紅色如果沒有觸發，后面的兩個條件都不會觸發，請問用什么控制語句可以實現呢？代碼都是紅色部分出現后1秒，觸發藍色部分，而藍色部分觸發后1秒，才觸發綠色部分，謝謝
版主說后臺已經不能實現這個，需要用VBA寫，麻煩解答一下，謝謝
金字塔客服： 能回答一下嗎？
用戶回復： 稍等,正在處理中