程式設計

Excel學習122 Excel學習123 劉任昌122影片 劉任昌123影片 劉任昌124影片 Excel函數 AND(條件一,條件二) OR(條件一,條件二) IF巢狀函數(條件, 成立執行, 不成立執行) Rank PercentRank Min Max Median Match Index Count Left, Mid, Right, Len 樞紐分析,把股票報酬率分成五組。 大漲超過6% 小漲超過2% 平盤2%到-2% 大跌超過-2% 小跌超過-2%

已經學的EXCEL函數 Rank PercentRank Min Max Median Match Index Count Left, Mid, Right, Len 利用MA5與MA20的穿越，判斷買賣點。 =IF(AND(I21 J22),"買入",IF(AND(I21>J21,I22 85 及格 TRUE 60 及格 FALSE 15 當掉 TRUE 65 及格 =IF(A4>=60,"及格","當掉") AND(條件一,條件二) OR(條件一,條件二) IF(條件, 成立執行, 不成立執行) 資料表Data Table 資料表Table是連續範圍的儲存格資料。將格標放在資料表任何地方，Ctrl往上箭、Ctrl往下箭、Ctrl往右箭，格標跑到資料表的邊緣。 119教學影片 120教學影片 121教學影片

Excel學習119 Excel學習120 Excel學習121 EXCEL函數IF,AND,OR =IF(AND(I2<J2,I3>J3),"買入",IF(AND(I2>J2,I3<J3),"賣出",0)) 簡單的決策規則 如果昨天ma5<今天ma20，今天則ma5>ma20，則買 如果昨天ma5>今天ma20，今天則ma5<ma20，則賣 已經學的Excel函數 AND(條件一,條件二) OR(條件一,條件二) IF(條件, 成立執行, 不成立執行) Rank PercentRank Min Max Median Match Index Count Left, Mid, Right, Len 利用MA5與MA20的穿越，判斷買賣點。 =IF(AND(I21J22),"買入",IF(AND(I21>J21,I22) 85 及格 TRUE 60 及格 FALSE 15 當掉 TRUE 65 及格 =IF(A4>=60,"及格","當掉") 資料表Data Table 資料表Table是連續範圍的儲存格資料。將格標放在資料表任何地方，Ctrl往上箭、Ctrl往下箭、Ctrl往右箭，格標跑到資料表的邊緣。 劉任昌119影片 劉任昌120影片 劉任昌121影片

劉任昌教導網路SVG案例&Excel學習116 ...

SVG圖形Scalable Vector Graph&Excel學習115微笑 Excel學習114 Sub 萬宜芸微笑() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 240, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) '使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb End Sub Excel學習115&WORD鱷魚臉 Sub 萬宜芸微笑() ActiveDocument.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) End Sub Sub 萬宜芸() ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveDocument.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255) ActiveDocument.Shape...

Excel學習112 Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 180 ' points ' 劉任昌提示參考 https://excelatfinance.com/xlf19/xlf-qg-add-blue-circle.php Sub xlfAddCircle1() '副程式 sub 結束end sub Dim Shp As Shape Dim TLCleft As Double Dim TLCtop As Double TLCleft = Range(topleft).Left TLCtop = Range(topleft).Top Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Left:=TLCleft, Top:=TLCtop, _ Width:=diam, Height:=diam) With Shp .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With End Sub Sub 萬宜芸() '副程式 sub 結束end sub Dim Shp As Shape Dim TLCleft As Double '距離左邊Left Dim TLCtop As Double '距離頂端Top Dim i As Integer '宣告整數 TLCleft = 10 ...

輸出 Excel學習110 '變數variables應該要宣告 pre=preserve保留 Option Explicit '要求所有變數必須宣告才能使用 Dim i, j As Integer 'dimension 宣告指令 Public Sub 萬宜芸() Cells(1, 6).Value = "萬宜芸" Cells(1, 6).Font.Color = RGB(0, 0, 256) Cells(1, 6).Font.Bold = True End Sub Public Sub 鱷魚() For i = 1 To 7 For j = 1 To 5 Cells(i, j).Value = i * j Next Next End Sub Excel學習109 '宣告變數可以減低發生錯誤的機率 Option Explicit '強制必須宣告每一個變數 Dim i As Integer Public Sub 萬宜芸迴圈() For i = 2010 To 2028 Cells(i - 2009, 1).Value = i & "年" Next i End Sub Excel學習111&萬宜芸指令 <script>  function year()   { var tmp ="<font size=5 color=#FF0000>"; //輸出HTML指令preserve格式    for (var i =0 ;i<= 10; i++)    { tmp =tmp + (i+2010) +"年<br>"    }    tmp =tmp +"</font>"     document.getElementById("out").innerHTML = tmp;   } </script> <body> <input type="button" value="萬宜芸年" onclick=...