0

マクロのコードがうまくいきません。教えてください。 下記のコードで、②の部分は15（分）を過ぎたら赤色になるようにしているのですが、15（分）を過ぎても赤色になりません。
セルの書式設定では[m]"分"としています。ですので、セルに表記されるのは０分・１分・・・というようになります。
どうすれば１５分から赤色になるようにできるのでしょうか？
それと、①の部分が、他のシートを開くとエラーがでるようになってしまいます。これを、エラーがでなくなるようにしたいのですがどうすればいいのでしょうか？
お分かりになられましたら教えてください。宜しくお願いします。


Sub IncTime()
Dim Rng As Range
For Each Rng In Sheets("実験").Range("F6:F13,L6:L13")ーーーーー①
If Rng.Value <> "" Then
Rng.Value = Rng.Value + TimeValue("0:00:01")
If Val(Rng.Value) >= 15 Then Rng.Font.ColorIndex = 3ーーーーーー②
End If
Next
Application.OnTime Now + TimeValue("0:00:01"), "IncTime"
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 4730日前