EXCEL技巧——如何用VBA實現福彩3D隨機抽獎

2019-12-05 22:40:17

本教學純屬娛樂，在閒暇的時候製作的一個娛樂程式碼，它可以隨機抽出幾組資料，在我們打福彩3D的時候或許有用，現在我們來看一看是如何進行操作的。

新建一張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)

For i = 1 To n

For j = 1 To 3

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

Debug.Print

End Sub

回到EXCEL工作表中，單擊「開發工具」——插入——按鈕，拖動十字箭頭畫出一個矩形按鈕，彈出「指定巨集」對話方塊，選擇巨集名「Sheet5.福彩號碼」，單擊確定。

右鍵按鈕，選擇「編輯文字」，把按鈕名稱改為「3D選號」，現在單擊按鈕，彈出對話方塊「請輸入3D彩票的數量」，我們輸入「6」，單擊確定，你會看到6組隨機彩票出現了。