１－ （
） ＿＿＿＿＿
☆御神籤と関数を使ったゲーム☆
マクロを使った御神籤
関数を使ったゲーム
– 何時どこで誰がどうなったゲーム
– 双六
★マクロを使った御神籤★
御神籤の特徴
– ボタン一つで御神籤が引けます。
– 大吉などが出る確率は低く設定され
ています。
御神籤
小吉
御神籤を引く
For h = 1 To 20
c = Rnd()
If c < (5 / 49) Then
i = "大吉"
ElseIf c < (12 / 49) Then
i = "中吉"
ElseIf c < (20 / 49) Then
i = "小吉"
ElseIf c < (29 / 49) Then
i = "吉"
ElseIf c < (37 / 49) Then
i = "末吉"
ElseIf c < (44 / 49) Then
i = "凶"
Else
i = "大凶"
End If
Cells(7, 3) = i
For b = 1 To 250000 * h
Next b
Next h
御神籤のマクロ
・ココで御神籤の確率などを決定しています。
・これはサイコロのマクロを参考にしています。
・確率は大吉と大凶があまり出ないように設
定しています。
Range("C7").Select
With Selection.Font
.ColorIndex = 39
End With
・ココで文字の色を指
定します。
・この場合ColorＩndex
は39になっています。
・39というのはこんな
色です。
★関数を使ったゲーム★
･いつどこで誰がどうなったゲーム
・遊び方
・いつ？
・どこで？
・誰が？
・どうなった?
結果
1
下のＣ５～Ｇ８セルに言葉を入れてくださいF9キーで遊べます☆ミ
3時前に
寝ている時
学校で
家で
彼が
あなたが
殺人を犯した 失踪した
寝ている時
家で
←０を入れるとリセット
0.33353592
0.265464
0.56633363
授業中
教室で
先生が
倒れた
通学中
どこかで
チワワが
うるうるした
あなたが
0.36957975
0.8082023
12時に
別世界で
チクワが
寝た
寝た
0.854093691
0.4110387
0.02235993
・上のセルに適当な文字を入れ、乱数を発生させることによって上のセルに入れた文字を
ランダムに組み合わせて文を作ります。
・各項目表示される確率は同じです。
・乱数は背景色（白）と同じにして見えなくしています。
★双六★
☆双六ゲーム☆
ルール：ゴールまで行ったらＢ１２セルに０を入れて下さい。Ｆ９でスタート☆
↓ドキドキサイコロ
1
ハズレ
30
0.0483
↓スタート
0.590147
↓ドキドキサイコロがハズレだったらスタートに戻る
・関数を使った双六です
が、まだ制作途中なの
で少し改良が必要で
す。
1 ↓ゴール ↓行き過ぎちゃった…
３マス
↑スタートに戻る
0
1
＊特徴＊
・乱数を使ってサイコロとア
タリ・ハズレの判定を行いま
す。
・乱数や今まで進んだ距離
などの数字は背景色と同化
させて見えなくしています。
・所々にスタートに戻るなど
の特別なマスが設定してあ
ります。
←ドキドキサイコロがアタリなら３進む
1
↑４戻る
←０を入れるとはじめから
＊問題点＊
・制作時間が短くて双六の最後の部
分が適当になってしまいました。
・特殊なマス(スタートに戻るなど)に
とまった時に表示がされない。
・動く時に無駄な動きが出る。
･上記のような問題点がまだ解
決されていません。
© Copyright 2024 ExpyDoc
