exelで 評価を自動判断したい

質問

ある表で　Ａ　Ｂ　Ｃとランク付けが付いていて　この項目に　Ａが４つ以上だと　Ａと判定するとか　Ｂが３つ以上だと　Ｂと判定するとか　
これを　関数で自動化したいのですが

回答No.2

imogasi · ベストアンサー

ＶＢＡで私製関数化することをお勧めします。
(下記例は関数化してません。自動判定です。）
ＩＦ条件が多く（ネストが深く）なると、式が大変です。
プログラム方式の方が書きやすいと思います。
第２－４行について
Ｂ－Ｆ列のa,b,cの数を数えて、スコアリングします。
Sub bunnrui()
For i = 2 To 4
a = WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 6)), "a")
b = WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 6)), "b")
c = WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 6)), "c")
'----
Select Case a
Case Is >= 4
Cells(i, "H") = "A"
GoTo p01
Case Else
End Select
'----
Select Case b
Case Is >= 3
Cells(i, "H") = "B"
GoTo p01
Case Else
End Select
'----
Select Case c
Case Is >= 2
Cells(i, "H") = "C"
GoTo p01
Case Else
End Select
p01:
Next i
End Sub

お礼

両回答とも　大変わかりやすく回答いただき　ありがとうございました　おふたりに　２０ｐｔさしあげたいのですが　私にとって　むずかしい　ＶＢＡの回答のかたに　２０ｐｔとさせていただきました

回答No.1

hinebot

COUNTIF とIFを組み合わせるとできそうですね。

ランク付けのデータがＡ１～Ａ１０まで入っているとします。
=IF(COUNTIF(A1:A10,"A")>3,"A",IF(COUNTIF(A1:A10,"B")>2,"B","C"))

という感じで。
COUNTIFでＡやＢの数をカウントし、その結果によりＩＦで振り分けてます。

お礼

ifとcountifのくみあわせですね