|
▼へいちゃん さん:
>条件分岐の5とか10は5秒、10秒の意味です。
>スタートを押してストップを押した数値を判断して
>メッセージをだしたいのです。
わかりました。
>
>
>あと、数値でコンマ何秒とだしたいのはランキング付け
>するからです。
>
>やりたいことは分かって頂けたでしょうか
>よろしくお願いいたします。
前回の訂正はよろしいですか?
残りは、判定ですね!!
'=========================================================
Sub 判定()
Stp = Range("e11").Value
'E11セル(ストップ時間)を比較する
Select Case Stp * 86400
'5以下の場合は以下のメッセージを出し、範囲内を青く塗る
Case Is <= 5
Range("d18").Value = "作業スピードは120です。"
Range("a1:p40").Select
Selection.Interior.ColorIndex = 5
'10以下の場合は以下のメッセージを出し、範囲内を緑く塗る
Case Is <= 10
Range("d18").Value = "作業スピードは100です。"
Range("a1:p40").Select
Selection.Interior.ColorIndex = 4
'その他の場合は以下のメッセージを出し、範囲内を赤く塗る
Case Else
Range("d18").Value = "作業スピードは80です。"
Range("a1:p40").Select
Selection.Interior.ColorIndex = 3
End Select
End Sub
これで確認して下さい
|
|