エクセルで野球のBSOを作ってみた。(Excel VBA)

前回のSpread Sheet(Google Apps Script)でのBSO作成に引き続き、VBAで同じものを作ってみた。

作り方は人それぞれだと思うけど、まぁその一例ということで。

ボタンをクリックすることで、C列の「●」が増えたり減ったりする仕掛けです。

Java ScriptはSwitch、VBAはSelect Caseで

できるだけスプレッドシートで作ったときとおなじやり方を目指しました。

大きな違いはSwitchとSelect Case

詳しい説明ができるほど詳しく無いけど、この2つはだいたい同じようなものだと思う。

エクセルのほうが操作性は良いかな

作るとき

　特に、図形の挿入を使ってボタンを作るところ。

エクセルよりスプレッドシートのほうが少し面倒。

動かした感じ

やっぱりWeb上にあるスプレッドシートよりローカルに保存されているエクセルファイルのほうがサクサク動く感じかな。

実際のVBAはこちら

‘ボールを増やす
Sub BallPlus()
Dim Ball As String
Ball = Range(“C4”)
Select Case Ball
Case Is = “●”
Range(“C4”).Value = “●●”
Case Is = “●●”
Range(“C4”).Value = “●●●”
Case Is = “●●●”
Range(“C4”).Value = “●●●”
Case Else
Range(“C4”).Value = “●”
End Select
End Sub

‘ボールを減らす
Sub BallMinus()
Ball = Range(“C4”)
Select Case Ball
Case Is = “●●●”
Range(“C4”).Value = “●●”
Case Is = “●●”
Range(“C4”).Value = “●”
Case Is = “●”
Range(“C4”).Value = “”
Case Else
Range(“C4”).Value = “”
End Select
End Sub

‘ストライクを増やす
Sub StrikePlus()
Dim Strike As String
Strike = Range(“C5”)
Select Case Strike
Case Is = “●”
Range(“C5”).Value = “●●”
Case Is = “●●”
Range(“C5”).Value = “●●”
Case Else
Range(“C5”).Value = “●”
End Select
End Sub

‘ストライクを減らす
Sub StrikeMinus()
Strike = Range(“C5”)
Select Case Strike
Case Is = “●●”
Range(“C5”).Value = “●”
Case Is = “●”
Range(“C5”).Value = “”

Case Else
Range(“C5”).Value = “”
End Select
End Sub

‘アウトを増やす
Sub OutPlus()
Dim Out As String
Out = Range(“C6”)
Select Case Out
Case Is = “●”
Range(“C6”).Value = “●●”
Case Is = “●●”
Range(“C6”).Value = “●●”
Case Else
Range(“C6”).Value = “●”
End Select
End Sub

‘アウトを減らす
Sub OutMinus()
Out = Range(“C6”)
Select Case Out
Case Is = “●●”
Range(“C6”).Value = “●”
Case Is = “●”
Range(“C6”).Value = “”
Case Else
Range(“C6”).Value = “”
End Select
End Sub

‘ボールとストライクをクリア
Sub ClearBS()
Range(“C4”).Value = “”
Range(“C5”).Value = “”
End Sub

‘すべてをクリア
Sub ClearAll()
Range(“C4”).Value = “”
Range(“C5”).Value = “”
Range(“C6”).Value = “”
End Sub

ボタンを作ってマクロを登録

図形でボタンをつくってマクロを登録します。

• BallPlus
• BallMinus
• StrikePlus
• StrikeMinus
• OutPlus
• OutMinus
• ClearBS
• ClearAll