VBA エクセル バレーボールの得点板 作りたい

質問

自分はVBA初心者のものです。VBAを使ってバレーボールの得点版のような、試合の流れがわかる
A　　B
１
２
　　　１
３

このような物を作りたいと考えております。自分は一つのセルに＋１する方法はわかるのですが、このような形のも野の作り方はわからないです。詳しい方いらっしゃいましたら是非教えていただきたいです

回答No.5

kon555 · ベストアンサー

バレーなどの得点と言うことは、例えば実際の試合などを観つつ記録していくような形でしょうか？
　とするとボタン操作などで加点していくのが簡単だと思います。

　まず得点表としては1行目を表題欄にします。A1セルに「A」B1セルに「B」、C1セルに「総得点」と入力し、A2、B2、C2を「0」と表記して下さい。
　これで表のベースは完成です。シンプルなので画像は割愛します。
　あとは下記の「A得点」「B得点」の2つのマクロを実行すると、お望みの形で得点表が作成されていきます。
　C2セルにはその時点の両チームの総得点が表示されています。邪魔なら非表示して下さい。

　適当な図形などにマクロ登録し、得点をクリックで記録する形が使い易いと思います。もしリアルタイムで観戦しながら得点表にを記録するならショートカットが便利かもしれないですが、その辺りはご自由に。

Sub A得点()
Dim i As Long, s As Long
i = 3 + Range("C2").Value
s = Cells(Rows.Count, 1).End(xlUp)
Cells(i, 1) = s + 1
Range("C2") = Range("C2") + 1
End Sub

Sub B得点()
Dim i As Long, s As Long
i = 3 + Range("C2").Value
s = Cells(Rows.Count, 2).End(xlUp)
Cells(i, 2) = s + 1
Range("C2") = Range("C2") + 1
End Sub