VBA：計算月均價與期底

是否跟小編一樣，有計算月均價的需要，最近小編在計算某貴金屬的月均價，本來想用EXCEL的AVERAGE函數拉一下就好，但似乎期間很阿雜，就寫了個VBA函數來"處理"

VBA CODE：

月均價：

 

月均價+期底：

大致上流程：

圖1.VBA CODE流程

要設定4個引數。

例如：日期在A行，資料在B行，然後想要將資料寫在C與D行。

1.先做一個ACTIVEX命令按鈕出來

圖1.命令按鈕在那?

圖3.

2.在VBA編輯視窗上，設定好按鈕事件後，再打上

月均價+期底：

CALL AVERAGE_BY_MONTHLY_NEW("A", "B","C","D","e","f") 即可。

圖4.

執行完長這樣，在自己透過排序整理摟，如圖4.

圖5.

圖6.最近整理的某金屬與個股收盤價(月均價)

圖7.最近整理的某金屬與個股收盤價(期底)

Palladium Prices - Interactive Historical Chart