2021年5月3日 星期一

VBA:練習畫折線圖(根據集保庫存資料)

畫持股變化折線圖:

 


怎畫的入門篇語法:MSDN

code:






2.整理原始資料:如下。


圖1.


這畫圖副程式,如上CODE內容,表頭長這樣:

持股對照圖(SHEET_NAME, RANGE_ADDRESS, DATA1, DATA2, xlColumnClustered_option, XLINE_WORD, DELTEE)

有7個變數要設定。

SHEET_NAME:資料位置的工作表

RANGE_ADDRESS:圖要放的儲存格位置

DATA1:第一組資料位置

DATA2:第二組資料位置

xlColumnClustered_option:畫圖設定,目前都設定0為主

XLINE_WORD:第二組資料的標題設定

DELTEE:是否把前回CHART物件刪除。

小編的資料,有特別整理出集保庫存分析,與每周收盤的股價,演練的資料為100張以下持股資料,小編的原始資料放在AL與AT這兩個儲存格,以及想把圖放在W14的儲存格位置,b_count_a這個變數是資料總筆數設定,小編是抓50筆所以"AL1:AL" & b_count_a的執行結果為"AL1:AL50"這樣歐,整體副程式呼叫設定如下:

Call 持股對照圖("集保庫存分析", "w14", "AL1:AL" & b_count_a, "AT1:AT" & b_count_a, 1, "當周最後收盤價", 0)

執行結果如下:

圖2.


沒有留言:

張貼留言

職場毒癌:你憑什麼以為你十年寒窗,抵得我三代從商

你憑什麼以為你十年寒窗,抵得我三代從商——這句話已經記不得是從哪裡看到的,可能是某部劇,也可能是某篇 FB 文章標題。 但最近,特別有感。 為什麼會有這種感觸? 職場上有個同事,一路慢慢升到課長,好歹也是管理職,雖說不上鐵飯碗,但在多數人眼裡也算穩定。 結果呢?輾轉換了兩個製造課...