EXCEL and VBA,基本通能與VBA程式設計

劉任昌的程式碼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函數&資料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影片
閱讀完整內容

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樞紐分析

圖片
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%
閱讀完整內容