[算表] EXCEL 隨機取號問題

看板Office作者CS5566 (現實裡有了我對你的眷戀)時間8年前 (2018/03/13 00:13)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

軟體: 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://www.ptt.cc/bbs/Office/M.1520871212.A.CFF.html

→

soyoso

03/13 07:02, 8年前 , 1^F

03/13 07:02, 1^F

謝謝大大 :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