重複しない整数をランダム表示

質問

エクセル９８を使用しています。

例えば３つのセルに１～５の数字をランダムに、重複させないように表示させることはできるでしょうか？

作業用のスペースを使用して、いくつか処理を加えれば可能なのですが、関数を組み合わせてもっとスマートにできる方法はないかと思い、ダメ元で質問させて頂きました。

大したことではないのですが、いいアイディアがある方はアドバイスを頂けると助かります。

回答No.9

0shiete

#6です。
#7様に指摘されたとおりです。
INTは切捨てでした。

#6の回答を
B1:=INT(RAND()*(B2-2))+2
に訂正します。

#7様、有難うございましたm(__)m

回答No.8

taisuke555

＃５、＃７の補足です。
４つ目の重複しないランダムな数字
D1セル
=MOD(MOD(MOD(INT(RAND()*17)+(LARGE(A1:C1,1)-LARGE(A1:C1,2)),18)+(LARGE(A1:C1,2)-LARGE(A1:C1,3)),19)+MIN(A1:C1),20)+1

５つ目の重複しないランダムな数字
E1セル
=MOD(MOD(MOD(MOD(INT(RAND()*16)+(LARGE(A1:D1,1)-LARGE(A1:D1,2)),17)+(LARGE(A1:D1,2)-LARGE(A1:D1,3)),18)+(LARGE(A1:D1,3)-LARGE(A1:D1,4)),19)+MIN(A1:D1),20)+1

のようにMOD、LARGE関数を追加していく事で対応できますが、
関数の文字列は最大何文字までか忘れましたが、限度があると思いますので、いくつでも出来る関数ではありませんね。

同じ数式の繰り返しなのでスマートに出来そうなのですが、ひらめきませんでした。

回答No.7

taisuke555

＃５で回答した者です。
　　0shieteさん疑問です。
　　B1:=INT(RAND()*(B2-3))+2では例えばB2=20だった場合、
　　Int(Rand()*17)+2で2～18までの数字のランダムになると思うのですが、
　　B1:=INT(RAND()*(B2-2))+2ではありませんか？
　　　　（間違っていたらすみません）
－－－－－－－－－－－－－－－－－－－－－－－－－
＃５の考え方です。（といっても説明しにくいので１つずつの関数を見ていくだけですが）
関数の下の（）内の数字はランダムで取得できる数字の範囲です。
（１）Ａ１セル
　　=INT(RAND()*20)+1
　　　　　　（１～２０）
（２）Ｂ１セル（A1=12と仮定すると）
　　　=INT(RAND()*19)
　　　　　　（０～１８）
　　　=INT(RAND()*19)+A1
　　　　　　（１２～３０）
　　　=MOD(INT(RAND()*19)+A1,20)
　　　　　　（０～１０、１２～１９）
　　　=MOD(INT(RAND()*19)+A1,20)+1
　　　　　　（１～１１、１３～２０）
　　　　　で１２を除いた１～２０の数
（３）Ｃ１セル（B1=7だったと仮定すると　ABS(A1-B1)=A1-B1の絶対値=5、
　　　　　　　　　　MIN(A1,B1)=A1とB1の小さい方=7）
　　　=INT(RAND()*18)
　　　　　　（０～１７）
　　　=INT(RAND()*18)+(ABS(A1-B1))
　　　　　　（５～２２）
　　　=MOD(INT(RAND()*18)+(ABS(A1-B1)),19)
　　　　　　（０～３、５～１８）
　　　=MOD(INT(RAND()*18)+(ABS(A1-B1)),19)+MIN(A1,B1)
　　　　　　（７～１０、１２～２５）
　　　=MOD(MOD(INT(RAND()*18)+(ABS(A1-B1)),19)+MIN(A1,B1),20)
　　　　　　（０～５、７～１０、１２～１９）
　　　=MOD(MOD(INT(RAND()*18)+(ABS(A1-B1)),19)+MIN(A1,B1),20)+1
　　　　　　（１～６、８～１１、１３～２０）
　　　　　　で７、１２を除いた１～２０の数

Ａ１セルとＢ１セルは仮定で数字を入れましたが他の数字でも問題ないと思います。
試してみてください。

回答No.6

0shiete

3つのセルの場合について、考えました。
B2にはランダムに表示させたい最大数が入っているものとします。
（1～Nの数字を表示させたいならNをB2に）

A1:=INT(RAND()*(B1-1))+1
B1:=INT(RAND()*(B2-3))+2
C1:=IF(B1=(B2-1),B2,INT((B2-B1)*RAND())+B1+1)

が今回考えた式です。

考え方は、
まず、B1で一つ数字を決め
A1のセルには1～B1の値でサイコロを振り、
C1のセルにはB1の値～B2の値でサイコロを振る
という考え方です。

ですから、必ず、A1<B1<C1の関係がでてきます。
また、B2の値が小さすぎるとき、（B2=4の時）
は、出てこない組み合わせがあります。

回答No.5

taisuke555

私も考えてみました。
２０までの重複しない数字を拾います。

（１）
Ａ１：　=INT(RAND()*20)+1
Ｂ１：　=MOD(INT(RAND()*19)+A1,20)+1
Ｃ１：　=MOD(MOD(INT(RAND()*18)+(ABS(A1-B1)),19)+MIN(A1,B1),20)+1

でどうでしょうか？
（一応テスト中には重複した数字は出てきませんでしたが、確認してみてください）

（２）ユーザー定義関数（ＶＢＡがわかる方でしたら）
標準モジュールに
－－－－－－－－－この下から－－－－－－－－－－－
Function RandA(Rn As Range, SI As Integer, EI As Integer)
　　Dim Cl As Range　　'検索セル
　　Dim Er As Boolean '重複フラグ
　　Dim Nm As Integer 'ランダム数

