ベストプレープロ野球…エクセルVBAでツール作成㉑開幕準備

　　

 

この記事は

一生遊べる野球ゲーム　【ベストプレープロ野球】

をエクセルＶＢＡでオリジナルリーグを作成するツールを作り、自分だけの世界を楽しんでもらえる参考になればと思い書いております。

すでに自作ツールで運用している方にも良い刺激になればと思っております。

 

この記事で紹介する　ツールのダウンロードはこちらから

 

前　回　まで

・野手シートと投手シートの選手名を自動で作成しました。

・リーグ運営の設定表作成（選手の能力・成長　決定）

・野手の初期パラメータ作成（16歳）

・野手のプロ入り後パラメータ作成（現在）

・投手の初期パラメータ作成（16歳）

・投手のプロ入り後パラメータ作成（現在）

・オリジナルリーグ　全１２球団分の支配下登録後のデータ作成

 

⇓出来上がっているプログラム

 

前回で野手・投手の最終能力及び１軍・２軍の振り分けが終わりましたので

今回はベスプレ（ベストプレープロ野球）で読み込むデータを作成していきます。

 

開幕準備　の　流れ

まずは、選手名に空白がある場合はプログラムで全て”_”に置き換えました。

※ゲームではテキストファイルが読み込めずエラーが出ます

 

ベスプレ（ベストプレープロ野球）読み込みファイルを作成するにあたって

２軍は必要ないので、１軍選手のみのシートを作成します。

実際にベスプレ（ベストプレープロ野球）で使う１軍選手です。

 

まずは１２球団各シートの１軍・２軍以外の選手を削除します。

↓不要な選手を削除するプログラムはこちら

Public Function 退団選手削除(ActiveSheetName As String)

Dim WName As Variant
Dim i As Byte
Dim Low As Byte
Dim Col As Byte

WName = Right(ActiveSheetName, 2)

If WName = “野手” Then
Col = 28
Else
Col = 20
End If
Low = 2

For Low = 2 To 139 Step 3
i = 1
‘退団選手を削除
If Cells(Low, Col – 4) = “退団” _
Or Cells(Low, Col – 4) = “外人” _
Or Cells(Low, Col – 4) = “新人” Then

‘各項目の削除
Do Until Col – i = 0
Cells(Low, Col – i) = “”
Cells(Low + 1, Col – i) = “”
Cells(Low + 2, Col – i) = “”

i = i + 1
Loop

End If

Next Low

End Function

 

↑ここまでです。

 

これで余計な選手は削除され大分見やすくなりました…

 

野手移動　選手の並び替え

今のままでは１軍・２軍選手が混在していて見にくいです。

なので、１軍選手は上の方へ、２軍選手は下の方へ並び替えます。

１人の選手に３行使っているので、エクセルの並び替えは使えません。

使うとエライことになって、やり直しになりますので絶対禁止です。

 

 

↓野手の並び替えをするプログラムを作成します。

 

Public Sub 野手移動()

Dim i As Byte
Dim j As Byte ‘選手数34名
Dim Low As Byte
Dim Col As Byte
Dim movlow As Byte

For i = 1 To 3

‘初期設定
Col = 28
Low = 101

For j = 1 To 34

‘1軍への移動
If Cells(Low, Col – 4) = “１軍” Then
movlow = 2
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 102 Then
Call 選手移動(movlow, Low, Col)
End If
End If

ElseIf Cells(Low, Col – 4) = “２軍” Then
‘2軍への移動
movlow = 50
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 102 Then
Call 選手移動(movlow, Low, Col)
End If
End If

End If

If Low > 3 Then
Low = Low – 3
End If

Next j

Next i

End Sub

 

↑ここまでです。

 

新人移動　新人を１軍・２軍に加入させます

野手の並び変えも終わり、大分見やすくなりました。

後は新人の配属ですが、空いている場所にほりこんでいきます。

 

⇓新人の移動のプログラムを作成

 

Public Function 新人移動(ActiveSheetName As String)

Dim WName As Variant
Dim i As Byte
Dim j As Byte ‘新人数5名
Dim Low As Byte
Dim Col As Byte
Dim movlow As Byte

WName = Right(ActiveSheetName, 2)

‘初期設定
If WName = “野手” Then
Col = 28
Low = 119
Else
Col = 20
Low = 125
End If

For j = 1 To 5

If WName = “野手” Then

‘新人の1軍選手の移動
If Cells(Low, Col – 4) = “１軍” Then
movlow = 2
Else
‘新人の2軍への移動
movlow = 50
End If

Else

‘新人の１軍への移動
If Cells(Low, Col – 4) = “先発” Then
movlow = 2

ElseIf Cells(Low, Col – 4) = “中継ぎ” Then
movlow = 20

ElseIf Cells(Low, Col – 4) = “抑え” Then
movlow = 32

Else
movlow = 38
End If

End If

If WName = “野手” Then

‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

‘各項目の移動
If movlow < 102 Then
Call 選手移動(movlow, Low, Col)
End If
Else
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

‘各項目の移動
If movlow < 108 Then
Call 選手移動(movlow, Low, Col)
End If
End If

Low = Low + 3

Next j

End Function

 

