この記事は
一生遊べる野球ゲーム 【ベストプレープロ野球】
をエクセルＶＢＡでオリジナルリーグを作成するツールを作り、自分だけの世界を楽しんでもらえる参考になればと思い書いております。
すでに自作ツールで運用している方にも良い刺激になればと思っております。
前 回 まで
・野手シートと投手シートの選手名を自動で作成しました。
・リーグ運営の設定表作成（選手の能力・成長 決定）
・野手の初期パラメータ作成（16歳）
・野手のプロ入り後パラメータ作成（現在）
・投手の初期パラメータ作成（16歳）
・投手のプロ入り後パラメータ作成（現在）
⇓出来上がったプログラム
前回で野手・投手の能力を決定しましたので
今回は監督含むリーグ情報を作成していきます。
今回はベストプレイベースポールで読み込むテキストファイル
を作成する際にも必要な項目ですので 図を参考に 書く位置を間違えないようデザインしていきます。
リーグ 情報
まずは図⇓を見てください。
各リーグの監督パラメータ が14行目まで
その下はリストボックスで使うリスト項目があります。
ボタンが並んでいる所は、このツールで使うプログラムと連動しています。
※球場のマツダスタジアムや千葉マリンスタジアムなどはスタジアムエディタからダウンロードして使用しています。BestPlayBaseball’00 フォルダの直下のSTADIUMフォルダに球場ファイルがあります。（Win版のみ）
⇓スタジアム情報⇓
筆者はBKフォルダに初期スタジアム情報があります。
【監督データ】
表では全部同じにしてますが、これを基本にしてます。
好みで変えても良いですが、筆者は変えてません。
【ボタンの説明】ぶっちゃけ ボタン4つ押すだけです。
【ボタンの作成方法】
⇓の図で選択している挿入からボタンを追加します。
挿入横のデザインモードを押すと デザインモードに移行しますので、自由に配置します。
ボタンを押した時のイベント（プログラム）などは後で紹介します。
新 規 作 成 （リーグ）
作成済のシート（”T_野手”、”T_投手”）を元に12球団分作成します。（コピーで良いです）
シート名をリーグ情報のチーム純に 記号＋_野手（YB_野手）,記号＋_投手（YB_投手） に変えていきます。
※記号は全角1文字 半角2文字までです。_は半角です。
※必ず記号とシート名の記号は同じにします。 例）D ⇒ D_野手
一番良いのはリーグ情報の記号をコピーして、シート名変更で貼り付ける。
これで12球団分のシートができました。
12球団分の選手を作る
12球団分 の選手を作っていきます。
シートは出来ました。選手作成と選手成長も作りました。
今まで1チームだったものを12回繰り返すだけです。
メインモジュール に追加
では、メインモジュールのtest プログラムはいらないので削除します。
↓のプログラムをメインジュールに作成します。
Public Sub 新規リーグ作成()
Dim i As Byte
Dim Pi As String
Dim Bi As String
For i = 0 To 11
Sheets(“リーグ情報”).Activate
Pi = Cells(3 + i, 4) & “_投手”
Bi = Cells(3 + i, 4) & “_野手”
Call 野手作成(Bi, True)
Call 野手成長(Bi)
Call 投手作成(Pi, True)
Call 投手成長(Pi)
Next i
MsgBox (“リーグ作成が完了しました。”)
End Sub
↑ここまでです。
この新規リーグ作成を実行するだけで、12球団のデータが出来ます。
このプログラムをリーグ情報のボタン新規作成に対応させます。
新規作成ボタンを選択して右クリックでマクロの登録ができますので
先程作成した 新規作成を登録します。
あとは選択を外し（関係ないセルをダブルクリック）
ボタンを押して実行します。
プログラムが走り、シートが次々変わり、書きこまれていきます。
この作業に大体5分ぐらいかかります。
終われば終了のメッセージがでます。
次回は出来上がったチームの紹介と1軍選別をチームごとにやっていきます。
ベストプレープロ野球を知りたい方は
ベストプレープロ野球 ソフトのお求めは⇓の画像から（Win,GBA,PS2）
