俺流ロトラボ

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

全体表示

[ リスト ]

イメージ 1

イメージ 2

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

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

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

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

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

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

(7)〜(12)のセルには =INT(RAND()*43)+1

(13)のセルには =C11
(14)のセルには =IF(C11=D11,INT(RAND()*43+1),D11)
(15)のセルには =IF(C11=E11,INT(RAND()*43+1),IF(D11=E11,INT(RAND()*43+1),E11))
(16)のセルには =IF(C11=F11,INT(RAND()*43+1),IF(D11=F11,INT(RAND()*43+1),IF(E11=F11,INT(RAND()*43+1),F11)))
(17)のセルには =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))))
(18)のセルには =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)))))

(19)のセルには =C10
(20)のセルには =IF(C10=D10,INT(RAND()*43+1),D10)
(21)のセルには =IF(C10=E10,INT(RAND()*43+1),IF(D10=E10,INT(RAND()*43+1),E10))
(22)のセルには =IF(C10=F10,INT(RAND()*43+1),IF(D10=F10,INT(RAND()*43+1),IF(E10=F10,INT(RAND()*43+1),F10)))
(23)のセルには =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)))) 
(24)のセルには =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)))))

(25)のセルには =C9
(26)のセルには =IF(C9=D9,INT(RAND()*43+1),D9)
(27)のセルには =IF(C9=E9,INT(RAND()*43+1),IF(D9=E9,INT(RAND()*43+1),E9))
(28)のセルには =IF(C9=F9,INT(RAND()*43+1),IF(D9=F9,INT(RAND()*43+1),IF(E9=F9,INT(RAND()*43+1),F9)))
(29)のセルには =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))))
(30)のセルには =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)))))

(31)のセルには =C8
(32)のセルには =IF(C8=D8,INT(RAND()*43+1),D8)
(33)のセルには =IF(C8=E8,INT(RAND()*43+1),IF(D8=E8,INT(RAND()*43+1),E8))
(34)のセルには =IF(C8=F8,INT(RAND()*43+1),IF(D8=F8,INT(RAND()*43+1),IF(E8=F8,INT(RAND()*43+1),F8)))
(35)のセルには =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))))
(36)のセルには =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)))))

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

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


【 備 考 】

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

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

各セルに上記の数式をコピーした貼りつけて作成してみてください。

閉じる コメント(4)

顔アイコン

今度ゆっくりチャレンジしてみようかな

2010/12/9(木) 午後 0:49 ALL-IN 返信する

顔アイコン

よかったら、作って試してみてください!
予想に迷った時などに使うといいかも知れませんね。

2010/12/9(木) 午後 0:59 謎の男 返信する

顔アイコン

作り方を教えて下さい

2011/3/20(日) 午後 4:00 [ nzo*06 ] 返信する

顔アイコン

上記に書いてある関数をコピーして、36個の各セルに貼り付ければ
簡単に作れるはずです。
例えば,良分には、=SMALL(C7:H7,1)をコピーして、セルに貼り付けるだけでOKです。

2011/3/20(日) 午後 11:24 謎の男 返信する

コメント投稿

顔アイコン

顔アイコン・表示画像の選択

名前パスワードブログ
絵文字
×
  • オリジナル
  • SoftBank1
  • SoftBank2
  • SoftBank3
  • SoftBank4
  • docomo1
  • docomo2
  • au1
  • au2
  • au3
  • au4
投稿

.


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

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

みんなの更新記事