↑ここまでです。

 

↓新人移動では、さらにサブルーチンを呼び出してますので、それも追加します。

 

Public Function 選手移動(movlow As Byte, Low As Byte, Col As Byte)

Dim i As Integer

‘各項目の移動
i = 0
Do Until Col – i = 0
‘3行分移動
Cells(movlow, Col – i) = Cells(Low, Col – i)
Cells(Low, Col – i) = “”
Cells(movlow + 1, Col – i) = Cells(Low + 1, Col – i)
Cells(Low + 1, Col – i) = “”
Cells(movlow + 2, Col – i) = Cells(Low + 2, Col – i)
Cells(Low + 2, Col – i) = “”
i = i + 1
Loop

End Function

 

↑ここまでです。

これで、野手の新人の配属が完了です。野手・投手共これらを使います。

 

投手陣の並び替え

野手を並び変えしましたが、投手の方が重要です。

先発・中継ぎ・抑え　と役割分担がありますから…。

 

⇓投手の並び替えをするプログラムはこちら

 

Public Sub 投手陣並び替え()

Dim i As Byte
Dim j As Byte ‘選手数36名
Dim Low As Byte
Dim Col As Byte
Dim movlow As Byte

For i = 1 To 3

‘初期設定
Col = 20
Low = 107

For j = 1 To 36

‘先発への移動
If Cells(Low, Col – 4) = “先発” Then
movlow = 2
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 18 Then
Call 選手移動(movlow, Low, Col)
End If
End If

ElseIf Cells(Low, Col – 4) = “中継ぎ” Then
‘2軍への移動
movlow = 20
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 30 And movlow > 19 Then
Call 選手移動(movlow, Low, Col)
End If
End If

ElseIf Cells(Low, Col – 4) = “抑え” Then
‘2軍への移動
movlow = 32
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 36 And movlow > 31 Then
Call 選手移動(movlow, Low, Col)
End If
End If

ElseIf Cells(Low, Col – 4) = “２軍” Then
‘2軍への移動
movlow = 38
‘空いている行を探す
Do Until Cells(movlow, Col – 4) = “”
movlow = movlow + 3
Loop

If Low <> movlow Then
‘各項目の移動
If movlow < 108 And movlow > 31 Then
Call 選手移動(movlow, Low, Col)
End If
End If

End If

If Low > 3 Then
Low = Low – 3
End If

Next j

Next i

End Sub

 

↑ここまでです。

 

開幕準備シート　の　作成

これまでで、オリジナルリーグ（チーム）の野手・投手シートの並び替えは出来ました。

 

後は、１軍の選手のみを抽出していきます。

 

⇓開幕用シート　ここに各チーム１軍選手のみを書きこんでいきます。

行と列の位置が重要です。

プログラムで書きこむ位置が決まっていますので。

 

 

↑ここまでです。

 

↓のプログラムをメインモジュールに作成。

 

Public Sub 開幕準備()

Dim i As Byte ‘ループ
Dim PBi As String ‘チーム
Dim OK_Order As String

MsgBox (“開幕オーダーを作成しています。一旦画面は消えますが、終了後再表示されますので、しばらくお待ちください。”)

Application.WindowState = xlMinimized

For i = 0 To 11

‘不要な選手を削除
Sheets(“リーグ情報”).Activate

PBi = Cells(3 + i, 4) & “_野手”

Sheets(PBi).Activate

‘野手処理
Call 退団選手削除(PBi)
Call 野手移動
Call 新人移動(PBi)

Sheets(“リーグ情報”).Activate

PBi = Cells(3 + i, 4) & “_投手”

Sheets(PBi).Activate

‘投手処理
Call 退団選手削除(PBi)
Call 投手陣並び替え
Call 新人移動(PBi)

Next i

For i = 0 To 11

Sheets(“リーグ情報”).Activate

PBi = Cells(3 + i, 4)

Call 開幕(PBi, i)

Next i

Application.WindowState = xlNormal

‘投手の投法　Ro、LoをR、Lに変換
Range(“B:B,V:V”).Select
Selection.Replace What:=”o”, Replacement:=””, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

MsgBox (“開幕準備が出来ました。テキストファイルを作成してベストプレープロ野球で読み込ませてください”)

End Sub

 

↑ここまでです。

リーグ情報　へ　開幕準備ボタンへの開幕準備の登録

最後にリーグ情報のボタンへ開幕準備プログラムをマクロ登録します。

⇓登録はボタンを右クリックで選択して行います。

これで終了。

 

開幕用シート　が　戦力比較が出来て一番わかりやすい

ぶっちゃけ、各チームの情報の記事を書いてきましたが、

そのチームにのめりこまない限り、２軍選手やパラメータ・成長補正などは気になりません。

 

なので自チーム以外は開幕用シートさえ見てれば事足ります…。

 

この後のストーブリーグ（キャンプ）の記事に備えて筆者は一足先に開幕します。

 

⇐前の記事　【目次】　次の記事⇒

 

ベストプレープロ野球を知りたい方は

ベストプレープロ野球…自由度が最強で一生遊べる野球ゲーム

 

ベストプレープロ野球　ソフトのお求めは⇓の画像から（Win,GBA,PS2）