きょういく　ユースフル！　～　僕は触媒になりたい　～

​​​ 【Excelプログラミング講座】第6回です。

この講座では、 エクセル野球シミュレーション「ダイナミックベースボール」 のプログラム実物を材料として、エクセルでのプログラミングを初心者向けに解説していきます。



▼ ダイナミック・ベースボールのページ

過去記事をまとめたサイト↓
▼​ エクセルプログラミング講座


前回は、 「条件分岐のプログラミングは、ＩＦ構文を使う 」 という話をしました。

もし　Ａ　なら　→　こうする

もし　Ｂ　なら　→　こうする

もし、ＡでもＢでもないなら　→　こうする

もし　の話は、おわり！

というような構文のことです。


プログラミング初心者の方は、ぜひ、慣れてくださいね！

今回は、前回のつづき。
「投球プログラム」の後に、打球が飛んだ後の処理をする 「飛球判定」のプログラム 、その中身です。

実現すべき内容は、以下の通りでしたね。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　（２）バッターが球を打った場合、フェアー判定をする。

　　　　　サイコロを２つふれ。
打球ダイス （ダイス２個）

　　・ ゾロ目 → ホームラン判定

　　・ 和が偶数 （たしたら偶数）　 → 　とった アウト！

・和が奇数 → 　うったヒット！

出典：​ ダイスでできるスリリングな野球ゲーム「ダイサブル・ベースボール」 ​
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

では、エクセルの 「ダイナミックベースボール」 のプログラム実物を開ける方は、次のようにクリックしてください。

Module1　→　Declarations　→　飛球判定





以下、飛球判定プログラムの中身の前半です。
前回同様、本質的でないところは、飛ばします。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 飛球判定()

Select Case BN(0) '0=偶数、1=奇数、3=飛球判定のスキップ

’Select Caseというのを今度は使っていますね。
　ＩＦ構文と同じようなことができますが、
　こちらのほうが人によっては分かりやすいかもしれません。

　BN(0)という変数は、このプログラムに来るまでに、２つのダイスの目を足して２で割ったあまりが入るようになっています。つまり、０ならダイスの目の和が偶数、１ならダイスの目の和が奇数と言えます。

Case 0
’ ダイスの目の和が偶数の場合の条件分岐。ぞろ目の場合は和は必ず偶数になるので、このケースに当てはまります。

    If Dice1 = Dice2 Then    'ぞろ目のとき

            If Dice1 <= Range("I8") Then
​’ Range("I8")は、そのセル番地を見てもらうと分かりますが、何が入っていますか？
　バッターの「ちから」ですね。
　力持ちのバッターほど、ホームランの確率が上がるように、ぞろ目のときのダイスの目とバッターの「ちから」の数値を比べています。 ​
                Range("E12") = "H"
                Range("G12") = "O"
                Range("I12") = "M"
                Range("K12") = "E"
                Range("M12") = "R"
                Range("O12") = "U"
                Range("Q12") = "N"
                Range("S12") = "！"
’こちらの エクセルのセルの番地は、表示される文字を全部追っていくと・・・
　「ＨＯＭＥＲＵＮ！」になりますね！

’ さて、以降は、ホームランを打った場合にしなければならない処理が続きます。
一言で「ホームランを打った」と言っても、いろいろな状況が考えられるわけです。

さて、プログラム処理的に、何をしないといけないでしょうか？

                Score1 = Score1 + 1
’ 点数は最低でも１点入るはずですので、まずは１点を内部的に持ちます。

                HitIn
’ ヒット扱いですので、ヒットを打ったときの処理もします。
ＨｉｔＩｎは、チームのトータルヒットカウントの表示を増やすプログラム。

                Call SeisekiB(Range("H6"), 14)
                Call SeisekiB(Range("H6"), 16)
                Call SeisekiB(Range("H6"), 20)
                Call SeisekiP(Range("O6"), 20)
’ 打者成績への反映。（４つめのみ、投手成績への反映。）
　チームデータファイルから該当選手名を探し出し、
　その後、１４番目とか１６番目といった数字の列の数字を１つ増やします。
　つまり、チームデータファイルの１４番目はＮ列の「本塁打数」。
　同じく１６番目はＰ列の 「打点数」ということになります。




                If R3 > 0 Then
