一些常用的vba代码合集，方便检索引用

模块1：生成workbook下的目录

优势﹐弱点﹐机会﹐威胁

QIP：Quality Improvement Plan品质改善计划
CIP：Continual Improvement Plan持续改善计划
M.Q.F.S：Material Quality Feedback Sheet (来料品质回馈单)
SCAR：Supplier Corrective Action Report (供货商改善对策报告)
8D Sheet：8 Disciplines sheet ( 8D单)

黄色和深黄色，高出此范围的时长占比加起来要小于30%；

最后一个发送者报告（last sender report，LSR）时间戳是64位NTP（网络时间协议（Network Time Protocol））格式的时间戳中间的32位，包含在最近从被报告者的SSRC接收到的RTCP的SR包中。如果SR没有收到，那么此字段可以设置为0.

DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-B0,'时窗'),COLORYELLOW;

编程常用的英文单词就那么多，只要把常见的英语单词都记住，编程完全没问题。

条件：股价大幅高开或急速上冲，可以乘这个机会，先将手中筹码全部或部分卖出，待股价结束快速上涨并出现回落后，将原来抛出的同一品种股票全部或部分买进，从而在一个交易日内实现高卖低买，来获取差价利润。

2 、K 线基础

P/R：Purchase Request (请购单)
AQL：Acceptable quality level允收品质水准
LQL：Limiting quality level最低品质水准
QVL：Qualified vendor list合格供应商名册
AVL ：认可的供货商清单(Approved Vendor List)

DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);

GET:ZIG(3,5),COLORAAAAAA;

PL5:=ZIG(3,5);

EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);

EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);

PL10:=ZIG(3,13);

EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);

EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);

PL20:=ZIG(3,26);

EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);

EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);

PL40:=ZIG(3,55);

走强一:=BARSLAST(PL5<REF(PL5,1));

走弱一:=BARSLAST(PL5>REF(PL5,1));

走强二 :=BARSLAST(PL10<REF(PL10,1));

走弱二:=BARSLAST(PL10>REF(PL10,1));

走强三:=BARSLAST(PL20<REF(PL20,1));

走弱三:=BARSLAST(PL20>REF(PL20,1));

ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强二 ),0);

ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强二 ),0);

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱二),0);

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱二),0);

ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强三),0);

ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强三),0);

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱三),0);

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱三),0);

DRAWTEXT(EN1 AND DTJZ5=1,LOW*0.97,'(Ⅰ)'),COLORFFFF00;

DRAWTEXT(EX1 AND DTJD5=2,HIGH*1.03,'(Ⅱ)'),COLORFFFF00;

DRAWTEXT(EN2 AND ZTJZ5=1,LOW*0.97,'(Ⅲ)'),COLORFFFF00;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,HIGH*1.02,'⑴'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,LOW*0.98,'⑵'),COLOR0000FF;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,HIGH*1.02,'⑶'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,LOW*0.98,'⑷'),COLOR0000FF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.02,'⑸'),COLOR0000FF;

DRAWTEXT(EN2 AND DTJZ10=1,LOW*0.94,'【A】'),COLOR00FF00;

DRAWTEXT(EX2 AND DTJD10=2,HIGH*1.05,'【B】'),COLOR00FF00;

DRAWTEXT(EN3 AND ZTJZ10=1,LOW*0.94,'【C】'),COLOR00FF00;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.04,'①'),COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,LOW*0.96,'②'),COLOR00FFFF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,HIGH*1.04,'③'),COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,LOW*0.96,'④'),COLOR00FFFF;

上一篇：股票交易规则(创业板股票交易规则)

下一篇：跌停板出货法(一字出水口现场照片)