PTT數位生活區 / Visual_Basic

[VBA ] 請問如何讓亂數更亂 & 降低EXCEL運跑速度

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