STICKLINE(MA(CLOSE,60)>MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120),3,0),COLOR0060FF;STICKLINE(MA(CLOSE,60)<MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120),3,0),COLOR383E62;STICKLINE(MA(CLOSE,10)>MA(CLOSE,20),MA(CLOSE,10),MA(CLOSE,20),3,0),COLORFF00FF;STICKLINE(MA(CLOSE,10)<MA(CLOSE,20),MA(CLOSE,10),MA(CLOSE,20),3,0),COLOR383E62;

BT:=(L<=中下軌 AND 跌=0 AND LLV(L,3)>LLV(L,22) AND O-C<兩格) OR (L<=下 AND 跌 AND LLV(L,3)>LLV(L,22) AND O-C<兩格);ST:=(H>=中上軌 AND 漲=0 AND HHV(H,3)<HHV(H,22) AND C-O<兩格) OR (H>=上 AND 漲 AND HHV(H,3)<HHV(H,22) AND C-O<兩格);DRAWICON(BT,L,1);DRAWICON(ST,H,2);RETURN;}

FSZY3:=REF(MIN(LOW,FSZY1),1);FSZY9:=IF(FSZY8,FSZY6,FSZY7);FSZY16:=(SUM(FSZY14,0) * CROSS(COUNT((CLOSE <REF(CLOSE,1)),BARSLAST(FSZY14)),0.5));FSZY17:=(SUM(FSZY15,0) * CROSS(COUNT((CLOSE >REF(CLOSE,1)),BARSLAST(FSZY15)),0.5));FSZY20:=(SUM(FSZY18,0) * CROSS(COUNT((C< REF(CLOSE,1)),BARSLAST(FSZY18)),0.5));FSZY21:=(SUM(FSZY19,0) * CROSS(COUNT((CLOSE >REF(CLOSE,1)),BARSLAST(FSZY19)),0.5));

【新提醒】分時(shí)T+0做T神器（指標(biāo) 分時(shí)主圖 通達(dá)信 貼圖） 分時(shí)主圖下載指標(biāo)源碼后導(dǎo)入公式管理器編輯成主圖指標(biāo)，完成后在分時(shí)圖中點(diǎn)鼠標(biāo)右鍵顯現(xiàn)選擇項(xiàng)，在分時(shí)主圖指標(biāo)中選分時(shí)T+0指標(biāo)，即可清晰看見分時(shí)圖的高低點(diǎn)提示！以上分時(shí)可配合使用，以使效益最大化，共振出最佳效果！[ 本帖最后由 棋癡迷 于 2018-1-27 18:11 編輯 ]

G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X))OR (FG1 AND COUNT(GQ,BARSLAST(FD1))>0 AND REF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X)));}D1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X)) AND BARSLAST(G1X)>BARSLAST(D1X))OR (FD1 AND COUNT(DQ,BARSLAST(FG1))>0 AND REF(L,BARSLAST(FD1))<REF(H,BARSLAST(D1X)));

VAR6:=IF(VAR1>REF(VAR1,1),5,0) AND IF(VAR4>REF(VAR4,1),5,0);FILLRGN( VAR1,EMA(VAR1,60), VAR1>EMA(VAR1,60),RGB(150,30,30),EMA(VAR1,60)>VAR1,RGB(0,110,30));

同花順分時(shí)圖上的買賣提示指標(biāo)（圖例）WRSI=SMA(MAX(NEW-LC,0),9,1)/SMA(ABS(NEW-LC),9,1)*100;三、“適用周期”選為“分時(shí)走勢(shì)”（圖一）四、點(diǎn)開“曲線屬性”(圖一)，在“買入信號(hào)”書簽卡里（圖二），“相關(guān)數(shù)據(jù)項(xiàng)目設(shè)置”里點(diǎn)選“其他數(shù)據(jù)項(xiàng)目”，在“更改”里選“現(xiàn)價(jià)”（圖三）；（賣出信號(hào)書簽卡做相同設(shè)置）圖一：圖二：七、回到同花順個(gè)股分時(shí)界面圖形。

VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1);VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD)

