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

[µo°Ý] ¨Ï¥ÎVBAµ{¦¡¦Û°Ê³]©w®æ¦¡¤Æ±ø¥óÅܦ¨µLªkÅܦâ

[µo°Ý] ¨Ï¥ÎVBAµ{¦¡¦Û°Ê³]©w®æ¦¡¤Æ±ø¥óÅܦ¨µLªkÅܦâ

¨Ï¥ÎVBAµ{¦¡¦Û°Ê³]©w®æ¦¡¤Æ±ø¥óÅܦ¨µLªkÅܦâ.

     ¨Ó·½½d³ò = "$" & "D" & "$" & ¼Æ¦r          '±a¤J¦¹ÅܼƳ]©w®æ¦¡¤Æ±ø¥óÅܦ¨µLªkÅܦâ
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:=(¨Ó·½½d³ò)                                                            '±a¤J¦¹ÅܼƳ]©w®æ¦¡¤Æ±ø¥óÅܦ¨µLªkÅܦâ
    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

½Ð°Ý¦U¦ì¥ý¶i¬O¨º¸Ì¥X¿ù? ½Ð±z±Ð¾É,ÁÂÁÂ! ­ìª«®Æ¶q¤º±±ªí.rar (243.24 KB)

ÁöµM¤£¬O¥¿¸Ñ,¦ý¦h¾Ç¤@©Û,ÁÂÁ§A!

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD