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

看板Visual_Basic作者MOONRAKER (㊣火星人玩轉地球)時間6年前 (2018/02/04 22:49)推噓5(5推 0噓 16→)

留言21則, 3人參與討論串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

推

purplishfish

02/04 23:32, 6年前 , 1^F

02/04 23:32, 1^F

→

purplishfish

02/04 23:33, 6年前 , 2^F

02/04 23:33, 2^F

推

purplishfish

02/04 23:35, 6年前 , 3^F

02/04 23:35, 3^F