第四章 VBA传递参数步骤.pdfVIP

VBA传递参数步骤 到⽬前为⽌，你已经创建了简单的可以执⾏具体任务的VBA过程，这些过程在它们运 ⾏前 有要求你提供额外的数据。然⽽，在现实⽣活中，过程 （⼦程序和函数）经常 需要参数。参数 （⾃变量）是过程⼯作时需要的⼀个或多个数值。参数通常输⼊在括 号之间，多个参数⽤逗号分割开来。使⽤Excel有⼀阵了，你已经知道Excel 内置函数 根据你提供的数据可能产⽣不同的结果。例如，如果单元格A4和A5分别含有数字5和 10 ，加和公式=SUM(A4:A5)将会返回15 ，除⾮你更改单元格⾥⾯的数值。正如你可以 传递数值给Excel 内置函数，你也可以传递数值给⾃定义VBA过程。 现在，我们来看看如何从⼦程序传递数值给函数SumItUp 。这个⾃定义函数⽬的是计算⼀个 ⼈的姓和名的字母数⽬。 1.在放置函数SumItUp 的模块⾥输⼊下列⼦程序NumOfCha acte s ： Sub NumOfCha acte s() Dim f As Intege Dim l As Intege f = Len(InputBox(Ente fi st name:)) l = Len(InputBox(Ente last name:)) MsgBox SumItUp(f ,l) End Sub 2. 将光标放在过程NumOfCha acte s的任意地⽅并按下F5 。VB将显⽰信息输⼊框问你 名字，这个信息框由下⾯的函数产⽣： InputBox(Ente fi st 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. 点击确定退出信息框，你可以多次运⾏过程NumOfCha acte s ，每次输⼊不同的姓 名。我们来看看另外⼀个使⽤变量传递参数的例⼦： 1. 在⼯程MyFunctions (Chap04 .xls)⾥添加⼀个新模块，并重命名为Sample2 2. 激活模块Sample2并且输⼊⼦程序Ente Text ： Sub Ente Text() Dim m As St ing , n As St ing , As St ing m = InputBox (Ente you fi st name:) n = InputBox(Ente you last name:) = JoinText(m , n) MsgBox End Sub 3. 输⼊下述函数过程： Function JoinText(k ,o) JoinText = k + + o End Function 4 . 运⾏过程Ente Text VB执⾏语句时，它收集⽤户输⼊的数据并且将这些数据储存在变量m和n上，然后传 递这些数据到函数JoinText 。VB将这些变量的值取代函数JoinText的参数，并且将结 果赋到函数名称 （JoinText ）上。当VB返回过程Ente Text 时，函数的值储存于变量 。 然后，函数MsgBox在信息框⾥显⽰变量 的内容。结果就是⽤户的完整姓名 （姓和名 ⽤空格分开）。要从函数传递数值给⼦程序，需要将该值赋到函数名称，例如，下⾯ 的函数NumOfDays将值7传递到⼦程序DaysInAWeek ： Function NumOfDays()