Ｅｘｃｅｌで勝率を計算したい

Range("a90")=-3000
Range("a91")= 2000
Range("a92")=-8500
Range("a93")=23000
Range("a94")= 3000
Range("a95")=-2100
実際にはもっと長く続きますが
0よりも大きければ勝、0よりも小さければ負けとしてRange("A20")に勝率を出したいのですがよろしくお願いします。

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2008/04/26 19:32

VBAででしょうか？

Sub MACRO()
Dim RG As Range
Dim CT,WN As Long
Range("a90")=-3000
Range("a91")= 2000
Range("a92")=-8500
Range("a93")=23000
Range("a94")= 3000
Range("a95")=-2100
For Each RG In Range("A90:A95")
If RG > 0 Then WN = WN + 1
If RG <> 0 Then CT = CT + 1
Next RG
Range("A20") = WN / CT
End Sub

この回答へのお礼

知らなかったコマンドが使えるようになります。このまま使わせてもらいます。
ＶＢＡの勉強になりますありがとうございました。

お礼日時：2008/04/27 11:18

No.2 回答者： jo-zen 回答日時： 2008/04/26 19:47

通常のセルのA列の90行以下に数字が入っている場合、2000行ぐらいまで数字が入っているとして（その中に空白行があってもかまいませんが）、

A20セルに以下の数式を入力すれば

=countif(A90:A2000,">0")/count(A90:A2000)

勝率（正数の割合）が出せます。％表示したければ、セルの書式設定でパーセントを選んでください。

この回答へのお礼

できましたありがとうがざいました。

お礼日時：2008/04/27 11:14