- ©«¤l
- 21
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- MACAU
- µù¥U®É¶¡
- 2012-12-17
- ³Ì«áµn¿ý
- 2016-10-26
|
¦^´_ 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!! |
|