請教一下這個 VBA 怎么表達(dá)
作者：金字塔 來源：cxh99.com 發(fā)布時間：2015年08月05日
- 咨詢內(nèi)容：
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個點掛一張多單,這里您要區(qū)分點和變動價位的差別,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
請教一下，我想當(dāng)紅色條件出現(xiàn)后，才執(zhí)行藍(lán)色部分的，但藍(lán)色部分出現(xiàn)后才執(zhí)行綠色部分，就是紅色如果沒有觸發(fā)，后面的兩個條件都不會觸發(fā)，請問用什么控制語句可以實現(xiàn)呢？代碼都是紅色部分出現(xiàn)后1秒，觸發(fā)藍(lán)色部分 ，而藍(lán)色部分觸發(fā)后1秒，才觸發(fā)綠色部分，謝謝
版主說后臺已經(jīng)不能實現(xiàn)這個，需要用VBA寫，麻煩解答一下，謝謝
- 金字塔客服：
能回答一下嗎？
- 用戶回復(fù)：
稍等,正在處理中
打印本文
關(guān)閉窗口