この記事は
一生遊べる野球ゲーム 【ベストプレープロ野球】
をエクセルＶＢＡでオリジナルリーグを作成するツールを作り、自分だけの世界を楽しんでもらえる参考になればと思い書いております。
すでに自作ツールで運用している方にも良い刺激になればと思っております。
前 回 まで
・野手シートと投手シートの選手名を自動で作成しました。
・リーグ運営の設定表作成（選手の能力・成長 決定）
・野手の初期パラメータ作成（16歳）
・野手のプロ入り後パラメータ作成（現在）
・投手の初期パラメータ作成（16歳）
・投手のプロ入り後パラメータ作成（現在）
・オリジナルリーグ 全１２球団分の支配下登録後のデータ作成
⇓出来上がっているプログラム
前回でベストプレープロ野球で読み込む為のテキストファイルを作成しました。
シーズン終了後、来シーズンに向けてキャンプが始まります。
今回はそのキャンプの部分を作って行きたいと思います。
ストーブリーグ（キャンプ）
・新人と新外国人のピックアップ
・現役選手も１歳年をとります。もちろん成長も衰えもあります。
⇓来シーズンに向けてのプログラムを作成します。
Public Sub ストーブリーグ()
Dim i As Byte
Dim j As Byte
Dim L As Byte
Dim Low As Byte
Dim Col As Byte
Dim SN As String
Dim Point As Byte
Dim BT As Boolean
Dim PBi As String
Dim PBJ As String
For i = 0 To 11
Sheets(“リーグ情報”).Activate
PBi = Cells(3 + i, 4)
Call 年齢加算(PBi)
PBJ = PBi & “_野手”
Call 野手作成(PBJ, False)
Call 野手成長(PBJ)
PBJ = PBi & “_投手”
Call 投手作成(PBJ, False)
Call 投手成長(PBJ)
Next i
MsgBox (“キャンプが終了しました。”)
End Sub
↑ここまでです。
⇓ボタンを選択して右クリックでマクロの登録でストーブリーグを選んでOK。
これで、このボタンを押す事によって
選手が１年としをとり、成長や衰えたりします。
また新人が投手・野手共５人づつ各球団にリストアップされます。
新外国人も現役入れて５人までリストアップされます。
年 齢 加 算
全選手1歳年を取るプログラムです。ストーブリーグ内で使用されます。
↓のプログラムを共通モジュールに作成していきます。
Public Function 年齢加算(PBi As String)
Dim j As Byte
Dim i As Byte
Dim ii As Byte
Dim k As Byte
Dim ID As Integer
Dim Low As Byte
Dim Col As Byte
Dim colcol As Byte
Dim PBJ As String
For j = 0 To 1
Low = 0
Col = 2
If j = 0 Then
PBJ = PBi & “_野手”
Sheets(PBJ).Activate
ii = 39
colcol = 24 + 3
Else
PBJ = PBi & “_投手”
Sheets(PBJ).Activate
ii = 41
colcol = 16 + 3
End If
For i = 0 To ii
‘年齢加算
Low = Low + 3
If Cells(Low, Col) > 1 Then
Cells(Low, Col) = Cells(Low, Col) + 1
End If
Next i
Next j
End Function
↑ここまでです。
これで一通り完了です。
凄い勢いで作ったので（考えるより先にキーボード叩いてました（笑））
変なことすると（いじってはいけないセルをいじったり）すぐエラーがでます。
エラーが出ても警告だけして先に進むのはご愛敬…
ファイルのアップロードが出来るのもわかりましたし、
1日もしない内にダウンロードしていただいた方もいるので(≧◇≦)
次の記事でまとめたいと思います。
ベストプレープロ野球を知りたい方は
ベストプレープロ野球 ソフトのお求めは⇓の画像から（Win,GBA,PS2）
