觀音山：路邊的櫻花樹

 

股票：營業利益連2季度成長

 

篩選條件:

營收年增率>10%

營業利益成長2期

營業QOQ>100%

 

圖1.2021.01.29篩選

vba：換行跟常用的符號

 整理給自己查，也作分享

chr指令 VBA常數         英文定義

chr(8) vbBack

chr(9) vbTab         tab

chr(10) vbLf                 newline (line feed)

chr(12) vbFormFeed form feed

chr(13) vbCr             return (carriage return)

chr(34)     "                        

VBA：用LINE NOTIIFY 作股價追踪

 

網路上已有相當多類似的作品了，小小編參考了廣大網路資源，做了一個自己專用的，成果如圖1.

圖1.成果

說明：嘗試以多VBS控制同一工作表，做動態股價更新；當股價有異動發通知到手機上；缺點就是LINE NOTIIFY每小時僅能1000則訊息，真要命；再來多測試測試。

下一步改成股價有異動時，傳送照片好了，這樣可以節省傳送次數。

技術點：

1.要讓VBA生成VBS專用的字串，配合文字檔案的生成，把指令寫進去。

2.物件連動也需寫入VBS中。

3.讓VBS具備多SUB功能，自主控制與判斷，達到類似多緒用途。

1/20更新：

透過RANGE.COPYPICTURE的方法做照片複製，不穩定讓我充滿了遺憾，僅能宣告失敗。

解決之道：

在小編放鬆後，思考既然是限制1000則，不然就讓訊息彙整變成一則吧!

以大盤!TWII指數變化為例，當變化時就取得指定股別得所有成交資料傳到LINE NOTIIFY上。

圖1.成功^ㄡ^

VBA：連結；Hyperlinks

 最基本的參數參：Hyperlinks.Add、Hyperlinks 物件

小編最常用的是連結開啟檔案、連結MAIL、連結網站、連結工作表的儲存格

寫給自己看，也作分享

連結開啟檔案：

FILE_PATH：是檔案路徑

連結MAIL：參考：Hyperlinks.Add

連結網站：參考：Hyperlinks.Add

連結工作表的儲存格：

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

        "'工作表名稱'!儲存格位置如A1", TextToDisplay:="鉀肥"

stock：工作表名稱的變數

花蓮：九曲洞+天祥

 

花蓮：三仙台+成功海殯公園

 

三仙台：

成功海殯公園：