作者MOONRAKER (㊣火星人玩轉地球)
看板Visual_Basic
標題Re: [VBA ] 請問如何讓亂數更亂 & 降低EXCEL運跑速度
時間Sun Feb 4 22:49:23 2018
※ 引述《purplishfish (紫魚)》之銘言：
: 各位版友大家好
: 最近再寫一個抽獎程式
: 方法是每個序號對到一個亂數，最後取亂數最大值的該序號做為得獎人
: 但總覺得得獎人常常重複，不知道是不是亂數的問題?
: 目前亂數是使用(前面都有先呼叫Randomize)
: Rnd()
: 有試過 Rnd(Time)
這樣沒有任何用處。
VBA的rnd(k)多年來都一樣：
k > 0 傳回下一個隨機亂數。
所以rad(1), rnd(8), rad(rnd())都是一樣的。
而time (不是應該timer嗎？不過反正你沒看到錯誤，就當是time好了)
除了午夜以外，一定傳回大於0的數字，所以也跟以上一樣。
k = 0 重覆傳回相同的亂數。
k < 0 會以這個k為亂數種子，但是每次設種子就等於每次呼叫randomize
基本上沒有人用。
省略k 跟 k > 0 一樣。
現在微軟的範例程式裡面也都是寫成rnd()，這就是他們的建議用法
至於什麼rnd(0), rnd(-n)之類死人骨頭根本就不要碰。
: 不知道還有沒有其他可以更亂的方法?
沒有看到你的程式，無法確定你到底是重覆到怎樣。但是除非規則規定，很少
聽說這樣一人產生一個亂數再選最大的作法。還有也不知道你母體有多少。如
果你一次只針對10個這種數量的得獎者抽選，那用什麼方法都很容易重覆。不
重覆有不重覆的方法，但是抽選過程要重新設計。
我會認為是規則的問題。如果你認為想要換random generator來解決，可以改
用以下網頁最底下的程式，他利用AES來產生循環長度無限長的隨機亂數。
https://bytes.com/topic/access/insights/
964786-vba-rnd-function-bad-what-use-instead
or
https://goo.gl/cgWHiC
: 另一個想請教的問題是有沒有辦法降低excel的運跑速度?
直接上vb.net，簡單用途轉過去很快，也可以控制excel
(不過沒什麼效率，用ODBC較實在)。
--
從前有個馬鈴薯王國 有個高貴偉大的國王
有的人尊敬他 有的人畏懼他 但有個人敢看不起他不只是一條龍
嘿呵 快出動 去征服 去擺平 嘿呵 快出征 去征服那條龍
嘿呵 快出動
(宰了它!轟了它!)嘿呵 快出征 去征服那條龍
:■ Potatoes and Dragons (C)Alphanim France 2004-05 :.
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.161.46.90
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1517755768.A.036.html
推 purplishfish: 感謝回覆！Time回傳是時分秒，程式沒顯示錯誤 02/04 23:32
→ purplishfish: 被抽獎人有100多人 02/04 23:33
推 purplishfish: 方法是參考這篇 02/04 23:35
→ purplishfish: 因為偶爾會需要一次抽五個 02/04 23:36
→ MOONRAKER: 一次抽五個可以考慮洗牌法 02/05 05:39
→ MOONRAKER: 假設 k 個人，開一個1 to k的陣列，依序填入值1到k 02/05 05:40
→ MOONRAKER: 接著每次產生兩個1..j的亂數p, q，互換p, q位置的元素 02/05 05:41
→ MOONRAKER: 這樣洗牌若干次，然後從前面或後面取五個為得獎 02/05 05:42
→ MOONRAKER: 這樣看起來time傳回跟以前一樣是字串 不會錯誤可能是 02/05 05:49
→ MOONRAKER: 自動轉換到第一個 : 以前的數字 這樣還是恆正的 02/05 05:49
推 purplishfish: 謝謝，會試試看! 02/05 16:45
推 ferretwind: 如果要看起來隨機，就把每個人得過獎的次數記錄起來 02/07 12:44
→ ferretwind: 然後讓那個人的中獎機率降低(1/(得獎次數+1)之類的 02/07 12:45
→ ferretwind: 讓程式變得不那麼隨機 是變不隨機而不是變更隨機哦 XD 02/07 12:45
→ ferretwind: 人類的"覺得隨機"其實很不隨機，所以你要的是減少隨機 02/07 12:48
→ ferretwind: 我好像應該推在原po那篇 XD 02/07 12:49
推 purplishfish: 可是抽到過得不會再抽耶 02/09 08:32
→ MOONRAKER: 如果不要讓他再抽就是排除法啦 直接讓他機率0或跳過 02/09 15:23
→ MOONRAKER: 去年也有寫個抽獎 那時是先搖一次決定有沒有中獎 再搖 02/09 15:25
→ MOONRAKER: 一次看他中什麼獎 02/09 15:25