VBAで効率化！勤務指定の合計を出そう！

2021/04/06 10:42

このQ&Aのポイント

VBAを使用して、勤務指定の日勤、中勤、非番、週休の合計を出すマクロを作成しました。しかし、赤色の日（祝日）の合計を出すことができません。関数では文字色の判定が不可能なため、アドバイスを求めています。
勤務指定の合計を出すVBAマクロを作成しましたが、赤色の日（祝日）の合計がうまく出せません。関数では文字色の判定が不可能なため、アドバイスをお願いします。
VBAを使って、勤務指定の日勤、中勤、非番、週休の合計を算出するマクロを作成しました。しかし、赤色の日（祝日）の合計を出すことができません。関数では文字色の判定が不可能なようで、アドバイスをいただきたいです。

続）VBAで作業の効率化をしたいです！

昨日は回答して頂いた方々誠にありがとうございます！２日続けての投稿失礼致します！今回はまた別のことをしています。うちの職場の勤務指定の一部分なんですが、日勤、中勤が出勤日で非番、週休が休日です。（見辛くてすみません）赤色の日は祝日です。勤務指定の右の欄に日勤中勤非番週休のそれぞれの合計を出しています。それとは別に祝日（赤色）のみの合計も出したいのですが、うまくいきませんでした。自分なりに調べてみた所、関数では文字色の判定が不可能みたいでした。そこで、昨日同サイトにて、教えて頂いたプログラムを元に、自分なりにマクロを作成してみたのですが、自宅では確認できない為、どこかおかしな所がないかアドバイスをお願いします！ Sub Test() Dim mRow As Long, mCol As Long Dim nCount As Long Dim tCount As Long Dim hCount As Long Dim sCount As Long Application.ScreenUpdating = False For mRow = 2 To Cells(Rows.Count, "A").End(xlUp).Row nCount = 0 tCount = 0 hCount = 0 sCount = 0 For mCol = Columns("B:B").Column To Columns("H:H").Column If Cells(mRow, mCol).fontcolor = 3 Then Select Case Cells(mRow, mCol).Value Case "日勤" nCount = nCount + 1 Case "中勤" tCount = tCount + 1 Case "非番" hCount = hCount + 1 Case "週休" sCount = sCount + 1 End Select End If Next Cells(mRow, 14).Value = nCount Cells(mRow, 15).Value = tCount Cells(mRow, 16).Value = hCount Cells(mRow, 17).Value = sCount Next Application.ScreenUpdating = True End Sub すみませんが、スマホで記述している為、tabキーやスペースがグチャグチャになっています。