2022年4月30日 星期六

股票:外資投信持股20天變化(2022/04/29)

  僅供參考不作為投資理財規劃。


VBA:取消篩選(Autofilter、AdvancedFilter )

執行c_3 副程式即取消篩選狀態

Sub C_3() '篩選與復原

  Dim ws As Worksheet

    Set ws = ThisWorkbook.ActiveSheet

    With ws

        If .FilterMode Then

            .ShowAllData

        End If

    End With

    Set ws = Nothing

End Sub

大盤指數紀錄(2022.05.01)

 

大盤指數紀錄


2022年4月28日 星期四

metter 天平維修

 天平維修實例:

無法正常連線,委託人說明在地原廠亦無法處理,於接獲此一需求,因產線需求,火速協助處理。

事後得知,這台是天秤中勞斯萊斯等級的天平,內部電路技術以當年來說,簡直就是極致設計。




記錄:用VBA 彙整三大法人交易日報表

 小編無聊之作

網路一堆教學文了,方法也超,如WORKBOOKS.OPEN、QueryTables或其他方式,

小編就不獻醜了;看看動作片就好。

主要關鍵在於亂碼處理,與資料正規化。

流程:跑網路>亂碼>資料正規化>寫入資料>自動另存新檔

也非用QueryTables做法,QueryTables用多了,有點 BUG 哈。

主要透過MSXML2來處理網路資料為主。

影片:(忘了處理排版 XD)






2022年4月27日 星期三

財報小整理 2022.Q4(產業整理+營業利益率+存貨周轉率)

 財報小整理(產業整理+營業利益率+存貨周轉率)

下載


分數變大,表示成長越多季度,反之為衰退。

空白表示程式遇到無法判斷的情況,自己簡單資料整理,不作為投資理財依據。



2022年4月26日 星期二

股票:外資投信持股20天變化(2022/04/26)

 僅供參考不作為投資理財規劃。


VBS GetObject 2個簡單例子、儲存格寫資料、call 副程式

GETOBJECT: 

簡單例子:

MSDN來一下

VBS檔,可以直接用記事本編輯歐,記得副檔名要用.VBS而已

先設置ExcelObj 為"Excel.Application"物件,小編透過活頁簿1做DEMO所以檔案名稱跟工作表名稱與儲存格都要設定,跑完程式記得要釋放歐。

,Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks("活頁簿1.xlsm").Sheets("工作表1").Range("b1") = 1

Set ExcelObj = Nothing

 延伸:

增加一個

Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks("DEMO").Sheets("s").Range("b2:l2")=1

ExcelObj.Workbooks("DEMO").Sheets("s").Range("o2") =10  

'驅動目標工作簿TEST副程式,並傳送數字資料2

ExcelObj.Application.Run "TEST",2 '目標工作簿的mobule做副程式驅動

Set ExcelObj = Nothing


怪的是office365 ok,但office 2010 faile,有空再測試2013

下一篇 Creatobject

2022年4月24日 星期日

股票:工業電腦紀錄

 自己整理給自己勘,勿作為理財投資依據。



VBA:寫CSV檔案遇到資料有逗號怎辦??

因為需要,小編透過Scripting.FileSystemObject做了一個寫CSV的模組,沒有用純文字檔處理的方式:

VBA CODE:





以上

主要是寫入資料>檢查有無重複>有刪除/無寫入新檔>DONE

為避免單一次寫入資料過大,透過迴圈逐行寫入。

後來發現資料中會帶逗號,思考兩條路。

1.不要寫CSV,因為CSV就是用逗號區分資料的 ,用其他格式然後給EXCEL讀檔這樣???

2.直寫EXCEL檔案,因為用CSV主要目的是給EXCEL用,就直接寫EXCEL八

定案方案2直接衝:


VBA CODE

以上
直接將整理資料方法寫在EXCEL上,然後透過OUTLOOK或WORD的 VBA去傳送資料跟乎交。
主要VBA>生成EXCEL物件>生成WORKBOOKS物件>開啟檔案>執行SUB>SUB 接收資料並處理

缺點:會占用使用時間較久,原方案是透過VBA>VBS>背景作業,無奈資料本身有逗號 XD

內容看起來沒啥,也利用了假日5小時做測試。一定要記錄一下。

2022年4月23日 星期六

產業別當沖比2022/04/06~2022/04/23

產業別當沖比2022/04/06~2022/04/23

單純資料分享,不作為投資理財參考

資料分類:根據公開觀測站營收資料的產業分類 

藍色是交易張數;紅色是當沖



股票:集保庫存變化,400張合併分析(2022/04/23)

股票:集保庫存變化,400張合併分析(2022/04/23)

單純資料分享,不作為投資理財參考

整理資料下載

資料分類:根據公開觀測站營收資料的產業分類



股票:外資投信持股變化(2022/04/23)

 股票:外資投信持股變化(2022/03/25)

單純資料分享,不作為投資理財參考

整理資料下載

資料分類:根據公開觀測站營收資料的產業分類




2022年4月18日 星期一

股票:法人最愛買2022.04.18

 簡單資料整理,不作為理財規劃參考。


圖1.外資


圖1.投信





股票:零股最愛買 2022.04.18

集保庫存資料簡單資料整理,不作為理財規劃參考。


圖1.股數增加期間
股數 第一名:創源!!!!



圖2.人數增加期間
人數 第一名:斐成!!!!



2022年4月17日 星期日

集保庫存400張變化(2022/04/15)

 


單純資料分享,不作為投資理財參考

整理資料下載

資料分類:根據公開觀測站營收資料的產業分類








2022年4月15日 星期五

vba 刪除檔案方法不愛 KILL

懶人用法kill :

語法很簡單就是 KILL +檔案路徑+完整檔案名稱

但缺點是有時候會有一點BUG,如字串長度限制

非懶人法(Scripting.FileSystemObject):

Set fs = CreateObject("Scripting.FileSystemObject")

With New FileSystemObject '宣導一個新的物件
'FILEPath 要刪除的路徑+完整檔案名稱

    If fs.FileExists(FILEPath ) Then 

        fs.DeleteFile FILEPath 

    End If

End With



VBA OUTLOOK 練習取得資料夾名稱

練習取得資料夾名稱VBA:


說明:

練習取得資料夾名稱


2022年4月3日 星期日

VBA ERR處理 Automation 錯誤 2147319767~重安裝OFFICE 搞定

 -2147319767;Automation 錯誤

先前參照無效,或是參照到未編譯的類型。


就是這樣,我搞了好久,感恩更新的安全性,但也衍生參照錯誤發生。

參考

網友大神


最後直接重新安裝OFFICE 2019就搞定了。

思考:

昨天正常,今天不正常中毒?>比對法、元件異常確認?

檔案換電腦有無正常 答案:正常

掛載 AccessibilitycplAdmin 1.0做元件測試 答案:無解。

直接重安裝OFFICE.....................過關了。


8大行庫3.18後再紀錄(2022.04.01) IN CLOSE

3.18原文 

自己整理給自己刊的紀錄,不作為理財投資參考。

圖1.自己看的頁面

結論:有賺到零用錢了。

數字統計:20240223

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