VBA傳遞參數(shù)步驟

到目前為止，你已經(jīng)創(chuàng)建了簡單的可以執(zhí)行具體任務的VBA過程，這些過程在它們運行前沒有要求你提供額外的數(shù)據(jù)。然而，在現(xiàn)實生活中，過程（子程序和函數(shù)）經(jīng)常需要參數(shù)。參數(shù)（自變量）是過程工作時需要的一個或多個數(shù)值。參數(shù)通常輸入在括號之間，多個參數(shù)用逗號分割開來。使用Excel有一陣了，你已經(jīng)知道Excel內(nèi)置函數(shù)根據(jù)你提供的數(shù)據(jù)可能產(chǎn)生不同的結果。例如，如果單元格A4和A5分別含有數(shù)字5和10，加和公式=SUM(A4:A5)將會返回15，除非你更改單元格里面的數(shù)值。正如你可以傳遞數(shù)值給Excel內(nèi)置函數(shù)，你也可以傳遞數(shù)值給自定義VBA過程。

現(xiàn)在，我們來看看如何從子程序傳遞數(shù)值給函數(shù)SumItUp。這個自定義函數(shù)目的是計算一個人的姓和名的字母數(shù)目。

1.在放置函數(shù)SumItUp的模塊里輸入下列子程序NumOfCharacters：

Sub NumOfCharacters()

            Dim f As Integer

Dim l As Integer

f = Len(InputBox("Enter first name:"))

l = Len(InputBox("Enter last name:"))

MsgBox SumItUp(f,l)

End Sub

2.  將光標放在過程NumOfCharacters的任意地方并按下F5。VB將顯示信息輸入框問你名字，這個信息框由下面的函數(shù)產(chǎn)生：

InputBox("Enter first name:")

3.  輸入任何名字，回車，VB接受你輸入的文本并且將它作為一個參數(shù)傳遞給函數(shù)Len。函數(shù)Len計算提供的文本的字母數(shù)目。VB將函數(shù)Len的結果儲存于變量f以供以后使用。這之后，VB顯示下一個信息框，這次是問你的姓。

4.  輸入任何姓，回車。VB將輸入的姓傳遞給函數(shù)Len來獲得姓的文本長度，然后數(shù)值儲存于變量l。接下來發(fā)生什么呢？VB遇到了函數(shù)MsgBox，這個函數(shù)告訴VB顯示函數(shù)SumItUp的結果。然而，因為這個結果還沒有準備好，VB很快就跳到函數(shù)SumItUp里，使用變量f和l儲存的數(shù)值來做計算。在函數(shù)內(nèi)部，VB用變量f的值取代參數(shù)m和變量l值取代參數(shù)n。一旦取代工作完成，VB將兩個數(shù)值加和起來，并且將結果返回給函數(shù)SumItUp。函數(shù)SumItUp內(nèi)部沒有其它的任務了，因此，VB又馬上返回子程序并且將函數(shù)SumItUp的結果作為一個參數(shù)提供給函數(shù)MsgBox?，F(xiàn)在這個信

息出現(xiàn)在屏幕上，顯示了字母總數(shù)目。

5.  點擊確定退出信息框，你可以多次運行過程NumOfCharacters，每次輸入不同的姓名。我們來看看另外一個使用變量傳遞參數(shù)的例子：

1.  在工程MyFunctions (Chap04.xls)里添加一個新模塊，并重命名為Sample2

2.  激活模塊Sample2并且輸入子程序EnterText：

Sub EnterText()

             Dim m As String, n As String, r As String

m = InputBox ("Enter your first name:")

n = InputBox("Enter your last name:")

r = JoinText(m, n)

MsgBox r

End Sub

3.  輸入下述函數(shù)過程：

Function JoinText(k,o)

             JoinText = k + " " + o

明確參數(shù)類型