Excel VBA (一) : 自訂函數之自動加總

最近幫忙別人解決 Excel 的資料處理問題, 順便將一些使用心得做一下筆記

當我開啟Excel時, 預設是沒有開發人員的功能(如下圖的紅框)

要開啟就要點擊Excel選單的檔案(如上圖的黃框)
再點擊選項(如下圖的紅框)

再點擊自訂功能區(如下圖的紅框)

再將開發人員的功能打開即可(如下圖的紅框)

開啟開發人員中的Visual Basic(如下圖的紅框)就會開啟VBA的功能視窗了

我先嘗試最簡單的程式, 看看是否成功(如下圖)

Function 我的加總() As Double
    我的加總 = 100
End Function

再去Excel的工作表1中, 在任一儲存格中輸入"=我的加總()", 測試是否會顯示 "100"(如下圖), 結果成功了, 代表Excel VBA中函數與變數名稱都是可以用中文

再來就是真正開始寫程式了, 如果真正要寫的完整會要寫很多例外處理, 這邊只做簡單的版本, 請大家見諒喔!以下是我完成的程式碼

Function 我的加總(加總區域 As Range) As Double
    Dim data As Variant
    我的加總 = 0
    For Each data In 加總區域
        我的加總 = 我的加總 + data
    Next
End Function

在Excel中輸入如下圖的資料來測試

繼續在B8儲存格中點選 "插入函數fx" (如下圖)

出現Excel的函數視窗後, 函數類別選擇 "使用者定義" 會出現 "我的加總" 函數, 按下確定後選擇A1..A5的加總區域, 結果顯示15, 代表程式初步測試OK!

再來我將 B5 故意留空白, 也讓它加總看看, 手動將B8的 "A1:A5" 改成 "A1:B5" 結果顯示29(成功)!

再來是C1我故意輸入文字 "A", 讓它加總看看, 手動將B8的 "A1:B5" 改成 "A1:C5", 結果顯示 "#VALUE!", 如果要改成非數字的都自動濾掉不加, 就要再修改程式囉!

最後要感謝這篇文章教了如何在 Google Blogger 中將程式碼區塊改變顏色

---

測試時間: 2020年07月28日
測試環境: Windows 10 家用版, Excel 2019 家用版