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

看板Visual_Basic作者 (㊣火星人玩轉地球)時間6年前 (2018/02/04 22:49), 編輯推噓5(5016)
留言21則, 3人參與, 6年前最新討論串2/2 (看更多)
※ 引述《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

02/04 23:32, 6年前 , 1F
感謝回覆!Time回傳是時分秒,程式沒顯示錯誤
02/04 23:32, 1F

02/04 23:33, 6年前 , 2F
被抽獎人有100多人
02/04 23:33, 2F

02/04 23:35, 6年前 , 3F
方法是參考這篇
02/04 23:35, 3F

02/04 23:35, 6年前 , 4F

02/04 23:36, 6年前 , 5F
因為偶爾會需要一次抽五個
02/04 23:36, 5F

02/05 05:39, 6年前 , 6F
一次抽五個可以考慮洗牌法
02/05 05:39, 6F

02/05 05:40, 6年前 , 7F
假設 k 個人,開一個1 to k的陣列,依序填入值1到k
02/05 05:40, 7F

02/05 05:41, 6年前 , 8F
接著每次產生兩個1..j的亂數p, q,互換p, q位置的元素
02/05 05:41, 8F

02/05 05:42, 6年前 , 9F
這樣洗牌若干次,然後從前面或後面取五個為得獎
02/05 05:42, 9F

02/05 05:49, 6年前 , 10F
這樣看起來time傳回跟以前一樣是字串 不會錯誤可能是
02/05 05:49, 10F

02/05 05:49, 6年前 , 11F
自動轉換到第一個 : 以前的數字 這樣還是恆正的
02/05 05:49, 11F

02/05 16:45, 6年前 , 12F
謝謝,會試試看!
02/05 16:45, 12F

02/07 12:44, 6年前 , 13F
如果要看起來隨機,就把每個人得過獎的次數記錄起來
02/07 12:44, 13F

02/07 12:45, 6年前 , 14F
然後讓那個人的中獎機率降低(1/(得獎次數+1)之類的
02/07 12:45, 14F

02/07 12:45, 6年前 , 15F
讓程式變得不那麼隨機 是變不隨機而不是變更隨機哦 XD
02/07 12:45, 15F

02/07 12:48, 6年前 , 16F
人類的"覺得隨機"其實很不隨機,所以你要的是減少隨機
02/07 12:48, 16F

02/07 12:49, 6年前 , 17F
我好像應該推在原po那篇 XD
02/07 12:49, 17F

02/09 08:32, 6年前 , 18F
可是抽到過得不會再抽耶
02/09 08:32, 18F

02/09 15:23, 6年前 , 19F
如果不要讓他再抽就是排除法啦 直接讓他機率0或跳過
02/09 15:23, 19F

02/09 15:25, 6年前 , 20F
去年也有寫個抽獎 那時是先搖一次決定有沒有中獎 再搖
02/09 15:25, 20F

02/09 15:25, 6年前 , 21F
一次看他中什麼獎
02/09 15:25, 21F
文章代碼(AID): #1QTnru0s (Visual_Basic)
文章代碼(AID): #1QTnru0s (Visual_Basic)