《神奇的VBA》編程：隨機生成彩票數據

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

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

場     景

在活動工作表中生成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 nFor y = 1 To mRandomizearr(x, y) = Int(10 * Rnd)'將數組數據加載進單元格區域中Cells(x + 1, y + 1) = arr(x, y)NextNextEnd Sub

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

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

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

Sub 調用程序()Call 生成隨機數(10, 5)End Sub
Sub 生成隨機數(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 nFor 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 插件。金山WPS也可以安裝使用。

關於Excel VBA隨機函數， 《神奇的VBA》插件中有詳細介紹。