自定义Function MyRandom函数获得随机数

《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册,二十个专题。今日分享内容是：VBA信息获取与处理第二个专题第三节:自定义Function MyRandom函数获得随机数

【分享成果，随喜正能量】因为时间流逝，无常最是寻常；因为因果不虚，无常也最是公平。一切回报都藏在时间流逝中，没有哪一刹那的善念善行是不作数的。它们都将在未来某个时刻，开出安乐的花。而你只管耕耘，不必问结果，用最大的专注来表达自己的珍惜，像最后一天那样去修行。。

第三节 对于一个给定的数组，随机获得它的元素

在前两节中，我们讲了随机数的基本知识，这些看似我们实际工作的场景利用不大，这讲的内容就接近我们实际的工作场景了。我们有没有一个办法建立一个函数，用于取得指定个数的随机数数组呢？当然可以，我们可以先建立一个数组，这个数组有最大和最小值的限制，然后通过输入参数来决定返回的随机数个数，这样我们在利用的时候就会非常的方便了。

1 自定义Function MyRandom函数

下面是一个Function MyRandom的过程：这个过程有四个输入参数，其中三个是必须的，一个是可选的，我们利用参数Mim, Mam 来表示最小值和最大值，利用参数Ns表示要返回的随机数的个数，还有一个参数 ArrayBase 表示返回数组的最小下标值，我们先看看代码：

Public Function MyRandom(Mim As Long, Mam As Long, _

NS As Long, Optional ArrayBase As Long = 1) As Variant

Dim AA() As Long

Dim BB() As Long

If Mim > Mam Then

MyRandom = Null

Exit Function

End If

If NS > (Mam - Mim + 1) Then

MyRandom = Null

Exit Function

End If

If NS <= 0 Then

MyRandom = Null

Exit Function

End If

ReDim AA(Mim To Mam)

For i = Mim To Mam

AA(i) = i

Next

ReDim BB(ArrayBase To (ArrayBase + NS - 1))

Randomize

For j = LBound(BB) To UBound(BB)

i = Int((Mam - Mim + 1) * Rnd + Mim)

BB(j) = AA(i)

Next

MyRandom = BB

End Function

代码截图：

代码讲解：这个过程是一个函数过程，输入的过程我在刚才已经讲过了，输出是一个数组，这个数组就是我们给定的值。

① Dim AA() As Long

Dim BB() As Long

上面的代码定义了两个动态数组，其中AA()是输入的数组，BB()是最后返回的值。

② If Mim > Mam Then

MyRandom = Null

Exit Function

End If

上面的代码给出了一个条件就是最大值必须要大于最小值。

③ If Ns > (Mam - Mim + 1) Then

MyRandom = Null

Exit Function

End If

上面的代码要求返回的数组个数值不能大于给定输入数值的个数。

④ If Ns <= 0 Then

MyRandom = Null

Exit Function

End If

上面的代码要求返回的数组个数的值不能小于或者等于零。

⑤ ReDim AA(Mim To Mam)

For I = Mim To Mam

AA(I) = I

Next

上面的代码给输入数值赋值

⑥ ReDim BB(ArrayBase To (ArrayBase + Ns - 1))

Randomize

For j = LBound(BB) To UBound(BB)

I = Int((Mam - Mim + 1) * Rnd + Mim)

BB(j) = AA(I)

Next

上面的代码给出返回数组的值

⑦ MyRandom = BB

返回数组

（待续）

本节内容详细代码“参考002工作表.XLSM”

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：