| |
▼へいちゃん さん：
>条件分岐の５とか１０は５秒、１０秒の意味です。
>スタートを押してストップを押した数値を判断して
>メッセージをだしたいのです。
わかりました。
>
>
>あと、数値でコンマ何秒とだしたいのはランキング付け
>するからです。
>
>やりたいことは分かって頂けたでしょうか
>よろしくお願いいたします。
前回の訂正はよろしいですか？
残りは、判定ですね！！
'=========================================================
Sub 判定()
Stp = Range("e11").Value
'E11セル（ストップ時間）を比較する
Select Case Stp * 86400
'５以下の場合は以下のメッセージを出し、範囲内を青く塗る
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
これで確認して下さい
|
|
ichinose
- 04/6/8(火) 22:44 -
