dechiuan999

¦^´_ 1# wwh126


    ±z¦n¡G

½Ð¸Õ¸Õ¦p¤U
Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
       If mRng.Interior.ColorIndex = 5 Then 'Àx¦s®æÃC¦â
            'If mRng.Font.ColorIndex = 5 Then 'Àx¦s®æ¦r«¬ÃC¦â            
                s = s + 1
            End If
        Next
        If s > 0 Then
            .Range("a1") = "ÂŦâÀx¦s®æ¦X­p ¡G" & s
        End If
    End With
End Sub