Excel VBA じゃんけん

じゃんけんのプログラミングを作っているのですが、今できているじゃんけんの
プログラムの追加機能として得点式のゲームにしたいと思っています。
ルールとしては、１０回じゃんけんをしてポイントを０から
勝ったら　得点＋１
引き分けたら　得点　＋０
負けたら　得点　－１
というふうにして
最終的に合計点数が０より大きければ勝ち０より小さければ負け
というようなものにしたのですが
どうすればよいですか？
ついでに完成したじゃんけんプログラムは下のような感じです。





Private Sub CommandButton1_Click()

Cells(1, 1) = Int(Rnd * 3)

If Cells(1, 1) = 0 Then
Label1.Caption = "私もグー。だから引き分けです。"
End If

If Cells(1, 1) = 1 Then
Label1.Caption = "私はチョキ。だからあなたの勝ちです。"
End If

If Cells(1, 1) = 2 Then
Label1.Caption = "私はパー。だからあなたの負けです。"
End If

End Sub

No.1 ベストアンサー 回答者： プログラマーもっくん 回答日時： 2016/10/29 18:35

お疲れさまです

入力がないので、こちらが出すのはグーときめているのでしょうか？

一応、１０回勝負を考えてみました。

Private Sub CommandButton1_Click()

Dim i As Integer
Dim ft As Integer

ft = 0



For i = 1 To 10

MsgBox i & "回目"
Cells(1, 1) = Int(Rnd * 3)

If Cells(1, 1) = 0 Then
Label1.Caption = "私もグー。だから引き分けです。"
ft = ft
End If

If Cells(1, 1) = 1 Then
Label1.Caption = "私はチョキ。だからあなたの勝ちです。"
ft = ft + 1
End If

If Cells(1, 1) = 2 Then
Label1.Caption = "私はパー。だからあなたの負けです。"
ft = ft - 1
End If

Next i

If ft > 0 Then
Label1.Caption = "１０回勝負結果＝あなたの勝ちです"
Else
Label1.Caption = "１０回勝負結果＝あなたの負けです"
End If

End Sub