35本目 条件付き書式

VBA100本ノック 35本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック 35本目
表には条件付き書式が設定されていますが、行編集を繰り返した為に条件付き書式が大量に増えてしまいました。
以下の条件で、条件付き書式を再設定してください。
・対象はE列とG列
・90%未満は赤で塗りつぶす
・100%未満は赤文字
※シートは任意

解答

Sub test()
    
    Dim tgt As Range
    Set tgt = Range("E:E,G:G") '設定したい列
    
    Dim rng As Range
    Set rng = Range("B2").CurrentRegion
    Set rng = Intersect(rng, rng.Offset(1))
    Set rng = Intersect(rng, tgt)
    
    tgt.FormatConditions.Delete
    
    With rng
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="90%"
        .FormatConditions(1).Interior.Color = vbRed
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="100%"
        .FormatConditions(2).Font.Color = vbRed
    End With

End Sub