《神奇的VBA》编程：随机生成彩票数据

一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求：平时我们会买些彩票，彩票开奖时，彩票数据都是随机生成的（不知道是不是有人真信了）。这就涉及到的随机函数应用。本篇中我们模拟一组数据当做彩票数据。

场     景

在活动工作表中生成6组含有7个随机数的数据。

在标准模块中加入如下代码即可实现上面的演示功能。

注意下面代码只是凸显演示重要功能， 工作表中的颜色，文字大小等格式是手动设置的。

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

Option Base 1Sub 随机生成幸运数字()Dim n As Integer, x As Integer, y As IntegerDim arr() As Integer'需要产生幸运号码的数量n = 6: m = 7'重新定义数据容量ReDim arr(n, m) As Integer'向数组中随意填充随机数For x = 1 To nFor y = 1 To mRandomizearr(x, y) = Int(10 * Rnd)'将数组数据加载进单元格区域中Cells(x + 1, y + 1) = arr(x, y)NextNextEnd Sub

我们还可以将上面代码做成通用程序， 这样可随心所欲的生成自定义组彩票数据！

如下面代码生成10组含有5个随机数字的彩票数据

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

Sub 调用程序()Call 生成随机数(10, 5)End Sub
Sub 生成随机数(n As Integer, m As Integer)Dim x As Integer, y As IntegerDim arr() As Integer'重新定义数据容量ReDim arr(n, m) As Integer'向数组中随意填充随机数For x = 1 To nFor y = 1 To m Randomize arr(x, y) = Int(10 * Rnd)'将数组数据加载进单元格区域中 Cells(x, y) = arr(x, y) NextNextEnd Sub

有兴趣复制上面代码运行一下。上面讲解的是随机函数的简单应用。最近太忙，个人时间精力有限， 以后时间充裕，我分享如何使用随机函数，设计一个简易的公司抽奖应用！

更多Excel VBA编程知识（职场牛人必备秘技），请下载安装使用优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。金山WPS也可以安装使用。

关于Excel VBA随机函数， 《神奇的VBA》插件中有详细介绍。