EXCEL技巧——如何用VBA实现福彩3D随机抽奖-Excel教程

本教程纯属娱乐，在闲暇的时候制作的一个娱乐代码，它可以随机抽出几组数据，在我们打福彩3D的时候或许有用，现在我们来看一看是如何进行操作的。

前期准备工作（包括相关工具或所使用的原料等）

EXCEL软件

详细的操作方法或具体步骤

新建一张EXCEL电子表格，在表中输入：“ 第1位 第2位 第3位”如图所示。

单击菜单栏“开发工具”——VisualBasic。打开VBA编辑器，我们只要在其中输入代码就可以了。

在VBA编辑器中，单击菜单栏“插入”——模块，打开代码编辑器，我们将在空白处填上代码。

现在我们来输入代码：

Option Base 1

Sub 福彩号码()

Dim n As Integer, i As Integer, j As Integer

Dim l() As Integer

n=Application.InputBox("请输入3D彩票数量：", "幸运号码", , , , , , 2)

ReDim l(n, 7) As Integer

For i=1 To n

For j=1 To 3

Randomize

l(i, j)=Int(10 * Rnd)

Next

Next

For i=1 To n

For j=1 To 3

Sheets(6).Cells(i + 1, j + 1)=l(i, j)

Next

Debug.Print

Next

Sub

回到EXCEL工作表中，单击“开发工具”——插入——按钮，拖动十字箭头画出一个矩形按钮，弹出“指定宏”对话框，选择宏名“Sheet5.福彩号码”，单击确定。

右键按钮，选择“编辑文字”，把按钮名称改为“3D选号”，现在单击按钮，弹出对话框“请输入3D彩票的数量”，我们输入“6”，单击确定，你会看到6组随机彩票出现了。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。