Excel VBA 實(shí)用代碼集錦。當(dāng)你選中一些單元格并運(yùn)行這個(gè)宏時(shí)，它會(huì)將選定范圍內(nèi)的所有單元格合并成一個(gè)單元格。然后，選擇你想要粘貼格式的單元格，并在VBA編輯器中手動(dòng)運(yùn)行Selection.PasteSpecial Paste:=xlPasteFormats（或者在宏中創(chuàng)建一個(gè)單獨(dú)的步驟來執(zhí)行此操作）。請(qǐng)注意，合并單元格可能會(huì)導(dǎo)致數(shù)據(jù)丟失，因?yàn)樗鼘⒍鄠€(gè)單元格的內(nèi)容合并到一個(gè)單元格中。這個(gè)宏會(huì)復(fù)制選定單元格的格式，并將其粘貼到隨后選定的單元格上。

STICKLINE(A1X >=0,多方,突破,1,1),COLOR0000FF;IF(MA(C,60) >=REF(MA(C,60),1),MA(C,60),DRAWNULL),COLOR0000FF,LINETHICK2;STICKLINE(做空,L,H,0.5,0),COLOR00FF00;STICKLINE(做空 AND C >=O,C,O,3,1),COLOR00FF00;STICKLINE(做空 AND C <O,C,O,3,0),COLOR00FF00;STICKLINE(強(qiáng)洗,L,H,0.5,0),COLOR0099FF;STICKLINE(強(qiáng)洗 AND C >=O,C,O,3,1),COLOR0099FF;

VAR4:=100*(CLOSE-VAR3)/VAR3;VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) ANDREF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) ANDREF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) ANDREF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);VAR51:=HHVBARS(ZIG

FILLRGN(PRICE1,PRICE2,COND1,COLOR1,COND2,COLOR2...),填充PRICE1到PRICE2之間的區(qū)域，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不填充，從COLOR1之后的參數(shù)均可以省略，最多可以有15組條件。PARTLINE(PRICE,COND1,COLOR1,COND2,COLOR2...),繪制PRICE線，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不繪制，從COLOR1之后的參數(shù)均可以省略，最多可以有15組條件。

含義：當(dāng)周期的收盤價(jià)。FILLRGN 含義:根據(jù)條件填充區(qū)域 用法:FILLRGN(PRICE1,PRICE2,COND1,COLOR1,COND2,COLOR2...),填充PRICE1到PRICE2之間的區(qū)域，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不。PARTLINE 含義:根據(jù)條件畫線 用法:PARTLINE(PRICE,COND1,COLOR1,COND2,COLOR2...),繪制PRICE線，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不繪制，從COLOR1之后的參數(shù)。

用法:FILLRGN(PRICE1,PRICE2,COND1,COLOR1,COND2,COLOR2...),填充PRICE1到PRICE2之間的區(qū)域，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不填充，從COLOR1之后的參數(shù)均可以省略，最多可以有15組條件。PARTLINE(PRICE,COND1,COLOR1,COND2,COLOR2...),繪制PRICE線，當(dāng)COND1條件滿足時(shí),用COLOR1顏色，當(dāng)COND2條件滿足時(shí),用COLOR2顏色，否則不繪制，從COLOR1之后的參數(shù)均可以省略，最多可以有15組條件。

VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);VAR6:=VAR4*100/VAR1;VAR7:=VAR5*100/VAR1;VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);VAR9:=(VAR8+REF(VAR8,15))/2;A:=(VAR7>VAR6 AND VAR7>25 AND VAR6<25);VAR12:=SMA(VAR11,3,1);VAR13:=SMA(VAR12,3,1);VAR14:=VAR13 AND VAR13<20;

通達(dá)信主fu圖

VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);{理想實(shí)現(xiàn)}VARS2:=IF(MONTH<12,1,1);VARS3:=(2.28*CLOSE+HIGH+LOW)/4;VARS4:=LLV(LOW,34);VARS5:=HHV(HIGH,34);理想:=EMA((VARS3-VARS4)/(VARS5-VARS4)*100,13)*VARS2,LINETHICK4,COLORRED;論壇:=EMA(0.667*REF(理想,1)+0.333*理想,2),LINETHICK2,COLORFF9933;理想實(shí)現(xiàn):(CROSS(理想,論壇) AND 理想<22),LINETHICK2,COLOR0099FF;