Dim Main As Worksheet

Set Main = ThisWorkbook.Sheets(“sheet1”) ‘シート指定

Dim FC1 As FormatCondition ‘条件付き書式1(空白)

Dim FC2 As FormatCondition ‘条件付き書式2(グレーアウト)

Dim FC3 As FormatCondition ‘条件付き書式3(期間経過(橙))

Dim FC4 As FormatCondition ‘条件付き書式4(期間経過(黄))

‘フィルター状態のリセット———————————–

Main.Activate

If Main.FilterMode Then _

Main.ShowAllData ‘フィルターが適用されているか確認し、適用されている場合解除する’

‘条件付き書式のリセット———————————–

For Each Main In Worksheets ‘表の条件付き書式をループ’

    Main.Cells.FormatConditions.Delete ‘表の条件付き書式を削除’

  Next Main ‘次の条件付き書式を選択

‘条件付き書式の設定1(塗りつぶしなし=空白セル)———————————–

Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).Select ‘A～E列を選択

Set FC1 = Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).FormatConditions.Add(Type:=xlExpression, Formula1:=”=ISBLANK($N5)”)

FC1.Interior.ColorIndex = 2 ‘塗りつぶしなし

Set FC1 = Nothing

‘条件付き書式の設定2(グレーアウト)———————————–

Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).Select ‘A～E列を選択

Set FC2 = Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).FormatConditions.Add(Type:=xlExpression, Formula1:=”=$P5=””完了”””)

FC2.Interior.ColorIndex = 15 ‘塗りつぶしグレー

Set FC2 = Nothing

‘条件付き書式の設定3(問合せ橙色網掛け)———————————–

Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).Select ‘A～E列を選択

Set FC3 = Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).FormatConditions.Add(Type:=xlExpression, Formula1:=”=$N5+14<=TODAY()”)

FC3.Interior.ColorIndex = 44 ‘塗りつぶし橙

Set FC3 = Nothing

‘条件付き書式の設定4(問合せ黄色網掛け)———————————–

Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).Select ‘A～E列を選択

Set FC4 = Range(“A5:R” & Cells(Rows.count, “A”).End(xlUp).Row).FormatConditions.Add(Type:=xlExpression, Formula1:=”=$N5+7<=TODAY()”)

FC4.Interior.ColorIndex = 36 ‘塗りつぶし黄

Set FC4 = Nothing

‘———————————–

ActiveSheet.Cells(Columns.count, 2).End(xlUp).Offset(1, 0).Select ‘一番下の空白セルへ移動