[[20200501095228]]　『時間帯の重複個所をVBAで色付けできますか』（あお）　ページの最後に飛ぶ

『時間帯の重複個所をVBAで色付けできますか』（あお）

出勤管理をエクセルで管理しています。

１日分の内容が１行で表記され、勤務時間外の移動や残業時間の重複ミスが多くあるのですが、間違いに気がつかないことが多く困っています。

残業時間と移動時間で時間帯の重複があるとき、すぐに気が付けるよう色を付けたいのですが、できますか？

・A予定　　・B日付　　　　・C出勤　・D退勤　・E残業開　・F残業終　・G帰り発　・H帰り着
〇〇現場　03月01日(月)　　 8:00 　　18:00 　　 18:00 　　　　19:30 　　　19:00 　　　 21:00
××現場　03月02日(火)　　 8:00 　　 21:00 　　 18:00 　　　　19:30 　　　 19:00 　　　 21:00
□□現場　03月03日(水)　　 8:00　　 20:00
　・
　・
△△現場　03月31日(火) 　　　　8:00 　　 22:00 　　 20:00 　　　　22:00 　　　 18:00 　　　 21:00

上記のように「残業のE-F間」と「移動のG-H間」で時間帯重複時に「E～H」セルを赤色に変化させることができたらと考えています。

教えて頂けるかた、お願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

条件付き書式を使って、F > G の時、色をつけるようにすればよいと思われます。
（γ） 2020/05/01(金) 12:36

E2からHセルの最終セルまでを選択した状態で、
条件付き書式の設定に入り、
数式は、
=AND($G2<>"",$H2<>"",$F2>$G2)
とすればよいのでは？
G,Hの入力を条件としましたが、この辺は状況に応じて変更して下さい。
（γ） 2020/05/01(金) 15:42

ああ、マクロでしたか、逆パターンだったですねえ。
マクロでもむろん出来ますが、これは条件付き書式が適当かと思います。
というのは入力に応じて自動的に反応するからです。
そのほうがユーザーにとっても親切だと思います。

# どうしてもということならマクロでも可能なので意思表示してください。
# イベントプロシージャをつかうことになるのでしょうか？
# でも簡単にできるExcelの特定機能があるなら、それを使ったほうがよいと思います。
（γ） 2020/05/01(金) 15:46

このコードはどうでしょう？

Sub AAA()

    Dim i As Integer
    For i = 2 To Range("E2").End(xlDown).Row - 1
        If Range("F" & i) > Range("G" & i) Then
            Range(Cells(i, 5), Cells(i, 8)).Interior.Color = rgbRed
        Else
        End If
    Next
End Sub
（あつ） 2020/05/01(金) 16:01

ありがとうございます！
条件付き書式で、対応できるのですね！
早速、試してみます。
（あお） 2020/05/01(金) 20:10

コメント返信：

[ 一覧(最新更新順) ]

[[20200501095228]] 『時間帯の重複個所をVBAで色付けできますか』（あお） ページの最後に飛ぶ

[[20200501095228]]　『時間帯の重複個所をVBAで色付けできますか』（あお）　ページの最後に飛ぶ