时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:10

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

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

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

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

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

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

现在我们来输入代码:Option Base 1Sub 福彩号码()    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    NextEnd Sub

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

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

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

Top