一段簡單的VBA代碼，讓你自如操作Excel，成為職場達人！

拋磚引玉的場景需求： 平時我們會買些彩票， 彩票開獎時，彩票數據都是隨機生成的（傻子才真信！）。 這就涉及到的隨機函數應用。 本篇中我們模擬一組數據當做彩票數據。

場景1： 在活動工作表中生成6組含有7個隨機數的數據。

在標準模塊中加入如下代碼即可實現上面的演示功能。

注意下面代碼只是凸顯演示重要功能， 工作表中的顏色，文字大小等格式是手動設置的。

Option Base 1
Sub 隨機生成幸運數字()
Dim n As Integer, x As Integer, y As Integer
Dim 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)
 Next
Next
End Sub

我們還可以將上面代碼做成通用程序， 這樣可隨心所欲的生成自定義組彩票數據！

如下面代碼生成10組含有5個隨機數字的彩票數據

Sub 調用程序()
Call 生成隨機數(10, 5)
End Sub


Sub 生成隨機數(n As Integer, m As Integer)
Dim x As Integer, y As Integer
Dim 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)
 Next
Next
End Sub

動手試一試，屏幕前的你， 複製代碼運行下吧~~！

有關Excel VBA編程知識（職場牛人必備秘技），可下載安裝使用一款優秀職場人必備的工具《神奇的VBA》插件，一款嵌入進Excel Ribbon界面，打開任意Excel工作簿就能隨時查閱學習VBA編程的Excel 插件。

插件下載地址戳下面鏈接：

<strong>

《神奇的VBA》選項卡樣式

神奇的VBA使用演示圖