|
こんばんは
済みません元のコードも、Case Is >= 12.6 でしたね。
とすれば、
Sub test()
With Range("B13:U13")
.Formula = "=IF(B9<=11.5,""A"",IF(B9<=11.8,""B""," & _
"IF(B9<=12.2,""C"",IF(B9<=12.5,""D""," & _
"""E""))))"
' .Value = .Value
End With
End Sub
でいいですね。
▼トキノハジメ さん:
>▼ウッシ さん:
>>こんにちは
>>
>>Sub test()
>> With Range("B13:U13")
>> .Formula = "=IF(B9<=11.5,""A"",IF(B9<=11.8,""B""," & _
>> "IF(B9<=12.2,""C"",IF(B9<=12.5,""D""," & _
>> "IF(B9=>12.6,""E"","""")))))"
>> '---------------------------
>> .Value = .Value
>> End With
>>End Sub
>>
>>12.6を超えた場合はどうするのですか?
>>
>有難うございました。
>12.6 を超えれば"E" とします。
>上記の様に変更でよいのでしょうか。
|
|