VBA、股票：股票走勢圖，繪製N字折線圖(N型走勢)

花了一段時間，終於使用excel vba開發出來了，希望對自己看盤有幫助，後續配合自動股價更新等功能做及時盤中走勢圖繪製與強弱判斷，加油了。

為何用EXCEL VBA?

因為卷商軟體已有設計好的端口，不利用一下怎可能!!!

其實不透過卷商軟體也很其他方法可以做到看盤資料來源的掌握，但小編很少用卷商軟體的端口，當作練兵摟。

N字走勢判斷是好是壞???：

其實小篇我也正在體驗中，翻了很多網頁說明等等，感覺有趣，就花不少時間把它弄出來了，當玩玩。

動畫GIF

圖1.N字折線圖

圖2.自動轉折判斷

圖3.上下震盪判斷

圖4.底部頭部偵測與反轉繪製

這天可愛的朋友問我，有那些幫助?

ANS：

參考元大RTD，類似這樣的卷商提供的EXCEL資料端口服務，設定好後，讓VBA程式幫你追盤中動態的開、高、低、收等變化，而且可以同時多檔直接監控，配合之前開發的LINE即時通知功能，不是省事多(難道上班盯著手機) Orz。

其實很多卷商軟體都有提供excel端口作資料對接歐，如日盛DDE等。

續問：你測試多少檔股票，以及運算時間??

ANS：目前同時測試25檔股票一起上線，在關閉畫圖功能，全數以資料直接計算高點、反折點與最低點等交互演算法，25檔當天所有股票動態資料，約1前後八，還可以抓出高點、反折點與最低點等三點變化做趨勢預測

最後天真的問我為何叫做N字：GOOGLE結果

有一種原來阿宅容易被埋沒是有原因的 XD

更新：

盤中動態更新走勢圖+line notify完成

😀😀

VBA：SETFOCUS 物件設定

 不知道大家是否有與我相同的困擾，就是設定了也不會做動😖😖

例如在表單上設置了一個COMBOBOX的物件也設定了SETFOCUS,但沒反應就是沒反應!!!!

用UserForm1.ComboBox1.SetFocus 無效 XD

在拜讀此篇Re-Focusing on an Excel Userform ComboBox討論後，以以下CODE 測試成功:

with UserForm1.ComboBox1 

    .Visible = False '設定為不可使用

    .Visible = True '設定為可使用

    .setfocus '設定"閃爍 OR 稱焦點也行

end with

在每一次載入表單時，可以將控制權丟到COMBOBOX上或是TEXTBOX上也行，倘若真的不行，還有另外一段CODE，我幫忙補上中文註解：

Sub Focus_ControlOfUserForm(ByRef Obj As Object) 'from the Userform, call Focus_ControlOfUserForm(Me)

Dim ctl As Control

With Obj

    Set ctl = .ActiveControl '設定物件別

    If TypeName(ctl) = "MultiPage" Or TypeName(ctl) = "Frame" Then '判斷物件種類

        Set ctl = ctl.SelectedItem.ActiveControl.Name '重新設定物件別

    End If

    With ctl

        Dim Af As Boolean

        With Application

            Af = .ScreenUpdating

            .ScreenUpdating = False

        End With

        '.SetFocus

        .Visible = False

        .Visible = True

        .SetFocus 

        If Af Then Application.ScreenUpdating = True '開啟螢幕更新

    End With

End With

End Sub

簡單說明一下，這個副程式透過物件別判斷後，做焦點設定，因為特定物件不支援"焦點"；另外關鍵在Application.ScreenUpdating這個控制上，因為有時候物件未自動更新導致的。

APPLICATION.MAX 陣列應用

excel內建函數，主要是用儲存格做使用，其實也是可以直接拿來在vba中做使用的，在vba使用中若能搭配陣列做使用，效率上更是更上一層樓，先簡單說明在vba中使用的語法

方法一：application.sum(儲存格)

方法二：Application.WorksheetFunction.sum(儲存格)

轉用陣列範例，目前以max舉例，excel內建函數眾多，未一一測試，在請見諒。

單列情況：

Dim a As Variant

a=activesheet.range("a1:a1000")

a_max=application.max(a)

單列情況對照：

Dim a As RANGE

SET a=activesheet.range("a1:a1000")

a_max=application.max(a)

若

多列多行：

Dim a As Variant

a=activesheet.range("a1:c1000")

a_max=application.max(a)

VBA：相關係數；Correl

相關係數：

函數是Correl

先宣告TEMP1與TEMP2為儲存格物件

 Dim TEMP1, TEMP2 As Range

