VBAメモ

完全に自分用のメモ
20190719現在でやりたい処理が、こんな風に書けば出来るっぽい。
頑張れ自分。

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim symbol As Integer
    symbol = 5
    
    Sheets("Sheet1").Select
    Range("C2:E6").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(R[0]C" & symbol & "<=0.85)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveWorkbook.Save
    Range("E2").Select
End Sub