大家好我是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編輯器，將代碼復制進去，然后找到宏點擊搖號即可搖號

都來試試把，萬一中獎了，別忘了分給小編點吃個中午飯~

總結

以上是生活随笔為你收集整理的c语言大乐透编译,Excel大乐透摇号vba代码分享，说不定就中百万了呢的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。