[µo°Ý] Àx¦s®æ½d³ò¤º©³¦â¥¨¶°¦p¦ó³]©w

lp986749

¦Ê¤À¤ñ
53.32%
88.65%
82.81%
66.80%
72.87%
83.08%
84.21%
86.65%
90.51%
97.10%
88.06%
86.88%
98.88%
89.46%
86.27%

½d³òB3:B17¦Ê¤À¤ñ<70%©³¦â§ï¬°¶À¦â

½d³òB3:B17¦Ê¤À¤ñ>90%©³¦â§ï¬°ºñ¦â

½d³òB3:B17¦Ê¤À¤ñ70%<X<90%©³¦âµLÃC¦â

½Ð°Ý¥¨¶°¦p¦ó¼g?

lp986749

·P¿E¸Ñ´b¦¹§xÂZ°ÝÃD§Ú¦Û¤v½m²ß¥¨¶°¦p¤U
Sub Macro3()
'
' Macro3 Macro
'

'
    Range("B3:B17").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0.9"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=0.7"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub