俺流ロトラボ

『継続は力なり』を信じましょう♪

全体表示

[ リスト ]

イメージ 1

イメージ 2

エクセル関数を使って、ミニロトのランダム抽選機を作ってみました!

ぜひ、皆さんもチャレンジしてみてください。

各セルに入力する数式は以下にように入力すれば、F9キーを押すたびにランダム抽選されます。

また、F9キーを長押しし、気合いをこめて指を離すようにすると楽しめると思います。

入力数30個と多くなりますが、がんばってみてください!

(1)のセルには =SMALL(C7:G7,1)
(2)のセルには =SMALL(C7:G7,2)
(3)のセルには =SMALL(C7:G7,3)
(4)のセルには =SMALL(C7:G7,4)
(5)のセルには =SMALL(C7:G7,5)

(6)〜(10)のセルには =INT(RAND()*31)+1

(11)のセルには =C11
(12)のセルには =IF(C11=D11,INT(RAND()*31+1),D11)
(13)のセルには =IF(C11=E11,INT(RAND()*31+1),IF(D11=E11,INT(RAND()*31+1),E11))
(14)のセルには =IF(C11=F11,INT(RAND()*31+1),IF(D11=F11,INT(RAND()*31+1),IF(E11=F11,INT(RAND()*31+1),F11)))

(15)のセルには =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))))

(16)のセルには =C10
(17)のセルには =IF(C10=D10,INT(RAND()*31+1),D10)
(18)のセルには =IF(C10=E10,INT(RAND()*31+1),IF(D10=E10,INT(RAND()*31+1),E10))
(19)のセルには =IF(C10=F10,INT(RAND()*31+1),IF(D10=F10,INT(RAND()*31+1),IF(E10=F10,INT(RAND()*31+1),F10)))

(20)のセルには =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))))

(21)のセルには =C9
(22)のセルには =IF(C9=D9,INT(RAND()*31+1),D9)
(23)のセルには =IF(C9=E9,INT(RAND()*31+1),IF(D9=E9,INT(RAND()*31+1),E9))
(24)のセルには =IF(C9=F9,INT(RAND()*31+1),IF(D9=F9,INT(RAND()*31+1),IF(E9=F9,INT(RAND()*31+1),F9)))

(25)のセルには =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))))

(26)のセルには =C8
(27)のセルには =IF(C8=D8,INT(RAND()*31+1),D8)
(28)のセルには =IF(C8=E8,INT(RAND()*31+1),IF(D8=E8,INT(RAND()*31+1),E8))
(29)のセルには =IF(C8=F8,INT(RAND()*31+1),IF(D8=F8,INT(RAND()*31+1),IF(E8=F8,INT(RAND()*31+1),F8)))

(30)のセルには =IF(C8=F8,INT(RAND()*31+1),IF(D8=F8,INT(RAND()*31+1),IF(E8=F8,INT(RAND()*31+1),F8)))

以上の数式を各セルに入力すれば、エクセルで作るランダム抽選機は完成です。

後は、F9キーを気合いを入れて押すだけ抽選結果が表示されます。



【 備 考 】

Α銑のセルで初ランダム抽選して、同じ数字が出てしまったセルのみ補正1〜4で再抽選します。

そして最終的に補正4で決定した数字を 銑イ離札襪望さい順に並びかえます。


.


プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事