[조건부서식있는 셀 세기]

[조건부서식있는 셀 세기]

** 조건부 서식이 중첩되는 셀은 둘 중 하나만 적용됨**

‘조건부 서식주기

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=AND($C5-E$3>=0.9,$C5-E$3<=1.1)"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Interior

.ColorIndex = 37

.TintAndShade = 0

End With

ReDim stemp(i)

iC = Selection.FormatConditions(1).Interior.ColorIndex

For Each t In Selection

If t.DisplayFormat.Interior.ColorIndex = iC Then ‘조건부서식으로 칠해진 셀 찾는 구문

ReDim Preserve stemp(i)

stemp(i) = t.Value

i = i + 1

End If

Next t