1200字范文,内容丰富有趣,写作的好帮手!
1200字范文 > VBA自定义Function的参数

VBA自定义Function的参数

时间:2022-11-30 03:16:06

相关推荐

VBA自定义Function的参数

━━━━━━━━━━━━━━━━━━━━━━━━━

Function语句

声明Function过程的名称,参数以及构成其主体的代码。

语法

[Public|Private|Friend][Static]Functionname[(arglist)][AsType][statements][name=expression][ExitFunction][statements][name=expression]

......

EndFunction

Function语句的语法包含下面部分:

部分描述

/ / Public可选的。表示所有模块的所有其它过程都可访问这个Function过程。如果是在包含OptionPrivate的模块中使用,则这个过程在该工程外是不可使用的。

/ / Private可选的。表示只有包含其声明的模块的其它过程可以访问该Function过程。

/ / Friend可选的。只能在类模块中使用。表示该Function过程在整个工程中都是可见的,但对于对象实例的控制者是不可见的。

/ / Static可选的。表示在调用之间将保留Function过程的局部变量值。Static属性对在该Function外声明的变量不会产生影响,即使过程中也使用了这些变量。

/ / name必需的。Function的名称;遵循标准的变量命名约定。

/ / arglist可选的。代表在调用时要传递给Function过程的参数变量列表。多个变量应用逗号隔开。

/ / Type可选的。Function过程的返回值的数据类型,可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(除定长)、Object、Variant或任何用户定义类型。

/ / statements可选的。在Function过程中执行的任何语句组。

/ / expression可选的。

Function的返回值

━━━━━━━━━━━━━━━━━━━━━━━━━

其中的arglist参数的语法以及语法各个部分如下:

[Optional][ByVal|ByRef][ParamArray]varname[()][AsType][ =defaultvalue]

部分描述

/ / Optional可选的。表示参数不是必需的。如果使用了该选项,则arglist中的后续参数都必须是可选的,而且必须都使用Optional关键字声明。如果使用了ParamArray,则任何参数都不能使用Optional声明。

/ / ByVal可选的。表示该参数按值传递。

/ / ByRef可选的。表示该参数按地址传递。ByRef是VisualBasic的缺省选项。

/ / ParamArray可选的。只用于arglist的最后一个参数,指明最后这个参数是一个Variant元素的Optional数组。使用ParamArray关键字可以提供任意数目的参数。ParamArray关键字不能与ByVal,ByRef,或Optional一起使用。

/ / varname必需的。代表参数的变量的名称;遵循标准的变量命名约定。

/ / Type可选的。传递给该过程的参数的数据类型;可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(只支持变长)、Object或Variant。如果参数不是Optional,则也可以是用户定义类型,或对象类型。

/ / defaultvalue可选的。任何常数或常数表达式。只对于Optional参数时是合法的。如果类型为Object,则显式缺省值只能是Nothing。

说明

━━━━━━━━━━━━━━━━━━━━━━━━━

如果没有使用Public、Private或Friend显式指定,则Function过程缺省为公用。

如果没有使用Static,则局部变量的值在调用之后不会保留。

Friend关键字只能在类模块中使用。但Friend过程可以被工程的任何模块中的过程访问。Friend过程不会在其父类的类型库中出现,且Friend过程不能被后期绑定。

小心Function过程可以是递归的;也就是说,该过程可以调用自己来完成某个特定的任务。不过,递归可能会导致堆栈上溢。通常Static关键字和递归的Function过程不在一起使用。

所有的可执行代码都必须属于某个过程。不能在另外的Function、Sub或Property过程中定义Function过程。

ExitFunction语句使执行立即从一个Function过程中退出。程序接着从调用该Function过程的语句之后的语句执行。在Function过程的任何位置都可以有ExitFunction语句。

Function过程与Sub过程的相似之处是:Function过程是一个可以获取参数,执行一系列语句,以及改变其参数值的独立过程,而与子过程不同的是:当要使用该函数的返回值时,可以在表达式的右边使用Function过程,这与内部函数,诸如Sqr、Cos或Chr的使用方式一样。

在表达式中,可以通过使用函数名,并在其后用圆括号给出相应的参数列表来调用一个Function过程。

请参阅Call语句关于如何调用Function过程的详细说明。

要从函数返回一个值,只需将该值赋给函数名。在过程的任意位置都可以出现这种赋值。如果没有对name赋值,则过程将返回一个缺省值:数值函数返回0,字符串函数返回一个零长度字符串(""),Variant函数则返回Empty。如果在返回对象引用的Function过程中没有将对象引用赋给name(通过Set),则函数返回Nothing。

示例

━━━━━━━━━━━━━━━━━━━━━━━━━

下面的示例说明如何给一个名为BinarySearch的函数赋返回值。

在这个示例中,将False赋给了该函数名,表示没有找到某个值。

FunctionBinarySearch(...)AsBoolean"值未找到,返回一个False值。

Iflower>upperThen

BinarySearch=False

ExitFunction

EndIf

EndFunction

在Function过程中使用的变量分为两类:一类是在过程内显式声明的,另一类则不是。在过程内显式声明的变量(使用Dim或等效方法)都是局部变量。对于那些没有在过程中显式声明的变量,除非它们在该过程外更高级别的位置有显示地声明,否则也是局部的。

小心过程可以使用没有在过程内显式声明的变量,但只要有任何在模块级别中定义的名称与之相同,就会产生名称冲突。如果过程中使用的未声明的变量与另一个过程,常数,或变量的名称相同,则会认为过程使用的是模块级的名称。显式声明变量就可以避免这类冲突。可以使用OptionExplicit语句来强制显式声明变量。

小心VisualBasic可能会重新安排数学表达式以提高内部效率。若Function过程会改变某个数学表达式中变量的值,则应避免在此表达式中使用该函数。

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。