作者purplishfish (紫魚)
看板Visual_Basic
標題[VBA ] 請問如何讓亂數更亂
時間Fri Feb 2 21:13:39 2018
各位版友大家好
最近再寫一個抽獎程式
方法是每個序號對到一個亂數，最後取亂數最大值的該序號做為得獎人
但總覺得得獎人常常重複，不知道是不是亂數的問題?
目前亂數是使用(前面都有先呼叫Randomize)
Rnd()
有試過 Rnd(Time)
不知道還有沒有其他可以更亂的方法?
另一個想請教的問題是有沒有辦法降低excel的運跑速度?
(長官嫌這樣抽獎太快顯示沒有刺激感...)
目前是增加垃圾回圈
但是常常顯示的部分會當掉，所以有點不知道怎麼辦
感謝大家!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.225.135
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1517577223.A.6B1.html
※ 編輯: purplishfish (220.136.225.135), 02/02/2018 21:50:13
1F：推 olycats: 第二個問題 可使用application.wait 的方法 02/03 01:06
2F：→ olycats: 可以達到等一秒(或您指定的時間) 再繼續進行下去 02/03 01:07
3F：推 vincent0926: 如果跑垃圾迴圈會感覺當機無反應，可於迴圈內加入doe 02/03 03:56
4F：→ vincent0926: vents看看 02/03 03:56
5F：推 tootsie: Rnd(Rnd())呢？ 02/03 20:23
6F：→ MOONRAKER: rnd的那個引數跟亂不亂完全無關 怎麼會有人有這種誤解 02/03 21:30
7F：→ MOONRAKER: 抱歉，只要>0都是取出下一個虛擬亂數，跟亂不亂無關 02/03 21:35
8F：→ MOONRAKER: rnd(1)或rnd(8)或rnd()完全一樣 02/03 21:36
9F：→ MOONRAKER: 而rnd()值在[0, 1)之間 所以rnd(rnd())跟rnd()完全一樣 02/03 21:40
10F：→ purplishfish: 抱歉沒有表達清楚，更亂是希望他的下一個引數出現 02/03 22:33
11F：→ purplishfish: 機率更加不同 02/03 22:33
12F：→ purplishfish: 謝謝1,2樓大大我會再試試看 02/03 22:34