ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦Ê¤À¤ñ
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?

¦Ê¤À¤ñ
53.32%
...
86.8 ...
lp986749 µoªí©ó 2014-8-30 07:48
  1. Sub nn()
  2.   Dim rTar As Range
  3.   Dim rT
  4.   
  5.   Set rTar = Range([B3], [B17])
  6.   
  7.   For Each rT In rTar
  8.     With rT
  9.       Select Case .Value
  10.       
  11.       Case Is < 0.7
  12.         .Font.ColorIndex = 6
  13.         
  14.       Case Is > 0.9
  15.         .Font.ColorIndex = 43
  16.         
  17.       Case Else
  18.         .Font.ColorIndex = -4105
  19.         
  20.       End Select
  21.     End With
  22.   Next
  23. End Sub
½Æ»s¥N½X

TOP

·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

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD