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

教程共两册,二十个专题。今日分享内容是：VBA信息获取与处理第二个专题第五节：实际场景中随机数的利用

【分享成果，随喜正能量】有的人陷入困境，不是被人所困，而是自己束缚自己，这时"解铃还须系铃人"，如果自己无法放下，如何能脱困？ 。

第五节 实际场景中随机数的利用

这一讲，我们讲这个专题的具体应用，对于随机数，虽然属于非常抽象的一个个的数字，在专题的开始我已经讲过随机数的概念，就是根据之前的数据是无法推测出后续的数据的，正是有着这样的原理，我们可以用于某些实际的场景，这里主要给大家模拟一种抽奖的场景，在此之前，我们还要讲一下在工作表中我们如何利用我们已经建立的MyRandomA函数。

1 工作表中MyRandomA自定义函数的利用

在代码的讲解中我们知道，MyRandomA函数有四个参数，这四个参数分别是产生随机数的最小值、最大值、要求产生随机数的个数，以及一个数组的下标（这个值不是必须的）。那么我们就在工作表中看看如何利用这个函数。首先我们看看我们的工作表需求：

要求产生一个最大值是10，最小值是40的10个随机数。

① 我们要首先选中10个（即产生随机数的个数）横向的单元格：

② 在编辑栏录入公式：= MyRandomA(B2,B3,B4)，然后同时按下数组的控制键CTRL+SHIFT+ENTER,就产生了10个我们要求的随机数。为什么要同时按下上面所说的三键呢？有兴趣的朋友可以参考我的《VBA数组与字典解决方案》这套教程。

下面看看产生的随机数截图：

如果要纵向产生十个随机数呢？可以利用公式：=TRANSPOSE(MyRandomA(B2,B3,B4)) 来获得，为什么要利用这个公式呢？同样请朋友们参考我的《VBA数组与字典解决方案》这套教程：

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