　　If (Rn.Count > EI - SI) Then　　　　　　 'ランダム数字の個数よりセル数が多い場合
　　　　RandA = "Error"　　　　　　　　　　 '戻り値にエラーを設定
　　　　Exit Function
　　End If

　　'ランダム数設定
　　Do
　　　　Nm = Int(Rnd() * (EI - SI + 1)) + SI 'SI ～ EI までのランダム数設定
　　　　Er = False　　　　　　　　　　　　　　'重複フラグを解除
　　　　For Each Cl In Rn
　　　　　　If (Cl.Value = Nm) Then　　　　 '重複数字がある場合
　　　　　　　　Er = True　　　　　　　　　　 '重複フラグを設定
　　　　　　　　Exit For
　　　　　　End If
　　　　Next Cl
　　Loop While (Er = True)　　　　　　　　　　'重複フラグが解除されるまでDo...Loopを繰り返す
　　RandA = Nm　　　　　　　　　　　　　　　　'戻り値にランダム数を設定
End Function
－－－－－－－－－この上まで－－－－－－－－－－－
を貼り付けて
Ａ１セル　=INT(RAND()*20)+1
Ａ２セル　=randa(A1,1,20)
Ａ３セル　=randa(A1:B1,1,20)
※=randa(範囲,開始数字,終了数字)
　　開始数字から、終了数字までの間で、範囲にない数字をランダムで表示
という方法もあります。（ＶＢＡの方はあくまでサンプルです）

間違っていたり、わからない事があれば、補足してください。

回答No.4

0shiete

補足の書き込み有難うございます。

２桁の場合についてもお考えになっている
とのことですので、
参考になるかどうかわかりませんが、
以前、私が回答したものを挙げさせていただきます。

「ロト6の数字をどうやって決めるか」という質問です。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=507176

回答No.3

0shiete

#2様の回答を読んで思いついたので、回答させていただきます。

#2様のrand()の部分をrandbetween()を使っては
いかがでしょうか？

Ａ１
　=MID("12345",RANDBETWEEN(1,5),1)
Ｂ１
　=MID(SUBSTITUTE("12345",A1,),RANDBETWEEN(1,4),1)
Ｃ１
　=MID(SUBSTITUTE(SUBSTITUTE("12345",A1,),B1,),RANDBETWEEN(1,3),1)

RAND()がゼロを返す場合がなくなります。

補足

御回答ありがとうございます。

randbetween()関数ですが、エクセル９８なので実装されていないんです（T＿T）
この関数があれば、ちょっと楽になるんですけどね～。

１～１０の中から選択するなど、２桁も含めた場合の方法も現在試行錯誤中です。
何か良いアドバイスがありましたら、よろしく御願いします。

回答No.2

comv

こんばんは

こんな感じで如何でしょうか

Ａ１
　=MID("12345",ROUNDUP(RAND()*5,0),1)
Ｂ１
　=MID(SUBSTITUTE("12345",A1,),ROUNDUP(RAND()*4,0),1)
Ｃ１
　=MID(SUBSTITUTE(SUBSTITUTE("12345",A1,),B1,),ROUNDUP(RAND()*3,0),1)

RAND()の結果が０の場合のみ支障がありますが
発生確率上無視してよいと思います。

補足

御回答ありがとうございます。

数式を見て、「なるほど～」って思ってしまいました（＾＾；
すでに選ばれた数字を抜き取って、その中からまたランダムに選択して行くって方法ですね。

RAND()で０が発生しないように、下記のようにアレンジを加えてみました。

A１
=MID("12345",INT(RAND()*5)+1,1)

B１
=MID(SUBSTITUTE("12345",A1,),INT(RAND()*4)+1,1)

C１
=MID(SUBSTITUTE(SUBSTITUTE("12345",A1,),B1,),INT(RAND()*3)+1,1)

大したアレンジでもないですけどね（＾＾；

今の所は、選択する数字が少ないので良いのですが、これが１～１０の中から、となった場合は、この方法は使用できないですよね。

１桁の内は何とか大丈夫そうですが、選択する数字は今後どんどん増えて行くので、２桁になった場合も考えてみようと思います。

２桁の場合のいいアイディアがありましたら、アドバイスして頂けると助かります。

回答No.1

taknt

ＶＢＡでやるのかな？

普通は、並び替えで実現します。
１から５まで 配列に それぞれの 数字（１から５まで順に入れます）

それで ランダムで １から ５までの数字を二つ出します。

例
ａ（１）からａ（５）まで １から ５入れてるとします。
ランダムで ２と ３が出たとします。
ａ（２）の値と ａ（３）の値を交換します。
これを 何回か繰り返すと ランダムな ａ（１）からａ（５）までが できます。

って わかるかな？

補足

御回答ありがとうございます。

VBAでも良いのですが、よくVBAが分からないので関数でやってみたいと思っています。
VBAの方が簡単であれば、そっちを使用したいと思いますが。

ん～、せっかく回答して頂いたのですが私の頭では理解できませんでした（ー＿ー；
要するにランダムで２つの数字を発生させて、あらかじめ入力していた数字の中で、ランダムで出て来た数字どうしを入れ替えるということでしょうか？

でもこの方法だと、かなり手順を踏まないといけないような気がするのですが、私の理解方法が悪いのかな。

できれば、一発で１～５の数字の中から３つをランダムで表示できるようにしたいと思っています。

いいアイディアがピンときましたら、またアドバイスを御願い致します。
私の方も試行錯誤してみます。