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

質問

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

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

宜しくお願いします

回答No.3

nicotinism · ベストアンサー

昔、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

お礼

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

回答No.2

noname#91724

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

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

お礼

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

回答No.1

Xaval

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

お礼

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