發表文章

許程程,樞紐分析,上市公司簽證會計師事務所

圖片
資料來源公開資訊觀測站 四大會計師事務所 會計師事務所 簽證的上市公司數 勤業眾信聯合會計師事務所 356c 資誠聯合會計師事務所 214 安侯建業聯合會計師事務所 207 安永聯合會計師事務所 90 上市公司產業分類 電子零組件業 97 其他 78 半導體業 77 光電業 68 電腦及週邊設備業 60 建材營造 53 電機機械 47 紡織纖維 43 通信網路業 42 其他電子業 40 汽車工業 35 生技醫療業 34 金融保險業 34 鋼鐵工業 31 化學工業 29 航運業 23 食品工業 22 貿易百貨 22 塑膠工業 21 電子通路業 20

許程程EXCEL樞紐分析weeekday

圖片
  樞紐分析,把股票報酬率分成五組,從-10%到10%,分成五組 大漲超過6% 小漲超過2% 平盤2%到-2% 小跌超過-2% 大跌超過-6% =IF(G4>6%,"大漲",IF(G4>2%,"小漲",IF(G4>-2%,"平盤",IF(G4>-6%,"小跌","大跌")))) EXCEL樞紐分析 EXCE函數 劉任昌影片 劉任昌影片124

許程程EXCEL函數IF,AND,CR股票

圖片
已經學的EXCEL函數 85 及格 TRUE =AND(3>1,5 1,5 1,5 =60,"及格","當掉") Rank PercentRank Min Max Median Match Index Count AND(條件一,條件二) OR(條件一,條件二) IF(條件, 成立執行, 不成立執行) 資料表Data Table 以及過去學的Left, Mid, Right, Len。 資料表Table是連續範圍的儲存格資料。將格標放在資料表任何地方,Ctrl往上箭、Ctrl往下箭、Ctrl往右箭,格標跑到資料表的邊緣。 =IF(AND(I21 J22),"買入",IF(AND(I21>J21,I22

許程程SVG,EXCEL資料表

圖片
SVG老虎頭 ...

Microsoft VBA AddShape 網頁SVG=Scalable Vector Graph

圖片
EXCEL VBA繪圖 Sub 許程程() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 290, 20, 40).Fill.ForeColor.RGB = RGB(0, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 280, 340, 40, 20).Fill.ForeColor.RGB = RGB(255, 0, 0) '使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb End Sub WORD VBA繪圖 網頁 SVG繪圖 維基百科SVG

許程程VBA雙迴圈Loop與JavaScript迴圈 VBA AddShape

圖片
VBA迴圈畫圖 VBA迴圈畫圖程式碼 Dim Shp As Shape '宣告變數Shp是 圖形 全域變數global 非區域變數local Sub 許程程刪除() For Each Shp In ActiveSheet.Shapes Shp.Delete '刪除使用中試算表ActiveSheet的所有圖形Shapes Next End Sub ' =========================== Sub 許程程() Dim Shp As Shape '宣告變數Shp是 圖形 Dim x As Double '宣告變數x是倍數經度實數Double Dim y As Double '宣告變數y是倍數經度實數Double Dim i As Integer '宣告變數i是整數Double For i = 1 To 20 '寫迴圈 x = 20 * i y = 20 * i Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 30, 60 ) With Shp .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With Next With Cells(1, 1) .Value = "許程程" '在儲存格1,1放入字串string .Interior.Color = RGB(0, 0, 255) 'interior desing室內設計 With .Font .Size = 24 .Bold = True .Color = RGB(255, 255, 255) End With End With End Sub JavaScript雙迴圈 輸出 EXCEL VBA雙迴圈 ...

EXCEL基本功能與VBA

圖片
preserve保持樣子 我會永遠等著你 許程程 1 我 RIGHT($D$1,$A2) 2 我會 3 我會永 16384 4 我會永遠 5 我會永遠等 26 =POWER(2,20) 1048576 24 X 16224 6 F 156 4 D 4 欄26進位 16384 16384 COUNT 12 測試 SUM 426 #NUM! =MEDIAN(D12) AVERAGE 35.5 30.5 =MEDIAN(indirect(D12)) MIN 1 中位數 MAX 80 VBA巨集Macro程式設計 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