前面講過，VBA代碼有兩種組織形式，一種就是過程（前面的示例中都在使用），另一種就是函數(shù)。其實(shí)過程和函數(shù)有很多相同之處，除了使用的關(guān)鍵字不同之外，還有不同的是：
雖然可以把所有代碼都放在一個(gè)過程，或者一個(gè)函數(shù)里面，但是這樣會(huì)使代碼難以維護(hù)，特別是非常不便于其他人查看修改。而有時(shí)一些重復(fù)性的代碼，也應(yīng)該把它們獨(dú)立出去，作為一個(gè)子過程或子函數(shù)來組織。使用子過程和子函數(shù)的目的，就是為了便于組織代碼、便于維護(hù)。
過程以Sub開頭，End Sub結(jié)束，過程中需要執(zhí)行的代碼放在中間。格式如下：
Sub 過程名() ' 需要在過程中執(zhí)行的代碼End Sub過程名后面的括號(hào)是必須的，過程可以帶參數(shù)，就放置在括號(hào)里面，稍后會(huì)有說明。
過程示例：
Sub test() Debug.Print "Hello"End Sub與過程類似，函數(shù)的格式如下：
Function 函數(shù)名(參數(shù)1, 參數(shù)2, ...) As 數(shù)據(jù)類型 ' 需要在函數(shù)中執(zhí)行的代碼 函數(shù)名 = 函數(shù)執(zhí)行后的結(jié)果End Function函數(shù)名后面的括號(hào)是必須的，函數(shù)通常都帶有參數(shù)，放置在括號(hào)里面。函數(shù)也可以不帶參數(shù)，但這種情況下的函數(shù)通常沒什么意義。
括號(hào)后面的 As 數(shù)據(jù)類型 雖然并不是必須的，但是我強(qiáng)烈建議加上。因?yàn)楹瘮?shù)通常都需要有返回值，這個(gè)數(shù)據(jù)類型就表示著返回值的數(shù)據(jù)類型。
函數(shù)體最后通常都帶有一條返回值語句，把函數(shù)執(zhí)行的結(jié)果賦值給函數(shù)名，就可以在調(diào)用這個(gè)函數(shù)的地方得到這個(gè)函數(shù)的執(zhí)行結(jié)果。這個(gè)返回結(jié)果的數(shù)據(jù)類型應(yīng)該與函數(shù)名后面As的數(shù)據(jù)類型一致，否則可能會(huì)出錯(cuò)。
函數(shù)示例：
Function my_sum(n1 as Integer, n2 as Integer) As Integer Dim s As Integer s = n1 + n2 my_sum = sEnd Function上例中定義了一個(gè)名為my_sum的函數(shù)，它接受兩個(gè)類型為Integer的參數(shù)，并且返回值是Integer類型。在函數(shù)內(nèi)部計(jì)算了這兩個(gè)參數(shù)相加的和，并把這個(gè)和作為返回值賦給my_sum?？梢酝ㄟ^調(diào)用這個(gè)函數(shù)，并傳遞相應(yīng)的參數(shù)，獲得它的返回值。
定義函數(shù)后，就可以在VBA中的過程，或者其它函數(shù)，或者在Excel表格中使用這個(gè)函數(shù)了。
在Excel表格中使用：
在VBA過程中使用：
再次強(qiáng)調(diào)，函數(shù)是不能直接執(zhí)行的。上例中，如果試圖把鼠標(biāo)光標(biāo)放在my_sum函數(shù)中，再按F8，或者點(diǎn)擊工具欄中的執(zhí)行按鈕，都不會(huì)執(zhí)行這個(gè)函數(shù)，而是會(huì)彈出一個(gè)運(yùn)行宏的選擇對(duì)話框，而在這個(gè)對(duì)話框中，是沒有任何函數(shù)可供選擇的，只有過程：
前面說過，過程和函數(shù)，都可以是被相互調(diào)用的。
格式1：
Call 過程名格式2：
Call 過程名(參數(shù)1, 參數(shù)2, ...)如果過程不帶參數(shù)，那么可以使用第1種格式，過程名后面不需要括號(hào)
如果過程帶有參數(shù)，則要按照參數(shù)的順序依次把參數(shù)寫到過程名后面的括號(hào)中。即使用第2種格式。
函數(shù)的調(diào)用在本章第2節(jié)中有示例。函數(shù)的調(diào)用通常會(huì)在調(diào)用時(shí)把其賦值給一個(gè)變量，以獲取函數(shù)返回值。
Sub test() Dim s As Integer s = my_sum(5, 5) Debug.Print sEnd SubFunction my_sum(n1 As Integer, n2 As Integer) As Integer Dim s As Integer s = n1 + n2 my_sum = sEnd Function這里應(yīng)該提出的是，函數(shù)應(yīng)當(dāng)要有返回值的，因?yàn)槿绻恍枰祷刂?，那就?yīng)該直接使用過程而不是函數(shù)了。
參數(shù)和使用對(duì)于過程和函數(shù)都是一樣的。所以本節(jié)的內(nèi)容對(duì)過程和函數(shù)都適用。
參數(shù)可分為可選參數(shù)和必選參數(shù)兩種。必選參數(shù)在調(diào)用（過程或函數(shù)時(shí)）必須加上，否則會(huì)報(bào)錯(cuò)?？蛇x參數(shù)則可寫可不寫。默認(rèn)是必選參數(shù)，可選參數(shù)在定義時(shí)用Optional關(guān)鍵字聲明，并且可選參數(shù)必須放在參數(shù)列表的最后面。
必選參數(shù)在定義時(shí)放置在過程或函數(shù)名后面的括號(hào)中，格式為：
參數(shù)名 As 參數(shù)類型如：
Sub sub_test(s As String) Debug.Print sEnd Sub在調(diào)用時(shí)，必須傳入?yún)?shù)：
Sub test() Call sub_test("hello")End Sub格式與必選參數(shù)類似，只是在參數(shù)名前面用Optional聲明參數(shù)是可選的。
Optional 參數(shù)名 As 參數(shù)類型如：
Sub sub_test(Optional s As String) Debug.Print sEnd Sub在調(diào)用上述過程時(shí)，可以不傳入?yún)?shù)，此時(shí)則不會(huì)輸出任何東西，也不會(huì)報(bào)錯(cuò)，因?yàn)閰?shù)是可選的。如果傳入了參數(shù)，則會(huì)輸出這個(gè)參數(shù)。
可選參數(shù)還可以設(shè)置默認(rèn)值，即如果在調(diào)用時(shí)不顯式傳入這個(gè)參數(shù)的話，那么就使用定義時(shí)所使用的值。如下過程：
Sub sub_test(Optional s As String = "Hello, World") Debug.Print sEnd Sub帶參數(shù)調(diào)用：
Sub test() Call sub_test("I am a boy")End Sub輸出：I am a boy
不帶參數(shù)調(diào)用：
Sub test() Call sub_testEnd Sub輸出：Hello, World
此時(shí)可選參數(shù)必須放在最后
Sub sub_test(var As Integer, Optional s As String = "Hello, World") Debug.Print var Debug.Print sEnd Sub只傳入必選參數(shù)：
Sub test() Call sub_test(50)End Sub輸出：
50
Hello, World
同時(shí)傳入可選參數(shù)與必選參數(shù)：
Sub test() Call sub_test(50, "Hi, Meinv")End Sub輸出：
50
Hi, Meinv
本系列教程其它文章
Excel VBA 入門（零）
Excel VBA入門（一）數(shù)據(jù)類型
Excel VBA入門（二）數(shù)組和字典
Excel VBA入門（三） 流程控制1－條件選擇
Excel VBA入門（四）流程控制2－循環(huán)控制
Excel VBA入門（五）Excel對(duì)象操作
Excel VBA入門（六）過程和函數(shù)
Excel VBA入門（七）注釋、宏按鈕及錯(cuò)誤處理
Excel VBA入門（八）單元格邊框
Excel VBA入門（九）操作工作薄
聯(lián)系客服
