一段簡單的VBA代碼，讓你自如操作Excel，成為職場達人！
拋磚引玉的場景需求：平時我們會買些彩票，彩票開獎時，彩票數(shù)據(jù)都是隨機生成的（不知道是不是有人真信了）。這就涉及到的隨機函數(shù)應(yīng)用。本篇中我們模擬一組數(shù)據(jù)當做彩票數(shù)據(jù)。
Option Base 1Sub 隨機生成幸運數(shù)字()Dim n As Integer, x As Integer, y As IntegerDim arr() As Integer'需要產(chǎn)生幸運號碼的數(shù)量n = 6: m = 7'重新定義數(shù)據(jù)容量ReDim arr(n, m) As Integer'向數(shù)組中隨意填充隨機數(shù)For x = 1 To nFor y = 1 To mRandomizearr(x, y) = Int(10 * Rnd)'將數(shù)組數(shù)據(jù)加載進單元格區(qū)域中Cells(x + 1, y + 1) = arr(x, y)NextNextEnd Sub
Sub 調(diào)用程序()Call 生成隨機數(shù)(10, 5)End Sub
Sub 生成隨機數(shù)(n As Integer, m As Integer)Dim x As Integer, y As IntegerDim arr() As Integer'重新定義數(shù)據(jù)容量ReDim arr(n, m) As Integer'向數(shù)組中隨意填充隨機數(shù)For x = 1 To nFor y = 1 To m Randomize arr(x, y) = Int(10 * Rnd)'將數(shù)組數(shù)據(jù)加載進單元格區(qū)域中 Cells(x, y) = arr(x, y) NextNextEnd Sub有興趣復(fù)制上面代碼運行一下。上面講解的是隨機函數(shù)的簡單應(yīng)用。最近太忙，個人時間精力有限， 以后時間充裕，我分享如何使用隨機函數(shù)，設(shè)計一個簡易的公司抽獎應(yīng)用！
更多Excel VBA編程知識（職場牛人必備秘技），請下載安裝使用優(yōu)秀職場人必備的工具《神奇的VBA》插件，一款嵌入進Excel Ribbon界面，打開任意Excel工作簿就能隨時查閱學(xué)習(xí)VBA編程的Excel 插件。金山WPS也可以安裝使用。
關(guān)于Excel VBA隨機函數(shù)， 《神奇的VBA》插件中有詳細介紹。
聯(lián)系客服
