|
エクセル関数を使って、ミニロトのランダム抽選機を作ってみました！
ぜひ、皆さんもチャレンジしてみてください。
各セルに入力する数式は以下にように入力すれば、Ｆ９キーを押すたびにランダム抽選されます。
また、Ｆ９キーを長押しし、気合いをこめて指を離すようにすると楽しめると思います。
入力数３０個と多くなりますが、がんばってみてください！
（１）のセルには =SMALL(C7:G7,1)
（２）のセルには =SMALL(C7:G7,2)
（３）のセルには =SMALL(C7:G7,3)
（４）のセルには =SMALL(C7:G7,4)
（５）のセルには =SMALL(C7:G7,5)
（６）〜（１０）のセルには =INT(RAND()*31)+1
（１１）のセルには =C11
（１２）のセルには =IF(C11=D11,INT(RAND()*31+1),D11)
（１３）のセルには =IF(C11=E11,INT(RAND()*31+1),IF(D11=E11,INT(RAND()*31+1),E11))
（１４）のセルには =IF(C11=F11,INT(RAND()*31+1),IF(D11=F11,INT(RAND()*31+1),IF(E11=F11,INT(RAND()*31+1),F11)))
（１５）のセルには =IF(C11=G11,INT(RAND()*31+1),IF(D11=G11,INT(RAND()*31+1),IF(E11=G11,INT(RAND()*31+1),IF(F11=G11,INT(RAND()*31+1),G11))))
（１６）のセルには =C10
（１７）のセルには =IF(C10=D10,INT(RAND()*31+1),D10)
（１８）のセルには =IF(C10=E10,INT(RAND()*31+1),IF(D10=E10,INT(RAND()*31+1),E10))
（１９）のセルには =IF(C10=F10,INT(RAND()*31+1),IF(D10=F10,INT(RAND()*31+1),IF(E10=F10,INT(RAND()*31+1),F10)))
（２０）のセルには =IF(C10=G10,INT(RAND()*31+1),IF(D10=G10,INT(RAND()*31+1),IF(E10=G10,INT(RAND()*31+1),IF(F10=G10,INT(RAND()*31+1),G10))))
（２１）のセルには =C9
（２２）のセルには =IF(C9=D9,INT(RAND()*31+1),D9)
（２３）のセルには =IF(C9=E9,INT(RAND()*31+1),IF(D9=E9,INT(RAND()*31+1),E9))
（２４）のセルには =IF(C9=F9,INT(RAND()*31+1),IF(D9=F9,INT(RAND()*31+1),IF(E9=F9,INT(RAND()*31+1),F9)))
（２５）のセルには =IF(C9=G9,INT(RAND()*31+1),IF(D9=G9,INT(RAND()*31+1),IF(E9=G9,INT(RAND()*31+1),IF(F9=G9,INT(RAND()*31+1),G9))))
（２６）のセルには =C8
（２７）のセルには =IF(C8=D8,INT(RAND()*31+1),D8)
（２８）のセルには =IF(C8=E8,INT(RAND()*31+1),IF(D8=E8,INT(RAND()*31+1),E8))
（２９）のセルには =IF(C8=F8,INT(RAND()*31+1),IF(D8=F8,INT(RAND()*31+1),IF(E8=F8,INT(RAND()*31+1),F8)))
（３０）のセルには =IF(C8=F8,INT(RAND()*31+1),IF(D8=F8,INT(RAND()*31+1),IF(E8=F8,INT(RAND()*31+1),F8)))
以上の数式を各セルに入力すれば、エクセルで作るランダム抽選機は完成です。
後は、Ｆ９キーを気合いを入れて押すだけ抽選結果が表示されます。
【 備 考 】
�Α銑�のセルで初ランダム抽選して、同じ数字が出てしまったセルのみ補正１〜４で再抽選します。
そして最終的に補正４で決定した数字を� 銑イ離札襪望�さい順に並びかえます。
|
コメント（0）
