【分享成果，隨喜正能量】這個世界,總有你不喜歡的人,也總有人不喜歡你。不管別人怎么對待你，都要珍視自己。刻意去討人喜歡,折損的,只能是自我的尊嚴。。

《VBA代碼解決方案》(10028096)這套教程是我最早推出的教程，目前已經是第三版修訂了。這套教程定位于入門后的提高，在學習這套教程過程中，側重點是要理解及掌握我的“積木編程”思想。要靈活運用教程中的實例像搭積木一樣把自己喜歡的代碼擺好。

(資料圖)

這套教程共三冊，一百四十七講，內容覆蓋較廣，也是初級和中級間的過渡教程，改版后的內容主要是提供程序源碼文件及代碼修正為32位和64位兼用代碼。今后一段時間會給大家陸續推出。今日的內容是第3講：VBA實現選擇區域的自動計算

第三講 利用VBA，在EXCEL表格中實現選擇區域自動計算

今日和大家分享一個VBA的小實例，也是在工作中會用到的。什么例子呢？我們在使用EXCEL時，如果選擇了幾個單元格會在下面直接讀出和是多少，這個功能十分的方便，那么這個功能能否做到隨心所欲呢？比如求和，比如計算選擇單元格的個數，比如計算所選單元格的負值時多少,比如計算所選單元格的數值大于10的是多少，比如計算所選單元格是數值的為多少，當然，在實際的工作中有很多的情況，比如要在報表中直接知道有多少出勤人數，產量高過平均值的有多少人，我們無法一一的給出代碼，就以最常見的選擇區域求和來做一個示范吧。

1 利用For Each循環實現場景需求的代碼

該如何實現這個功能呢？今天我們就利用VBA采用FOR EACH循環來實現我們的需求。

下面的代碼實現了選擇區域自動求和和選擇單元格個數的自動計算功能：

Sub mynz_3() "第3講:在EXCEL表格中實現選擇區域的自動計算

Dim t As Long

Dim k As Long

Dim d

Sheets("3").Select

k = 0

For Each d In Selection

k = k + 1

If IsNumeric(d.Value) Then

t = t + d.Value

End If

Next

MsgBox "所選區域數值之和為：" & t & ",所選區域單元格共：" & k & "個"

End Sub

代碼截圖：

2 代碼解讀及實現的效果

我們先來看看對上述代碼的解釋：

1） Sheets("3").Select，說明這個功能是在”3”的工作表中來實現的。

2） Dim d 定義d這個變量時可變的，沒有給他具體的變量名稱，讀者可以自己查查我之前的文章，可以看到此時計算機分配給這個變量的具體內存是多大

3） For Each d In Selection 用的是FOR EACH的循環語句，遍歷的元素是SELECTION中的各個元素，這個元素用d表示

4） k = k + 1 用K來表示SELECTION中的單元格的個數，有一個就加上1

5） IsNumeric(d.Value) 是判斷單元格是否是數字。這時用到IS函數，對于是否是數字的判斷，在VBA和EXCEL中是不同的函數，要切記。

6） t = t + d.Value 如果是數字就累加求和

7） MsgBox "所選區域數值之和為：" & t & ",所選區域單元格共：" & k & "個" 遍歷完成所有元素后彈出對話框，給出結果，關于MSGBOX函數后面還有講解。

下面我們看看代碼的運行結果：

我們選擇了上述的9個區域，數字為1,3,5,7,9,9,9,9 看下面程序的運行結果：

完全正確。這就實現了我們的預期。

當然，我上面的代碼只是實現了眾多的問題中的一個，如果是求其他的問題只是將代碼略加改動即可，如，求選擇區域大于10的，只要改成：d.value>10,在做相應的計數即可。這就是VBA的方便之處。

今日內容回向：

1 為了實現選擇區域的自動計算，需要哪些函數？

2 為了實現選擇區域的自動計算，需要用到哪個循環語句？

3 如何實現選擇區域的自動求出不是數字的單元格個數？

本講內容參考程序文件：VBA代碼解決方案（1-19）.xlsm

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

【分享成果，隨喜正能量】不要用無數次的折腰,去換得一個漠然的低眉。我們終其一生，不是為了滿足所有人，而是只需要找到和自己同頻共振的那一部分人。。

關鍵詞：

責任編輯：Rex_11