Excel VBA编程可变参数.docx

ExcelVBA编程可变参数在定义sub过程时，已经确定了参数的个数在VBA中，还可以定义可变参数，即在定义时参数的个数是未知的在定义过程的可变参数时，必须在最后一个参数前面加上ParamArray关键字，这样过程将接受任意个数的参数格式：Sub过程名(ParamArray数组名[Astype][=defaultvalue])其中各个部分的意义如表8-3所示表8-3各个部分的意义部分描述ParamArray可选的只用于参数的最后一个参数，指明最后这个参数是一个Variant元素的Optional数组使用ParamArray关键字可以提供任意数目的参数ParamArray关键字不能与ByVai,ByRef,或Optional一起使用type可选的传递给该过程的参数的数据类型，可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Date、String(只支持变长)、Object或Variant如果没有选择参数Optional，则可以指定用户定义类型，或对象类型defaultvalue可选的任何常数或常数表达式只对Optional参数合法如果类型为Object,则显式的缺省值只能是Nothing。

例如：求任意个数的和Sub可变参数(x,ParamArraya())x=0ForEachyInax=x+yNextEndSubSub调用可变参数()'声明动态数组Dims()'为数组赋值s=Array(1,2,3,4,5)'调用可变参数过程可变参数sum,s(0),s(1),s(2),s(3),s(4)'输出参数值Debug.Print"sum=";sumEndSub这样，在调用“可变参数”时，参数个数不定，即有几个参数则相加在一起可变参数和可选参数的相同与不同，如表8-4所示表8-4可变参数和可选参数可选参数可变参数相同点选参数与可变参数的类型必须为变体型不同点可选参数是指参数可提供，也可不提供，但参数的个数是确定的可变参数是指参数的个数不确定，可没有，也可随意个数可变参数名必须为数组名，且只能采用传地址方式传送。