俺流ロトラボ

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

過去の投稿日別表示

[ リスト | 詳細 ]

全1ページ

[1]

イメージ 1

イメージ 2

今日は木曜日でメンズデイで1000円で映画鑑賞できるので、木村拓哉と黒木メイサ主演の

ヤマトを観て観きました。母上はシニア料金で1000円でした。

最近、休みのたびに何処か連れて行ってとうるさいので困ってしまいます。

木村拓哉と黒木メイサのキスシーンもあって・・・・ごちそうさまって感じでした。


昨日の夜から奥歯付近が痛くて、歯医者さんで治療してから映画に行ったのですが、

母上は歯医者の予約14時にもかかわらず、13時には玄関先でずーと一人で待って

いました。自宅から歯医者まで5分もかからないのに・・・いやいや自分のペースで

生活できないので困っちゃうんですよね。

でも、今まで自分を育ててくれた母だから・・・面倒みないといけませんよね。

イメージ 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で決定した数字を 銑Δ離札襪望さい順に並びかえます。

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

全1ページ

[1]


.


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

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

みんなの更新記事