|
こんにちは
一括して数式をセットして値に変換してます。
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を超えた場合はどうするのですか?
▼トキノハジメ さん:
>▼ウッシ さん:
>>コマンドボタンで切り替える必要性はなんですか?
>
>どうも説明がまずくてすみません。
>
>コマンドボタンは一つです。
>
>これによりそれぞれB6,B7,B8に入った数値を計算しこたえをB9に表示しています。
>
>B9が計算結果です。その数値の大小によりSelect Case により B13に判定結果を表示しています。表にはC9,C13 D9,D13と20あり、コードもそれぞれに対応して有ってコードが纏まらないかと思っています。切り替えではなくコードを簡潔かしたいのですが、宜しくお願いいたします。
|
|