vba 参数默认值

在VBA中，我们可以为函数或过程定义参数的默认值，这样当调用函数或过程时如果没有提供该参数的值，就会使用默认值。这个功能非常有用，可以减少代码量，提高代码的可读性和可维护性。 定义参数的默认值非常简单，只需要在参数名后面使用等号(=)赋值即可。例如，下面是一个将两个数相加的函数，其中第二个数的默认值为 0：

Function addNums(num1 As Double, Optional num2 As Double = 0) As Double

addNums = num1 + num2 End Function

调用该函数时，可以按照以下两种方式传递参数： MsgBox addNums(5, 10) '15 MsgBox addNums(5) '5

第一次调用中，函数使用提供的值相加，结果为 15。第二次调用中，由于没有提供第二个参数的值，函数使用默认值 0，结果为 5。 需要注意的是，只有可选参数才可以定义默认值。必需参数(即没有 Optional 关键字修饰的参数)不能使用默认值。

另外，当函数或过程的参数列表中有多个可选参数时，必须保证默认值在后面的参数中。例如，下面的函数定义是错误的： Function myFunc(num1 As Double, Optional num2 As Double = 0, Optional num3 As Double) As Double

- 1 -

myFunc = num1 + num2 + num3 End Function

因为 num3 没有提供默认值，所以调用该函数时必须传递 num3 的值，否则会编译错误。

总之，在 VBA 中定义参数的默认值是一个非常有用的技巧，可以帮助我们更加高效地编写代码。

- 2 -