请教一下这个 VBA 怎么表达 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

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写，麻烦解答一下，谢谢

主题：请教一下这个 VBA 怎么表达