’ Ｒ３は３塁走者の走力なので、これが０より上ということは、つまり走者がいた場合、となります。
​ランナーの処理は、３塁ランナーから順番に処理していきます。​

                    Score1 = Score1 + 1: R3 = 0
                    Range("N10:N11").Value = "" '３塁走者消す
                    MsgBox "３塁ランナーホームイン！！", , "ホームラン！"
                    Call SeisekiB(Range("H6"), 16)
                    Call SeisekiP(Range("O6"), 20)
                    ScoreIn

’ ３塁走者が帰ってきたことにより、得点はさらに＋１。
　打点などの成績反映も追加されます。

                End If

’ 以下、２塁走者、１塁走者がいた場合も、同様に順に処理します。

                If R2 > 0 Then
                    Score1 = Score1 + 1: R2 = 0
                    Range("O9:O10").Value = "" '2塁走者消す
                    MsgBox "２塁ランナーホームイン！！", , "ホームラン！"
                    Call SeisekiB(Range("H6"), 16)
                    Call SeisekiP(Range("O6"), 20)
                    ScoreIn
                End If

                If R1 > 0 Then
                    Score1 = Score1 + 1: R1 = 0
                    Range("P10:P11").Value = "" '1塁走者消す
                    MsgBox "１塁ランナーホームイン！！", , "ホームラン！"
                    Call SeisekiB(Range("H6"), 16)
                    Call SeisekiP(Range("O6"), 20)
                    ScoreIn
                End If

                Call ScoreIn
’ ​ScoreInが何度も出てきます。別の箇所に書いてある得点処理プログラムです。
​​ 得点処理プログラム「ScoreIn」 ​​ は、サヨナラの場合にはゲームが終わってしまうので、
　ゲーム終了までに必要な処理がすべて終わっているのかが重要です。
　（実はここに、今でも取り切れていないバグがまだ潜んでいます・・・。）​

                Range("E12:S12") = "" 'ホームランと書いた文字を消す。

            ElseIf Dice1 = 6 Then
　　　　＜以下、次回！＞
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

長くなるので、次回に続きます。

ホームランかどうかが野球ドラマでは一番大事 ですので、一番最初にそれが書いてありました。（笑）
ホームランを打ったときのランナーの有無が、得点に関係します。
得点が変われば、打者成績の打点数も変わってきますし、投手の自責点も変わってきます。
そういうわけで、単純に「ホームラン！」と表示させるだけではなく、それに付随するプログラムがいろいろとくっついてくるのです。

今回、メインプログラムのエクセルファイルとは違う、 選手データのエクセルファイルをさわるプログラム が書いてありました。こんなふうに、実行ファイルとは違うエクセルファイルの中身を参照したり、数値を変更させたりすることができます。これこそ、エクセル野球シミュレーション「ダイナミックベースボール」の醍醐味です。

これを応用すると、いろいろなプログラムが作れそうですね。




【今日のまとめ】　ホームランの時のプログラムは

​​​走者数に応じて得点処理をする​

​「得点処理」の詳細は今回参照していませんが、少し書いたように、得点処理プログラムの際に、もしそれがサヨナラであればそこでゲームが終了するというイレギュラーなことが待っている可能性があります。実は「飛球判定プログラム」を書いた際にこれがちゃんと想定し切れていなかったので、今でも残っているバグがあるのです。

前回から「条件分岐」についてふれていますが、分岐が増えれば増えるほど、いろいろなケースが生じてくるため、想定し切れていないケースでエラーを起こすということがあります。プログラムは長くなればなるほど、分岐が分岐を呼び、エラーを起こしやすくなるのです。そのため、デバッグしやすい（エラー箇所を見つけやすい）プログラムを書く、ということも重要になってきます。

（※現在残っているバグはゲームが止まるほどの重大なものではありません。普通に遊ぶ分にはほぼ問題ありません。）

最後に、前回同様、他の方が作られた「Excel VBA 入門講座」にリンクを張らせていただきます。
今回は前回の続きに書かれている、「 Select Case～ステートメント」です。

▼ Select Case～ステートメント（Excel VBA 入門講座）

では、次回はバッターの「ちから」数値が低くてホームランにならなかったとき以降の、「飛球判定」プログラムの続きを参照します。​