|
エクセル関数を使って、ミニロトのランダム抽選機を作ってみました！
ぜひ、皆さんもチャレンジしてみてください。
各セルに入力する数式は以下にように入力すれば、Ｆ９キーを押すたびにランダム抽選されます。
また、Ｆ９キーを長押しし、気合いをこめて指を離すようにすると楽しめると思います。
入力数３６個と多くなりますが、がんばってみてください！
（１）のセルには =SMALL(C7:H7,1)
（２）のセルには =SMALL(C7:H7,2)
（３）のセルには =SMALL(C7:H7,3)
（４）のセルには =SMALL(C7:H7,4)
（５）のセルには =SMALL(C7:H7,5)
（６）のセルには =SMALL(C7:H7,6)
（７）〜（１２）のセルには =INT(RAND()*43)+1
（１３）のセルには =C11
（１４）のセルには =IF(C11=D11,INT(RAND()*43+1),D11)
（１５）のセルには =IF(C11=E11,INT(RAND()*43+1),IF(D11=E11,INT(RAND()*43+1),E11))
（１６）のセルには =IF(C11=F11,INT(RAND()*43+1),IF(D11=F11,INT(RAND()*43+1),IF(E11=F11,INT(RAND()*43+1),F11)))
（１７）のセルには =IF(C11=G11,INT(RAND()*43+1),IF(D11=G11,INT(RAND()*43+1),IF(E11=G11,INT(RAND()*43+1),IF(F11=G11,INT(RAND()*43+1),G11))))
（１８）のセルには =IF(C11=H11,INT(RAND()*43+1),IF(D11=H11,INT(RAND()*43+1),IF(E11=H11,INT(RAND()*43+1),IF(F11=H11,INT(RAND()*43+1),IF(G11=H11,INT(RAND()*43+1),H11)))))
（１９）のセルには =C10
（２０）のセルには =IF(C10=D10,INT(RAND()*43+1),D10)
（２１）のセルには =IF(C10=E10,INT(RAND()*43+1),IF(D10=E10,INT(RAND()*43+1),E10))
（２２）のセルには =IF(C10=F10,INT(RAND()*43+1),IF(D10=F10,INT(RAND()*43+1),IF(E10=F10,INT(RAND()*43+1),F10)))
（２３）のセルには =IF(C10=G10,INT(RAND()*43+1),IF(D10=G10,INT(RAND()*43+1),IF(E10=G10,INT(RAND()*43+1),IF(F10=G10,INT(RAND()*43+1),G10))))
（２４）のセルには =IF(C10=H10,INT(RAND()*43+1),IF(D10=H10,INT(RAND()*43+1),IF(E10=H10,INT(RAND()*43+1),IF(F10=H10,INT(RAND()*43+1),IF(G10=H10,INT(RAND()*43+1),H10)))))
（２５）のセルには =C9
（２６）のセルには =IF(C9=D9,INT(RAND()*43+1),D9)
（２７）のセルには =IF(C9=E9,INT(RAND()*43+1),IF(D9=E9,INT(RAND()*43+1),E9))
（２８）のセルには =IF(C9=F9,INT(RAND()*43+1),IF(D9=F9,INT(RAND()*43+1),IF(E9=F9,INT(RAND()*43+1),F9)))
（２９）のセルには =IF(C9=G9,INT(RAND()*43+1),IF(D9=G9,INT(RAND()*43+1),IF(E9=G9,INT(RAND()*43+1),IF(F9=G9,INT(RAND()*43+1),G9))))
（３０）のセルには =IF(C9=H9,INT(RAND()*43+1),IF(D9=H9,INT(RAND()*43+1),IF(E9=H9,INT(RAND()*43+1),IF(F9=H9,INT(RAND()*43+1),IF(G9=H9,INT(RAND()*43+1),H9)))))
（３１）のセルには =C8
（３２）のセルには =IF(C8=D8,INT(RAND()*43+1),D8)
（３３）のセルには =IF(C8=E8,INT(RAND()*43+1),IF(D8=E8,INT(RAND()*43+1),E8))
（３４）のセルには =IF(C8=F8,INT(RAND()*43+1),IF(D8=F8,INT(RAND()*43+1),IF(E8=F8,INT(RAND()*43+1),F8)))
（３５）のセルには =IF(C8=G8,INT(RAND()*43+1),IF(D8=G8,INT(RAND()*43+1),IF(E8=G8,INT(RAND()*43+1),IF(F8=G8,INT(RAND()*43+1),G8))))
（３６）のセルには =IF(C8=H8,INT(RAND()*43+1),IF(D8=H8,INT(RAND()*43+1),IF(E8=H8,INT(RAND()*43+1),IF(F8=H8,INT(RAND()*43+1),IF(G8=H8,INT(RAND()*43+1),H8)))))
以上の数式を各セルに入力すれば、エクセルで作るランダム抽選機は完成です。
後は、Ｆ９キーを気合いを入れて押すだけ抽選結果が表示されます。
【 備 考 】
�А銑�のセルで初ランダム抽選して、同じ数字が出てしまったセルのみ補正１〜４で再抽選します。
そして最終的に補正４で決定した数字を� 銑Δ離札襪望�さい順に並びかえます。
各セルに上記の数式をコピーした貼りつけて作成してみてください。
|
今度ゆっくりチャレンジしてみようかな
2010/12/9(木) 午後 0:49
よかったら、作って試してみてください！
予想に迷った時などに使うといいかも知れませんね。
2010/12/9(木) 午後 0:59
作り方を教えて下さい
2011/3/20(日) 午後 4:00 [ nzo*06 ]
上記に書いてある関数をコピーして、３６個の各セルに貼り付ければ
簡単に作れるはずです。
例えば�，良�分には、=SMALL(C7:H7,1)をコピーして、セルに貼り付けるだけでＯＫです。
2011/3/20(日) 午後 11:24