VBA入门到进阶常用知识代码总结31

第31集 自定义函数的参数设置
135、 返回数组的自定义函数
Function shuiji(maxnum, geshu) 'maxnum是区间最大的数,geshu是返回多少个不重复的数
Dim d As New Dictionary
Dim num
Application.Volatile '将自定义函数标记为易失性函数，无论何时在工作表的任意单元格中进行计算时，易失性函数都必须重新进行计算
Do
num = Int(Rnd() * maxnum + 1)
d(num) = “”
Loop Until d.Count = geshu
shuiji = Application.Transpose(d.Keys)
End Function
136、 参数值默认和参数缺省
Optional：在参数前加关键字Optional，则设置为可省略的参数，=2设置为缺省参数的默认值。
Function shuiji2(maxnum, geshu, Optional qo As Integer = 2)
Dim d As New Dictionary
Dim num, m
Application.Volatile
m = 1
Do
num = Int(Rnd() * maxnum + 1)
If qo = 2 Then
If num Mod 2 = 0 Then d(num) = “”
ElseIf qo = 1 Then
If Not num Mod 2 = 0 Then d(num) = “”
Else
Exit Function
End If
Loop Until d.Count = geshu
shuiji2 = Application.Transpose(d.Keys)
End Function
137、 参数个数不定的自定义函数
ParamArray：在参数前加ParamArray，参数个数不定。
Function cheng(ParamArray n())
Dim num, k
k = 1
For Each num In n
k = k * num
Next num
cheng = k
End Function