Range=Range("A1:A10")'以前の条件付き書式を削除するMyRange.FormatConditions.Delete'過去の日付に対するエラールールを追加するMyRange.FormatConditions.AddType:=xlExpression、Formula1:="=Now()-A1 > 30"'エラーとなるセルの色を赤に設定するMyRange.FormatConditions(1).Interior.Color=RGB(255、0...