在設置對應的儲存格

 Set TEMP1 = ActiveSheet.Range("A2:A100")

 Set TEMP2 = ActiveSheet.Range("B2:B100")

透過 Application.WorksheetFunction.Correl(ARRAY1,ARRAY2)語法作函數呼叫。

 T = Application.WorksheetFunction.Correl(TEMP1, TEMP2)

DEBUG.? T

例子：

圖1.資料在A與B行

然後作一個ACTIVEX的命令按鈕後，放入CODE並執行後如下：

圖2.執行與編輯

相關文章：VBA：股價相關係數、判定係數分析自動化~我超愛看錄影帶(VHS)!!!

VBA：股價相關係數、判定係數分析自動化~我超愛看錄影帶(VHS)!!!

 好長一段時間前寫了迴歸，迴歸含有很多分析變數間關係的工具，如判定係數，相關係數等，剛好最近有機會接觸某國的某股票與台灣股票連動的情況，小編寫了個自動分析工具，一次處理判定係數與相關係數。

以前老師有教，收集到資料時，畫個圖，看一看，比較好懂走勢。簡單取兩張圖：

圖1.某台灣公司V.S某美國公司股價走勢(簡稱A V.S C)

圖2.某台灣公司V.S某美國公司股價走勢(簡稱B V.S C)

感覺起來，好像有曖昧關係歐。

使用資料分析手段來跑跑：

圖3.判定係數：A 跟 B V.S C

從26周來看半年內判定係數具備的解釋能力在B相當有限，進一步透過相關係數在驗證看看如下圖4。相關性不低說 XD

圖4.相關係數：A 跟 B V.S C

整理一下WIKI：

相關係數：用來衡量兩個變數相對於其相互獨立的距離

判定係數：在統計學中用於度量應變數的變異中可由自變數解釋部分所占的比例，以此來判斷迴歸模型的解釋力。對於簡單線性迴歸而言，判定係數為樣本相關係數的平方。

白話意思：眼睛看感覺之間會有C動A就動的錯覺。

以前念書時沒記錯，除非有工程技術支持不然一定先作相關係數在開始作迴歸相關分析，再作多變量等等分析(離題了)；回到正題，根據上述分析重點說明，來開始自動化八

流程：

1.資料參考YAHOO FINANCEV下載的周股價

        說明：爬蟲技術太多了，能掌握資料就是好方法，小編這次透過WinHttp.WinHttpRequest.5.1的方式。

2.撰寫相關係數、判定係數分析VBA

        說明：相關係數在EXCEL中用Correl函數即可，判定係數可以參考小編另外一篇劣作。

圖5.自動抓取的資料.....應該沒有人看股價猜股號八

圖6.相關係數

說明：超過60%用*號標示跟顏色標示

圖7.判定係數

解讀：

小編以長期(208周)與短期(52周內)，數量作解讀，如果長期都有超過60%甚至是80%以上，以及若同一時間大部分公司都產生相關，那就要好好研究一下了，畢竟巧合會發生但不能錯過，若時常發生也並非巧合一詞可以帶過的。

最後程式寫完，一邊吃個麥當勞看結果。

SUMMY：

在沒有工程技術支撐的領域中，如社會科學調查等等，相關係數、判定係數等，算很常見的方法歐，透過VBA技術整合爬蟲與資料分析，使其自動化，省下時間吃吃麥當勞看有無投資機會 哈，以上簡單分享。

KEYWORD：爬蟲、相關係數、判定係數、麥當勞優惠餐

相關文章：VBA：相關係數；Correl

股票：集保庫存(千張大戶V.S不足一張人數V.S持有一張人數)3/26彙整

 

圖1.3/26

我也不知道好壞，手上有資料就簡單整理，勿對號勿入做也不作為投資參考

顯卡挖礦之亂：你是否真的評估風險了

小編以朋友用的顯卡3060來完成這一篇文章內的所有成本與收入計算。

p.s這一篇在3/28號完成，所以數字都是當時的數字做估計。

3060來試算成本，以顯卡約2萬買6張約要12萬，功耗約115瓦，做成本計算，以每月30天做計算比較好算為前提，不算主機、1000W電源供應器、礦卡架與顯卡外接的轉接座，先來計算電費：顯卡24小時開機＊30天＊24小時，電費等於6卡＊30天＊24小時＊115W=496800瓦．．．．．😖

圖1.3060耗電(降功耗)

參考電費：

圖2.電費參考(資料來源：台灣電力公司)

我們根據這個參考電費，來算一下最低電費（３０天，不含電費、不含冷氣，不含你開IPAD等生活上用電歐）到底要多少錢呢！496800/1000=496.8度，電費用電度數落在3.52~2.89元間，我們以2.89最低費用計算等於每月要1436元😨😨小編整理到這，有點頭暈吃個香蕉補充糖分先。

