VBA产生随机数的函数

<span style="font-family: Arial, Helvetica, sans-serif;"></span><pre name="code" class="vb">'Dim min As Integer                             '定义随机数的最小值
'Dim max As Integer                             '定义随机数的最大值
'限制只产生500个，VBA的速度问题
Public Function CreateRND(ByVal min As Integer, _
                ByVal max As Integer) As Integer()
    
    Dim a_size As Integer
    
    a_size = max - min
    
    If a_size > 500 Or max - min + 1 < a_size Then: Exit Function             '限制只产生500个，VBA的速度问题
                                               '如果最大值和最小值的差小于数组大小数值就什么也不做
     
    
    Dim arr() As Integer                            '定义数组
    ReDim arr(a_size)                               '更改数组大小
    Dim flag As Boolean                             '定义标志变量，用来判断是否有重复值
    
    Randomize (Now())