VBAで偏りのある乱数を出したい場合

質問が的外れだったらすみません

ExcelのVBAで、たとえば１から５の数字をランダムで出す時
２の出る確率を他より高くする方法はありますでしょうか？

宜しくお願いします

No.3 ベストアンサー 回答者： nicotinism 回答日時： 2006/12/17 09:12

昔、Accessでやった場合はこんな感じ。

参考になるかな？

Function omikuji()
'大凶5、凶10、小吉30、末吉25、吉20、大吉10 の比率
　　Dim mikuji As Single
　　
　　Randomize
　　omikuji = Int((100 * Rnd) + 1)
　　
　　Select Case omikuji
　　　　Case Is > 95
　　　　　　Forms!Fおみくじ!おみくじ = "大凶"
　　　　Case Is > 85
　　　　　　Forms!Fおみくじ!おみくじ = "凶"
　　　　Case Is > 55
　　　　　　Forms!Fおみくじ!おみくじ = "小吉"
　　　　Case Is > 30
　　　　　　Forms!Fおみくじ!おみくじ = "末吉"
　　　　Case Is > 10
　　　　　　Forms!Fおみくじ!おみくじ = "吉"
　　　　Case Is > 0
　　　　　　Forms!Fおみくじ!おみくじ = "大吉"
　　End Select

End Function

この回答へのお礼

参考になりました
有難うございます

お礼日時：2006/12/17 09:48

No.2 回答者： salvationarmy 回答日時： 2006/12/17 08:20

乱数の発生と別に表をつくります。

乱数側で発生した数字に対応するＶＬＯＯＫＵＰ関数にて、
表から１～５までの数値を拾います。
発生する乱数は１００でも２００でもＯＫ。
表の２の割合を多くする。

・・説明下手＆的はずれ？

この回答へのお礼

参考になりました
有難うございました

お礼日時：2006/12/17 09:48

No.1 回答者： Xaval 回答日時： 2006/12/17 04:50

確率自体にウェイトをおけばよいのでは？

１，２，３，４，５の比率をそれぞれ１０，２０，１０，１０，１０
にしたければ、（合計が６０であるのを考慮して）
MAX 60のランダムな数値nが
0/60 < n < 9/60 なら１
10/60 < n < 29/60 なら２
30/60 < n < 39/60 なら３
：
など

この回答へのお礼

参考になりました
有難うございます

お礼日時：2006/12/17 09:48