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%
劉任昌的程式碼programming code Public Sub 劉任昌第一個程式() '練習寫迴圈 VBA=Visual Basic Application 'Dim i, j As Integer j = 7 For i = 1 To 15 Cells(i, j).Value = i * i Next 'VBA迴圈的結束Next, C或Javascript {}定義迴圈範圍 'VBA程式語言寫Microsoft Office 巨集 Macro小程式 End Sub preserve:保留 pre:事前主動保留 video 108劉任昌影片 打開excel 德明財經科技大學 1 left 德明財 =LEFT(A12,3) 相對位置 4 mid 財經 =MID(A12,3,2) 加上$絕對位置 9 right 技大學 =RIGHT(A12,3) 16 len 8 =LEN(A12) 25 count 15 =COUNT(G1:G15) 36 min 1 =MIN(A17,3) 49 max 225 =MAX(G1:G15) 64 average 82.66 =AVERAGE(G1:G15) 81 sum 1240 =SUM(G1:G15) 100 indirect#REF! =INDIRECT(A12,TRUE) 121 144 169 196 225
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 ...
留言
張貼留言