按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
1。 在输入函数SumItUp的同一个模块里面输入过程RunSumItUp
2。 将光标放在该过程的任意地方，按下F5
85
… 页面 102…
技巧4－7 函数的快速测试
你编写自定义函数后，你可以在立即窗口快速的测试它。打开立即窗口，输入一个问号（？）在函
数名称前，可以显示该函数的计算结果。记住，要在括号里输入函数的参数值。 例如，输入：
？ SumItUp（54； 367。24）
然后回车。你的函数使用参数m和n传递的数值进行计算，函数的结果显示在下一行：
421。24
6。传递参数
到目前为止，你已经创建了简单的可以执行具体任务的VBA过程，这些过程在它们运行前没有要求
你提供额外的数据。然而，在现实生活中，过程（子程序和函数）经常需要参数。参数（自变量）
是过程工作时需要的一个或多个数值。参数通常输入在括号之间，多个参数用逗号分割开来。使用
Excel有一阵了，你已经知道Excel内置函数根据你提供的数据可能产生不同的结果。例如，如果单
元格A4和A5分别含有数字5和10，加和公式=SUM（A4：A5）将会返回15，除非你更改单元格里面的数值。
正如你可以传递数值给Excel内置函数，你也可以传递数值给自定义VBA过程。现在，我们来看看如
何从子程序传递数值给函数SumItUp。这个自定义函数目的是计算一个人的姓和名的字母数目。
1。 在放置函数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将显示信息输入框问你名字，这个
信息框由下面的函数产生：
InputBox（〃Enter first name：〃）
3。 输入任何名字，回车，VB接受你输入的文本并且将它作为一个参数传递给函数Len。函数Len
计算提供的文本的字母数目。VB将函数Len的结果储存于变量f以供以后使用。这之后，VB显示
下一个信息框，这次是问你的姓。
4。 输入任何姓，回车。VB将输入的姓传递给函数Len来获得姓的文本长度，然后数值储存于变量l。
接下来发生什么呢？VB遇到了函数MsgBox，这个函数告诉VB显示函数SumItUp的结果。然而，
因为这个结果还没有准备好，VB很快就跳到函数SumItUp里，使用变量f和l储存的数值来做计
算。在函数内部，VB用变量f的值取代参数m和变量l值取代参数n。一旦取代工作完成，VB将两
个数值加和起来，并且将结果返回给函数SumItUp。函数SumItUp内部没有其它的任务了，因此，
VB又马上返回子程序并且将函数SumItUp的结果作为一个参数提供给函数MsgBox。现在这个信
息出现在屏幕上，显示了字母总数目。
5。 点击确定退出信息框，你可以多次运行过程NumOfCharacters，每次输入不同的姓名。
我们来看看另外一个使用变量传递参数的例子：
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。 输入下述函数过程：
Function JoinText（k；o）
JoinText = k ＋ 〃 〃 ＋ o
86
… 页面 103…
End Function
4。 运行过程EnterText
VB执行语句时，它收集用户输入的数据并且将这些数据储存在变量m和n上，然后传递这些数据到函
数JoinText。VB将这些变量的值取代函数JoinText的参数，并且将结果赋到函数名称（JoinText）
上。当VB返回过程EnterText时，函数的值储存于变量r。然后，函数MsgBox在信息框里显示变量r
的内容。结果就是用户的完整姓名（姓和名用空格分开）。要从函数传递数值给子程序，需要将该
值赋到函数名称，例如，下面的函数NumOfDays将值7传递到子程序DaysInAWeek：
Function NumOfDays（）
NumOfDays = 7
End Function
Sub DaysInAWeek（）
MsgBox 〃There are 〃 & NumOfDays & 〃 days in a week。〃
End Sub
技巧4－8 函数过程不能做什么
函数过程不能进行任何动作，例如，它们不能在工作表里做插入，删除或设置数据格式操作，不能
打开文件，或改变屏幕显示样式
7。明确参数类型
在前面的部分，你学习了函数根据它们自变量传递的值进行计算，当你声明函数时，你将参数名称
列在一对括号里面。参数名称就像变量一样，每个参数名称在函数调用时，引用你提供的数值。当
子程序调用函数过程时，它以变量形式传递参数。一旦函数做点什么，它就将结果赋给函数名称。
注意，函数过程的名称当作变量来使用。
象变量一样，函数也有类型，函数的结果可以是字符串型，整型，长整型，等。要明确你函数的结
果类型，只有在函数声明行后添加关键字As和你想要的类型即可。例如：
Function MultiplyIt（num1； num2） As Integer
如果你不明确数据类型，VB将把你的函数结果设置为默认类型（Variant数据类型）。当你明确你的
函数结果的数据类型时，就象你明确变量的数据类型那样有一些好处，你的程序将更有效地使用内
存，因此它运行得也更快些。
我们来看看这个例子，尽管其参数在主调过程声明的是单精度浮点型，但是函数仍然返回整型数据：
1。 在工程MyFunctions （Chap04。xls）里添加一个新模块，重命名为Sample3
2。 激活模块Sample3并且输入子程序HowMuch，如下所示：
Sub HowMuch（）
Dim num1 As Single
Dim num2 As Single
Dim result As Single
num1 = 45。33
num2 = 19。24
result = MultiplyIt（num1； num2）
MsgBox result
End Sub
3。 在子程序HowMuch下面输入下列函数过程：
Function MultiplyIt（num1；num2） As Integer
MultiplyIt = num1 * num2
End Function
因为储存于变量num1和num2的数值不是整数，要确保它们相乘后的结果为整数，你就得将函数结果
设置为整型。如果你不给函数MultiplyIt的结果设置数据类型，过程HowMuch将会将结果按变量
result声明的数据类型显示，相乘的结果将是872。1492，而不是872。
你可以在每次运行该过程时，提供它们不同的数值，来使得该函数更有用，你可以使用InputBox
函数来输入数据，而不拘泥于程序代码给定的数值。你自己可以依照前面章节中的子程序
EnterText，花几分钟来修改过程HowMuch。
87
… 页面 104…
8。按地址和按值传递参数
在一些过程中，当你将参数作为变量传递时，VB可能突然改变该变量的数值。要确保该被调函数不
改变传递的参数值，你应该在函数声明行在参数名称之前加上关键字ByVal。我们来看看这个例子：
1。 在工程MyFunctions （Chap04。xls）里添加一新模块，命名为Sample4
2。 激活模块Sample4并输入下列代码：
Sub ThreeNumbers（）
Dim num1 As Integer； num2 As Integer； num3 As Integer
num1 = 10
num2 = 20
num3 = 30
MsgBox MyAverage（num1；num2；num3）
MsgBox num1
MsgBox num2
MsgBox num3
End Sub
Function MyAverage（ByVal num1； ByVal num2； ByVal num3）
num1 = num1 ＋ 1
MyAverage = （num1 ＋ num2 ＋ num3） / 3
End Function
使用关键字ByVal在参数名称前，可以防止函数改变参数值。子程序ThreeNumbers给三个变量赋值，
再调用函数MyAverage来计算，最后计算该三个变量的平均值。函数的参数就是变量num1，num2和
num3。注意，所有变量的前面都有关键字ByVal。同时，注意，在计算均值之前，函数MyAverage
改变了变量num1的值，在函数内部，变量num1等于11（10＋1），因此，当函数将计算的均值传递给
过程ThreeNumbers时，函数MsgBox显示的结果是20。3333333333333而不是期望的20，接下来的三个
函数显示每个变量的内容，变量储存的内容和它们开始被赋的值一致——10，20，30。
如果你在函数声明行忽略了参数num1前面的关键字ByVal，结果会怎样呢？函数的结果仍然相同，
但是函数MsgBox显示的变量num1的内容现在是11了。函数MyAverage不但返回了出乎意料的结果
（20。3333333333333而非20），而且改变了储存在变量num1里的原始数值。要避免VB永久地改变提
供给函数的数值，就得使用关键字ByVal。
技巧4－9 了解你的关键字：ByRef和ByVal
因为每个要传递给函数过程（或子程序）的变量，都可能在接收时改变数值，所以知道如何来保护
变量的原始数值是非常重要的。VB有两个关键字，提供或者否认改变变量内容的允许——ByRef和
ByVal。VB默认地按地址（关键字ByRef）给函数过程（或子程序）传递信息，引用函数被调用时，
函数参数明确的数据。因此，如果函数改变了参数值，原始的数值就被改变了。如果你在函数
MyAverage声明参数num1的前面忽略了关键字ByVal时，你就会得到这种结果。如果你想要函数过程
改变原始数值，你不必专门在参数前加关键字ByRef，因为，变量数值的传递默认就是ByRef。当你
在参数名称前使用关键字ByVal时，VB按值传递参数，这意味着VB复制一份原始数据，然后将复制
值传递给函数，如果函数改变了参数的数值的话，原始数据依然不会变——只有复制值变化。这就
是为什么函数MyAverage改变了变量num1的数值，而它的原始值还保持不变。
9。使用可选的参数
有时候，你也许要给函数提供额外的参数，例如，你有一个计算每个人膳食的函数。然而，有时你
不希望函数进行相同的计算。在参数名称前面加上关键字Optional可以指明该参数不是必须的。可
选参数在必须的参数之后，列在参数清单的最后；可选参数总是Variant数据类型，这意味着你不
能使用关键字