發表文章

目前顯示的是 12月, 2021的文章

萬宜芸excel樞紐分析

圖片
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函數&資料IF,AND,OR函數票圖

圖片
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老虎頭

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

EXCEL, WORD AddShape,網頁SVG

圖片
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...

Execl巨集畫圖&加入刪除sub

圖片
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迴圈與JavaScript迴圈pre

圖片
輸出 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=...