excel中使用vba來建立一組幸運7彩票陣列
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。 好人一生平安。
先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表作為例子。
進入vba編輯器，並輸入以下程式碼：
Option Base 1
Sub 幸運號碼()
Dim n As Integer, i As Integer, j As Integer
Dim l() As Integer
n = Application.InputBox("請輸入需要產生幸運號碼的數量：", "幸運號碼", , , , , , 2)
ReDim l(n, 7) As Integer
For i = 1 To n
For j = 1 To 7
Randomize
l(i, j) = Int(10 * Rnd)
Next
Next
For i = 1 To n
For j = 1 To 7
Debug.Print l(i, j);
Next
Debug.Print
Next
End Sub
我們定義3個變數，和一個數組，陣列不指定組內元素。變數n定義為輸入變數，然後重新定義陣列。
建立一個for迴圈，迴圈次數為輸入值N，並rnd隨機7個數值定義到陣列內。rnd函式隨機的數值是大於0小於1，所以我們對其*10並取整。
這裡我們重新寫了一個for迴圈，是為了檢驗方便，實際上可以將程式碼合併，並以同樣的格式輸出。
最後我們可以在立即視窗中得到答案，如果需要寫入表格中，我們可以加上這句range程式碼就可以實現目的了。
注意事項
謝謝你的投票。
如果你有需要節約時間的事情可以委託我來做。謝謝你。