VBA セル値によって色を付ける

 

セル値によって色を付ける

 

Sub test()

      ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする

 

    With Range("E4:E12").FormatConditions.Add _
        (Type:=xlCellValue, Operator:=xlGreater, Formula1:=1.1)
        .Font.Bold = True
        .Interior.Color = vbCyan
    End With

 

End Sub

Type:=xlCellValue　　セルの値

Operator:=xlGreater　　より大きい

Formula1:=1.1　110％超え

 

 

条件付き書式をクリアする

 

Sub test()

      ’　条件付き書式をクリアする

 

      Range("E4:E12").FormatConditions.Delete

End Sub

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る