換算算力效益的網址：https://www.nicehash.com/profitability-calculator/amd-rx-5700-xt-8gb

P.S小編是在3/28日做查詢的，若有任何資料異動，別炮我。

圖2.查詢設定

圖3.試算1

圖4.試算2

先來看看每月收入至22757.8這數字，不要用這個網站的成本歐（因為台灣有累進電費度數）

來彙整一下最低成本：顯卡12萬元，電費1436X12=17,232，第一年固定成本粗估為13.7萬元。第一年順利下，收入為22757.80X12=273093，收益27.3萬-13.7萬為13.6元等於每個月1.13萬元被動收入，如果是每個月出金，等於這部分轉換成本，小編都沒算歐。

這邊小編簡單小結一個小結論，投入6個月回本，這生意真的有淺力?差不多近2個月可賺回一張顯卡😍

接下來，我們來看一下ＢＴＣ跟匯率走勢(資料來源)

圖5.ＢＴＣ6個月走勢

6個走勢看起來很強歐  讚!

圖6.ＢＴＣ5年走勢

但拉成5年走勢就，似乎離平均線靠近的時間長度，就比較多的樣子QQ。

整理到這，小編延續一下前面的小結論:

1.首先BTC走勢不能在6個月走弱（走下坡）的意思。

（台幣走勢未來怎走不在討論範圍，小編也無法預測僅能說匯率走強走弱1％這1%對比btc走勢來說，權重影響不高）

至於未來6個月走勢，小編不知道會怎樣發展，僅在此表示此一風險而以，但是！我們可以模擬阿例如BTC跌20%，則表示每月收入22757.80X0.8=18206.24，18206.24Ｘ１２＝21.8萬元，21.8萬－13萬7=8萬1，白話意思就是挖一年等於每約多了6750元(幾個月能賺回一張顯卡自己算搂)

；例如BTC跌40%（希望不要發生），則表示每月收入13654.68，每年收入＝163856.16元，16.3萬-13萬7=2.6萬，每月收入剩下2張小朋友在多一點（天啊）；怪了問題出在那?????????

怎跌了40%不是收益減少40%。ＷＨＡＴ'S ERROR ????

P.S小編還是以2萬元抓顯卡的價格歐，拍賣上面是一堆賣2.4萬上下的賣家 XD

來答案在固定成本，怎說？？

試想如果小編開一間RIVER手搖飲料店，如果不賺錢，可以裁員，或是統計出營業額低的時間減少用電，或是統計銷售品項，針對銷售差的品項做停賣等等，一個老闆可以控制的作為，來好好降低自己的每個月變動成本，但已投入的店面成本卻是無法改變。

所以試想變動成本當作挖礦電費，固定成本當作是買的顯卡，那不挖礦電費當然省下來，但是不挖，則收入等於0，對比一下飲料店好像有點不公平，但挖礦的礦價價格跟轉換價是市場決定的，不也一樣不公平，開飲料店還可以搞促銷拉高有利潤品項的淨利哩～～～～不廢話了，小編在這整理3個重點（風險整理）：

風險整理1～3：

1.變動成本無法控制。

（很重要小編要說三次，小編還沒算冷氣電費成本、冷氣電費成本、冷氣電費成本）

2.固定成本不夠低，當市場轉換價下滑注定要更長時間才能回本

3.市場價格由市場決定。

這時候想必有更多礦工看到這一篇文一定會留言反擊：我可以賣顯卡阿換錢阿。或是去買二手卡來加強算力阿.....。小編不玩筆戰更不筆戰，有挖過礦的人都知道，甚至爬過文的更清楚，當市場下滑時，是成山成堆的卡在賣，以及你買二手卡真的算力完全沒打折，不當機，倒楣一點挖一段時間出保原廠被拒保的大有人在（刷ＢＩＯＳ、記憶體問題導致破片率等等），畢竟這部分買賣爭議不是沒有，也非不存在，應該沒有人願意當冤大頭的吧！！

風險整理(續)：

4.賣卡價格、賣卡顯卡本身破片率過高可能有對消費者應盡責任（別以為在拍賣寫保固7天過後不負責這類的話就收錢安心）

礦卡問題搜尋

某PPT文　某新聞

5.BTC走勢走強走弱的風險：走強當然最好，走弱的話損益平衡點要定在那個BTC價格或是時間點？當然你也可以不挖BTC挖ETH或其他的，但風險應該大同小異。

