1.Excel实战技巧动态的哭脸哭脸笑脸
2.麻烦哪位高手帮忙把公式的上升下降图标修改笑脸哭脸！！笑脸笑脸k线！指标组合！公式

Excel实战技巧动态的源码万博文化源码笑脸

       无意中看到的一个技巧，非常有意思，哭脸哭脸jpg压缩源码稍作整理和修改，笑脸笑脸k线在这里和大家分享。指标组合

       如下图1所示，公式在工作表中绘制了一个笑脸图，源码根据单元格H3中的哭脸哭脸数值来变换嘴唇的弧度。数值在0至之间，笑脸笑脸k线是指标组合storm源码阅读哭脸，超过后就是公式笑脸了。

       图1

       在单元格H3中，源码设置了数据有效性，只能在该单元格中输入0至之间的ms crm 源码整数，如下图2所示。

       图2

       在笑脸所在的工作表模块中，输入代码：

       Private Sub Worksheet_Change(ByVal Target As Range)

       On Error GoTo errHandler

       Dim sh As Shape

       Dim myMin As Double

       Dim myMax As Double

       Set sh = Shapes(“HappyFace”)

       ‘Excel 中,min=0. max=0.

       ‘Excel 后,min=-0. max0.

       myMin = -0.

       myMax = 0.

       If Target.Address = “$H$3″ Then

       Application.EnableEvents = False

       sh.Adjustments.Item(1) _

       = myMin + (myMax – myMin) * Target.Value/

       End If

       exitHandler:

       Application.EnableEvents = True

       Exit Sub

       errHandler:

       MsgBox Err.Number & ” ” &Err.Description

       GoTo exitHandler

       End Sub

       这里，添加了一段简单的vsftpd 源码下载代码，让单元格H3中的数字连续改变，从而实现笑脸不断变化，如下图3所示。

       图3

       下面，我们让笑脸随着分数的变化，颜色也同时发生变化，如下图4所示。

       图4

       相应的工作表模块代码如下：

       Private Sub Worksheet_Change(ByVal Target As Range)

       On Error GoTo errHandler

       Dim sh As Shape

       Dim myMin As Double

       Dim myMax As Double

       Dim myColor As Long

       Set sh = Shapes(“HappyFace”)

       ‘Excel 中, min=0. max=0.

       ‘Excel 后, min=-0. max=0.

       myMin = -0.

       myMax = 0.

       If Target.Address = “$H$3″ Then

       Application.EnableEvents = False

       sh.Adjustments.Item(1) _

       = myMin + (myMax – myMin) * Target.Value/

       ‘修改形状颜色

       ‘小于%  红色

       ‘%- % 橙色

       ‘%-% 绿色

       Select Case Target.Value

       Case Is >= : myColor _

       = RGB(, , ) ‘绿色

       Case Is >= : myColor _

       = RGB(, , 0) ‘橙色

       Case Else: myColor _

       = RGB(, 0, 0) ‘红色

       End Select

       sh.Fill.ForeColor.RGB = myColor

       End If

       exitHandler:

       Application.EnableEvents = True

       Exit Sub

       errHandler:

       MsgBox Err.Number & ” ” &Err.Description

       GoTo exitHandler

       End Sub

       同样，我们也可以设置一段代码，让笑脸连续变化，如下图5所示。

       图5

麻烦哪位高手帮忙把公式的上升下降图标修改笑脸哭脸！！！！

       买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,)*+C,);

       BU:=CROSS(买线,卖线); SEL:=CROSS(卖线,买线);

       DRAWICON(BU,L-0.1,5); DRAWICON(SEL,H+0.1,6);

       STICKLINE(买线>=卖线,LOW,HIGH,0.0,1),COLORRED;

       STICKLINE(买线>=卖线,CLOSE,OPEN,2,1),COLORRED;

       STICKLINE(买线<卖线,LOW,HIGH,0.0,1),COLORGREEN;

       STICKLINE(买线<卖线,CLOSE,OPEN,2,1),COLORGREEN;

       散户:EMA(CLOSE,5),COLORWHITE;

       操盘:MA(CLOSE,9),COLORCYAN,LINETHICK2;

       界点:MA(CLOSE,),COLORMAGENTA; LC:=REF(CLOSE,1);

       RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * );

       FF:=EMA(CLOSE,3); MA:=EMA(CLOSE,); 日:=;昨前:=3;

       高1:=REF(HHV(H,日),昨前); 低1:=REF(LLV(L,日),昨前); H1:=高1-(高1-低1)*0.;

       H2:=高1-(高1-低1)*0.; H3:=高1-(高1-低1)*0.5; H4:=高1-(高1-低1)*0.;

       H5:=高1-(高1-低1)*0.; 顶:REFDATE(高1,DATE),COLORRED;

       一0.:REFDATE(H1,DATE),COLORYELLOW;

       二0.:REFDATE(H2,DATE),COLORMAGENTA;

       三0.:REFDATE(H3,DATE),COLORWHITE;

       四0.:REFDATE(H4,DATE),COLORGREEN;

       五0.:REFDATE(H5,DATE),COLORYELLOW;

       低:REFDATE(低1,DATE),COLORRED;

       DRAWICON(C<MA(C,) AND C>MA(C,) AND REF(C,1)<REF(O,1)*0. AND C/O>1. AND V/CAPITAL>0.,L*0.,9);