|
▼はじめて娘 さん:
こんばんは。
>間違っているところはありませんか??
概、OKですけど・・・、数式と同じパターンにするなら、
>===================================================================
>Sub judgement3()
>
> If Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
> Range("K2").Value = "ENG"
>
> ElseIf Application.CountIf(Range("M2:P2"), "FRA") + Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
> Range("K2").Value = "FRA"
>
> ElseIf Application.CountIf(Range("M2:P2"), "ITA") + Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
> Range("K2").Value = "ITA"
>
> ElseIf Application.CountIf(Range("M2:P2"), "GER") Then
> Range("K2").Value = "GER"
>
> ElseIf Application.CountIf(Range("M2:P2"), "ESP") Then
> Range("K2").Value = "ESP"
>
> ElseIf Application.CountA(Range("M2:P2")) = Range("M2:P2").Count Then
> Range("K2").Value = "JPN"
>
> ElseIf Application.CountA(Range("M2:P2")) Then
> Range("K2").Value = "ITA"
else
Range("K2").Value = "FRA"
'が抜けてました。
> End If
>
>End Sub
>===================================================================
後は、With文を使用したり、Range("M2:P2")やRange("M2:P2").Count は
予め変数に設定しておく等がありますが、それはおいおいやってみて下さい。
|
|