2021年1月30日 星期六

2021年1月24日 星期日

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)     "                        


2021年1月18日 星期一

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.成功^ㄡ^










2021年1月13日 星期三

VBA:連結;Hyperlinks

 最基本的參數參:Hyperlinks.AddHyperlinks 物件

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

寫給自己看,也作分享

連結開啟檔案:


FILE_PATH:是檔案路徑
連結MAIL:參考:Hyperlinks.Add


連結網站:參考:Hyperlinks.Add


連結工作表的儲存格:

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

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



stock:工作表名稱的變數

2021年1月12日 星期二

花蓮:九曲洞+天祥

















 

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

 

三仙台:




成功海殯公園:




VBA:即時技術分析+即時股價 V2

 

圖1.
說明:V2版做了一些調整,因為有用到網路資源,增加多線路查詢功能,以及下拉式選單做快速概念股查詢、還有交易量也一起騰上去了;上一版的無人置守功能也完成了,再思考要用到價通知好還是用技術分析走勢判定結果來通知@@。

圖2.下拉式選單
說明:主要增加部分。





2021年1月11日 星期一

VBA:新增與刪除定義名稱

 想寫一個自動更新折線圖的資料,最簡單的方法就是加入"定義名稱",透過"定義名稱"來控制折線圖的資料區間。

主要要使用到WORKBOOKS的NAME屬性來新增。MSDN

主要語法:

ActiveWorkbook.Names.Add Name:=名稱, RefersTo:=參照儲存格位置

名稱可以自訂,參照儲存格位置這邊建議寫完整一點,才不會出包。

EX: 

ActiveWorkbook.Names.Add Name:="TEST", RefersTo:="=" & "OSC" & "!$" & "A" & "$2:" & "$" & "A" & "$" & 10

新增一個名為TEST的定義名稱,參照 OSC工作表的A2:A10儲存格。

指定刪除:

ActiveWorkbook.Names(定義名稱).Delete

全部刪除:

Dim Name_UNIT As Name

For Each Name_UNIT In Application.ActiveWorkbook.Names

       Name_UNIT .Delete

Next



2021年1月10日 星期日

VBA:水平置中、垂直置中與其他設定

寫給自己速查  

垂直屬性:HorizontalAlignment 

水平屬性:VerticalAlignment 

置中:xlCenter

靠左靠右:XLLEFT、XLRIGHT

Sheets("工作表1").Range("m2").VerticalAlignment = xlCenter

  Sheets("工作表1").Range("m2").HorizontalAlignment = xlCenter

  Sheets("工作表1").Range("m2").VerticalAlignment = XLRIGHT

  Sheets("工作表1").Range("m2").HorizontalAlignment = XLRIGHT

  Sheets("工作表1").Range("m2").VerticalAlignment = XLLEFT

  Sheets("工作表1").Range("m2").HorizontalAlignment = XLLEFT

VerticalAlignment 

HorizontalAlignment 



VBA:即時技術分析+即時股價

 

圖1.

身為上班族,你是否跟我一樣有偷偷想掌握自己持股的需要,哈哈。
寫這個主要目的是希望用當天股市盤中的價格+歷史股價來滿足動態技術分析等期望。
小小編這兩天花了點時間,完成了這個EXCEL小工具,今天測試8檔股票花費時間為毫秒內完成。
功能說明:繪製20日DIM、DEM、OSC與股價線,繪製5K、5D線。
圖2.
DI/EMA12/EMA26:走勢判斷

DIE/DEM判斷:DIF與DEM走勢,誰強。
KD線判斷:KD誰強判斷
當日收盤、最高、最低顯示。

圖3.
圖4.
心情:有綠.....慘了。

下一步做動態股價自動更新跟LINE連動,滿足到價通知的功能。
來弄一個無人置守的追價工具。



2021年1月9日 星期六

股票+VBA:基本分析+技術分析

 最近有朋友在研究MACD的技術分析,就天冷沒出門做了一個。

圖1.技術分析
說明:配合基本分析的結果,多迷你圖視覺化下來,比較好閱讀。

圖2.基本分析(視覺)
說明:小小編自己做的基本分析
圖3.基本分析彙整表
說明:自己跑數據自己整理
下一步做一個簡易的動態追價工具。






VBA:一維陣列資料堆壘

經常有整理資料需要,自己寫給自己查詢用。
2個引數:陣列、結合符號
code:



2021年1月8日 星期五

2021年1月3日 星期日

VBA 開啟檔案 (二) FileDialog應用:開盤、收盤價、最高、最低、成交量整理

想法:
看到某篇M01網友想要整理每日收盤開盤交易量等價格,就也寫一篇簡單教學文當參考。
想法:
找尋可以下載資料的網站,其次透過之前小編一篇文章的教學做資料整理。
先來下載2天份資料(下載),然後參考範本檔案做操作。
主要流程:開啟檔案>抓取資料>回寫表單>下一個檔案
作一個ACTIVEX按鈕插入以下VBA CODE。
VBA CODE:


結果:


圖1.結果


2021年1月2日 星期六

VBA:玩玩儲存格資料橫條顏色色階(AddDatabar)

老樣子來一下MSDN:FormatConditions.AddDataBar



圖1.資料橫條圖(三大法人買賣%)
這是小小編自己在看3大法人買賣強度的橫條圖,比例數字表示跟前一天相比的百分比;綠表買,紅表賣。

先從簡單的開始:
VBA:
做一個VBA ACTIVEX 命令按鈕然後貼下以上代碼。

參考結果:

圖2.基本練習
先跑刪除再新增,相當簡單。
rg1.FormatConditions.Delete
rg1.FormatConditions.AddDatabar


進階應用:
VBA:
一樣做一個VBA ACTIVEX 命令按鈕然後貼下以上代碼。

參考圖3結果:多了顏色、最大最小值設定。
CODE相當多要設定,橫條圖效果才會顯著。
圖3.進階練習












數字統計:20240223

成交量大  漲幅大 統計: 演算法模擬: