VBA 營收資料分析(二)

參閱本篇分享文，也請尊重網路資源，請勿濫用網路爬蟲相關軟體技術歐。



圖1.程式碼流程

續前篇，維護好股票代碼後，做網路爬蟲與分析。

如何分析請參考前篇內容，至於資料怎整理的???

筆者是先想好呈現方式後再開始撰寫程式碼。

筆者是這樣呈現的，單純參考：



圖2.整理呈現

做一個Activex命令按鈕，並使工作頁命名為"營收盈餘"與"營收彙整"等兩頁，然後在按鈕內撰寫以下內容：



測試：

筆者以1101、1102、1301、2002做測試下：

image

圖3.測試結果

完成!!!

如果要在更豐富一點，也可以透過儲存格設定方式，讓年增率部分以百分比與顏色方式呈現。

在CommandButton1_Click增加：

Sheets("營收彙整").Range("f" & i & ":g" & i).NumberFormatLocal = "0.00%;[紅色](0.00%)"

就會長類似這樣：

image

圖4.美工後結果

大致上，先到這；整理美觀部分也來單獨整理一篇vba好了。

缺點整理：

時間性：如果要一次性抓上千筆資料，要花一點時間，畢竟這是單執行緒的程式，雖然比手動快多了，筆者自己的電腦，進行測試大約要13~15分鐘吧。

資料保存：筆者沒有寫自動存檔功能，資料都爬回來了，不保存下來總覺得有點可惜，應該弄個資料庫加強版才對厚。

昨晚想到沒寫怎應用：下