来看下效果 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编辑器,将代码复制进去,然后找到宏点击摇号即可摇号 都来试试把,万一中奖了,别忘了分给小编点吃个中午饭~ |
|