編程 出現菜單,生成兩個隨機數

在編輯器界面，菜單——插入——模塊

在模塊1裏粘貼如下代碼：

Sub suiji()

Dim seed, msg, tmsg, num

seed = "20110109"

Randomize (seed)

msg = " "

num = 0

Do Until num = 59

tnum = Int(Rnd() * 3070) + 1

If InStr(" " & msg & " ", tnum) = 0 Then

num = num + 1

msg = msg & tnum & " "

End If

Loop

msg = Split(Trim(msg), " ")

For num = 0 To UBound(msg)

Range("A" & num + 1).Value = msg(num)

Next

MsgBox "OK !"

End Sub

保存後，回EXCEL界面——菜單——工具——宏——宏——執行。

運行宏“suiji”，得到結果。

每次打開此文檔，第壹次運行得到的59個數都是同壹系列的。

另外,團IDC網上有許多產品團購,便宜有口碑