【分享成果，随喜正能量】风华是一指流砂，苍老是一段年华。人生是一段既定的旅程，流砂落尽，万事成空。没有谁的光阴比谁多出多少，不过是我在先行，你在后来，而我们，皆会化为尘土。人生的旅途，各自追求，各自珍惜。额头的皱纹，一道就是一段岁月，里面深藏记忆。无论已到哪里，少回头，多务实，当下不虚度，人生可无悔。!

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

教程共两册，八十四讲。今日的内容是专题二“随机数(Random)在EXCEL工作表及VBA中的应用”的第2讲：VBA代码中随机数的利用

第二节 VBA中随机数的利用

随机数不仅在EXCEL工作表中可以利用，在VBA中也是可以利用的，VBA提供一个名为Rnd的函数，该函数返回一个值D，其中0<=D<1。

1 获取指定范围内的随机数（带小数部分的实数）

我们可以使用如下代码。将“High”和“Low”的值更改为允许值范围的上限和下限。我们看看代码：

Sub MYNZ()

Dim Low As Double

Dim High As Double

Low = 101

High = 200

r = (High - Low) * Rnd() + Low

MsgBox "您取得的随机数是：" & r

End Sub

代码截图：

代码的运行，会获得一个101与200间的随机数值。

代码讲解：上面的代码利用了VBA中的Rnd()随机函数获取了一个随机数，由于产生的随机数0<=D<1，再通过数据计算即可得到了在指定范围内的值。最后提示给用户。当然在VBA中代码的运算比在工作表中的计算要方便一些。当然也可以通过inputbox函数录入最大值和最小值，这些都可以通过用户的实际情况来解决。

2 获得某个范围内的随机整数

在上面的代码中我们获得了一个带小数的值，但在更多的时候，我们需要获取一个整数的值，我们可以执行如下的代码即可：

Sub MYNZA()

Dim Low As Double

Dim High As Double

Low = 101

High = 200

r = Int((High - Low) * Rnd() + Low)

MsgBox "您取得的随机数是：" & r

End Sub

代码截图：

执行结果会获得一个101与200间的随机整数数值。

代码的解读：上面的代码通过一个Int（）取整函数获得了随机的整数，我们在实际的需要中会有更多的利用。

本节知识点回向：在VBA中如何利用代码获得一个指定范围的随机数返回值？要求这个随机数或者含有小数部分，或者是整数部分？

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

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

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

• 第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。