作者CS5566 (現實裡有了我對你的眷戀)
看板Office
標題[算表] EXCEL 隨機取號問題
時間Tue Mar 13 00:13:25 2018
軟體: EXCEL
版本: 2010
前情提要:
參考網路用EXCEL VB 寫了隨機取號 (隨機取號100-999號)
按一次按鈕會出現三組隨機數字
圖示:
┌─────┬─────┬─────┬─────┐
│ │ A │ B │ C │
├─────┼─────┼─────┼─────┤
│ 1 │ │ │ │
├─────┼─────┼─────┼─────┤
│ 2 │ │ │ 開獎 │
├─────┼─────┼─────┼─────┤
│ 3 │ │ 第一次 │
XXX │
開獎按鈕
├─────┼─────┼─────┼─────┤
│ 4 │ │ 第二次 │
XXX │
├─────┼─────┼─────┼─────┤
│ 5 │ │ 第三次 │
XXX │
├─────┼─────┼─────┼─────┤
程式碼如下
----------------------------------------------------
Public Sub 選號()
ReRnd:
For i = 3 To 5
Cells(i, "C") = Int(Rnd() * 900) + 100
Next
For i = 3 To 5
For j = i + 1 To 5
If Cells(i, "C") = Cells(j, "C") Then
GoTo ReRnd
End If
Next
Next
End Sub
----------------------------------------------------
問題說明:
連按五次 出現隨機碼為
360 734 112 738 876
371 -> 580 -> 784 -> 140 -> 811
797 621 833 472 436
直接關掉 EXCEL
再連按五次 出現隨機碼 同上 (完全一樣)
360 734 112 738 876
371 -> 580 -> 784 -> 140 -> 811
797 621 833 472 436
這樣一點都不隨機rrr
請問有什麼方法可以解決此問題?
謝謝
--
▄▄▄▄ ▄▄ 。 記得
◢██◣ ◢◢◣◣ ████ 。 對
████ █◥◤█ ▇▇██
███◤ ◢███◣ ▇▇██ 。 身體
◢██◤ █████ ◥██◤ 。 好一點
◢██◤ ◥███◤ ◥◤ 。。 ψCS5566
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.248.80.84
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1520871212.A.CFF.html
1F：→ soyoso: 配合randomize試試 03/13 07:02
謝謝大大 :D
多加一個 Randomize 就可以了
程式碼如下
----------------------------------------------------
Public Sub 選號()
ReRnd:
Randomize
For i = 3 To 5
Cells(i, "C") = Int(Rnd() * 900) + 100
Next
For i = 3 To 5
For j = i + 1 To 5
If Cells(i, "C") = Cells(j, "C") Then
GoTo ReRnd
End If
Next
Next
End Sub
----------------------------------------------------
※ 編輯: CS5566 (111.248.80.84), 03/13/2018 13:08:58