[µo°Ý] ´M¸Ñµª

wwh126

¦pA1¼Æ¡]A2-A50)¤º¦³¨º¨ÇÀx¦s®æ¬OÂŦâ¡]¦]¬Y¨ÇÀx¦s®æ°µ¤F¤@¨Çconditional formatting )!
­n¦bA1 ®æ¤ºÅã¥Ü¦³¦h¤Ö®æ¡I
VBA ¦p¦ó½s¼g¡I

wwh126

¦ý¦pªGÂŦâÀx¦s®æ¬O¥Ñconditional formatting Âনªº«hÅã¥Ü¤£¤F¡I

wwh126

¦^´_ 2# dechiuan999

¦ýÂŦâÀx¦s®æ¬O¥Ñ³]©w®æ¦¡¤Æ±ø¥ó¤¤....Àx¦s®æªº­È¬O¤j©ó¹s®É¸ÓÀx¦s®æ·|Åܦ¨ÂŦâ¡A«hCOUNT ¤£¥X¨Ó¡C

¨D¸Ñ¨M.....

wwh126

¦^´_ 8# dechiuan999


    Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a2:A1000", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1

      If mRng.FormatConditions(1).Interior.ColorIndex = 5 Then  

                s = s + 1
            End If
        Next
        If s > 0 Then
            .Range("a1") = "" & s
        End If
    End With
End Sub



¬õ¦â­Ó¥y¦³¿ù»~, ½Ð°ÝÂI¸Ñ¨M!!