大家好我是Excel從零到一，今天閑來(lái)無(wú)聊做了一套大樂(lè)透搖號(hào)程序的vba代碼分享給大家

來(lái)看下效果

Excel大樂(lè)透搖號(hào)vba代碼分享，說(shuō)不定就中百萬(wàn)了呢

Sub 搖號(hào)()

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編輯器，將代碼復(fù)制進(jìn)去，然后找到宏點(diǎn)擊搖號(hào)即可搖號(hào)

都來(lái)試試把，萬(wàn)一中獎(jiǎng)了，別忘了分給小編點(diǎn)吃個(gè)中午飯~

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。