主题：求pel翻译成vba

参数n的默认值1200，取值范围100到3000

付主买成交量4:=IF(C<REF(BIDPRICE,1) AND ASKPRICE=REF(ASKPRICE,1) AND ASKVOL<REF(ASKVOL,1) AND V>REF(BIDVOL,1),MIN(REF(ASKVOL,1)-ASKVOL,V-REF(BIDVOL,1)),
               IF(C<REF(BIDPRICE,1) AND ASKPRICE>REF(ASKPRICE,1),V*(ASKPRICE-REF(ASKPRICE,1))/(ASKPRICE-REF(ASKPRICE,1)+REF(BIDPRICE,1)-C+MINDIFF),0));

主卖总计:=SUM(主卖量,0);

净量:主买总计-主卖总计,COLORWHITE,LINETHICK2;
  红:IF(净量>REF(净量,1),净量,DRAWNULL),COLORRED,LINEDOT;
  绿:IF(净量<REF(净量,1),净量,DRAWNULL),COLORGREEN,LINEDOT;
  0,POINTDOT;
 净量回归线:FORCAST(净量,N);
 净量回归线红:IF(净量回归线>REF(净量回归线,1),净量回归线,DRAWNULL),COLORRED,LINETHICK2;
 净量回归线绿:IF(净量回归线<REF(净量回归线,1),净量回归线,DRAWNULL),COLORGREEN,LINETHICK2;