大家好我是Excel從零到一，今天閑來無聊做了一套大樂透搖號程序的vba代碼分享給大家
來看下效果
Excel大樂透搖號vba代碼分享，說不定就中百萬了呢
Sub 搖號()
Dim i, a, test, s(1 To 35) As Integer
For i = 1 To 5
line1: test = Application.WorksheetFunction.RandBetween(1, 35)
For a = 1 To i
If s(a) = test Then
GoTo line1
End If
Next
s(i) = test
Cells(3, i) = s(i)
Next
Call y
End Sub
Sub y()
Dim s, h, testy, q(1 To 12) As Integer
For i = 6 To 7
line1: testy = Application.WorksheetFunction.RandBetween(1, 12)
For h = 1 To i
If q(h) = testy Then
GoTo line1
End If
Next
q(i) = testy
Cells(3, i) = q(i)
Next
End Sub
打開vb編輯器，將代碼復制進去，然后找到宏點擊搖號即可搖號
都來試試把，萬一中獎了，別忘了分給小編點吃個中午飯~
)
