[[20180809170057]]　『時間が過ぎたら色を白く塗りつぶしたい』（素人）　ページの最後に飛ぶ

『時間が過ぎたら色を白く塗りつぶしたい』（素人）

    A
1 15:00S
2 16:00S
3 17:00L
4 18:00S×2

時間が過ぎたら色を白く塗りつぶしたいのですが、方法はありますか？
時間と文字はくっついています。方法があれば教えて下さい。
また、時間と文字がくっついても時間として認識させることは出来るのでしょうか？

＜使用 Excel：unknown、使用 OS：unknown ＞

文字列になるので時間としては認識できません。
前二文字の数字を抽出したりして出来ないことはないですが、時間と文字の列を分けたほうが良いと思います。
（TAKA） 2018/08/09(木) 17:15

Sub main()

    Dim x As Date, c As Range
    For Each c In Range("A:A").SpecialCells(2)
        x = TimeSerial(Left(c.Value, 2), Mid(c.Value, 4, 2), 0)
        If Format(Now, "hh") * 60 + Format(Now, "nn") > Format(x, "hh") * 60 + Format(x, "nn") Then
            c.Font.Color = vbWhite
        Else
            c.Font.Color = vbBlack
        End If
    Next c
End Sub
（mm） 2018/08/10(金) 11:01

 >15:00S

 時間のところは、必ず5文字なのでしょうか？
 であれば、

 条件付書式で
 =--LEFT(A1,5)<--TEXT(NOW(),"hh:mm")

（BJ） 2018/08/10(金) 12:41

コメント返信：

[ 一覧(最新更新順) ]

[[20180809170057]] 『時間が過ぎたら色を白く塗りつぶしたい』（素人） ページの最後に飛ぶ

[[20180809170057]]　『時間が過ぎたら色を白く塗りつぶしたい』（素人）　ページの最後に飛ぶ