返回目录：excel表格制作
一段简单的VBA代码，让你自如操作Excel，成为职场达人！
抛砖引玉的场景需求： 平时我们会买些彩票， 彩票开奖时，彩票数据都是随机生成的（傻子才真信！）。 这就涉及到的随机函数应用。 本篇中我们模拟一组数据当做彩票数据。
场景1： 在活动工作表中生成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 n For y = 1 To m Randomize arr(x, y) = Int(10 * Rnd) '将数组数据加载进单元格区域中 Cells(x + 1, y + 1) = arr(x, y) NextNextEnd Sub
我们还可以将上面代码做成通用程序， 这样可随心所欲的生成自定义组彩票数据！
如下面代码生成10组含有5个随机数字的彩票数据
Sub 调用程序()Call 生成随机数(10, 5)End SubSub 生成随机数(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 n For 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 插件。
插件下载地址戳下面链接：
《神奇的VBA》选项卡样式
神奇的VBA使用演示图