小編有個朋友專門搞PYTHON、ＡI 等等的，他有很多顯卡幫忙做運算。前一段時間我們群內也在聊挖礦，他也分享他買了一張ＮＶＩＤＡ　3090這張卡（才買1499.9美金別懷疑買的早就是有便宜，現在台灣沒有5萬＋組裝一台電腦很有名的原X屋是不出貨的歐），在他的居住地剛剛好在下雪用電取暖實在是太貴了，本來要買煤油的，但他沒有買車，又適逢疫情影響誰想要下雪出門阿，又不是台灣走幾條街搞不好就有加油站了，聰明的他靈機一動，拆機殼就來挖礦取個暖八（沒開玩笑），在某些國家真的電跟油一樣的物價，台灣是真的電很便宜，前幾天應該是3/23八，閒聊到XMR他也分享他本周如果有出金應該是多少錢（我猜他應該是屬於可以每周出金的算力），180美金；我傻眼了一下恩沒錯180美金不少ㄝ，有一個很大的重點卡是天上掉下來的，怎掉下來的不方便公開說明。

說這段朋友圈故事在表示啥，我這個朋友的卡主要都是用來算數學，其次他是取暖用，也就是說沒有24小時都在挖礦，而是工作之餘；再者他的卡是天上掉下來的（我強調沒說免費歐），那在看本篇文的你或你或鄉民，可以區分淨賺180美金（周）跟月收入22757.80台幣的差異嗎？不過我這位朋友更樂意跟我分享他看那一本書研究那些演算法甚至是分享CUDA運算的經驗談，挖礦則是小編白目跟不懂跟他請教的。

對，重點就是他幾乎沒有折舊成本（固定成本）的問題。然後再加上前面提的風險。

請看本篇文的各位你、你或你等，掏錢買顯卡買挖礦週邊硬體時（電源供應器、顯卡轉接座前），能多想想這些風險是否能承擔以及你願意花多少時間跟需要花多少時間回本（我通常都做最壞打算）。

續（轉嫁成本大絕招）：

這時候一定有人會說，我可以找朋友一起分擔阿，找6個人一起買卡，或是本來有卡的人支援一下到時候來拆帳就好了，小編僅能說帳目透明清楚，遊戲規則談好即可，但前面提的風險是否有盡到告知義務（買基金至少都有公開風險說明書　XD)，別最後剩下一張嘴；小編也是上班族僅能以上班族賺錢誰不辛苦阿，別找人來OOXX(消音)，當然若你借卡出去後，挖礦風潮過後，卡拿回來賣不掉，然後顯卡破片也沒差的人，都不在此限歐。

小編做最後的總結：

風險：

1.變動成本無法控制。

（很重要小編要說三次，小編還沒算冷氣電費成本、冷氣電費成本、冷氣電費成本）

2.固定成本不夠低(若卡買1萬元，收入不變下則此一風險降低)，當市場轉換價下滑注定要更長時間才能回本

（小編本文僅計算顯卡而以歐，還沒算其他的硬體成本，要知道完整成本請自己GOOGLE）

3.市場價格由市場決定。

4.賣卡價格、賣卡顯卡本身破片率過高可能有對消費者應盡責任

（別以為在拍賣寫保固7天過後不負責這類的話就收錢安心，現在買賣二手車都有數不完的判例了）

5.BTC走勢走強走弱的風險：走強當然最好，走弱的話損益平衡點要定在那個價格或是那個時間點？？

以上是風險整理。

在考慮顯卡有限壽命後，小編根據上敘風險，自己感覺是，在挖礦過程中，一、半年內不能跌價甚至是不能跌超過20%，二、一年內賭成本回收，三、第二年賭虛擬幣不能跌超過平均線1個標準差（自己算），最後是賭在你自己界定的時間價值內（甚至是挖礦軟體在決定你卡的壽命）顯卡不能壞跟可以一直挖。

小編有一個更可愛的朋友，年紀比小編小，但他分享的不是挖礦而是時間價值；

一個人如果以活70歲來說，扣掉前面20年成長期間，算50年好了，50年相當於438000小時（睡覺時間也算在內了歐），挖礦一年是8769小時，3年是26280小時；他分享，同樣的時間中，他願意陪陪老婆，跟自己好好進修，都是無價的；花約17萬＋2.6萬小時做一件未來可能不確定，然後似乎很有限度的事，值得？？這就看每個人的價值觀了，絕對沒有對錯。

小編也引用這位可愛朋友的金言，作為結語。

時間很貴，真的很貴。

最後感謝這段時間陪我一起浪費時間討論一些有得沒得的朋友，在跌倒之前能被扶一把，再次感謝。

更新：5/4，看來挖礦的風險還很"火大"

圖7.

2022.02.08更新:自2022.01月份礦災後看到的拋售潮

圖8.