[[20200724135718]]　『VBA　ゲームの勝率、カウントアップ』（いぬ）　ページの最後に飛ぶ

『VBA　ゲームの勝率、カウントアップ』（いぬ）

簡単なゲームで勝率を表示したいです。

勝率＝勝ち試合数／総試合数　で出そうと考えています。

結果の「勝ち」表示をカウントアップし変数へ代入したものを総試合数で割ればよいのかと思っているのですが、カウントアップがうまくできません。

思考が泥沼化してしまっているので教えていただけると嬉しいです…
以下、考え泥沼化したものです。
C10に結果が表示されるようになっています。

  If Range("C10").Value = "勝ち" Then

    For i = 0 To Range("C10").Value

      i = i + 1

    Next i

  End If

＜使用 Excel：unknown、使用 OS：unknown ＞

 >結果の「勝ち」表示をカウントアップし変数へ代入したものを総試合数で割ればよいのかと思っているのですが、カウントアップがうまくできません。

 >C10に結果が表示されるようになっています。
 > If Range("C10").Value = "勝ち" Then

 これ意味がわかりませんが?...
（seiya） 2020/07/24(金) 14:15

ゲームの結果をその都度、「勝ち」or「負け」でセルC10に表示させている状態です。
そのため、勝ち数は「勝ち」が表示された回数を数えればいいのかと思っているのですが…
（いぬ） 2020/07/24(金) 14:20

 こんにちは！
なにか別のゲームのコードがあってカウントアップされたいと推測すると
i　をグローバルにするか　Static　で保持するかでしょう

 Option Explicit
Sub てすと()
Static i As Long
If Range("C10").Value = "勝ち" Then i = i + 1
MsgBox i & "　勝です"
End Sub
（SoulMan） 2020/07/24(金) 14:34

ありがとうございます！
解決しました；；
（はな） 2020/07/24(金) 14:42

コメント返信：