- ©«¤l
- 227
- ¥DÃD
- 3
- ºëµØ
- 1
- ¿n¤À
- 273
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2013-1-29
|
Sub ccount()
Dim c As Range, d$, d2$, m%
Application.FindFormat.Font.ColorIndex = 7
Set c = Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True)
If Not c Is Nothing Then
d = c.Address
Do
d2 = c.Address
m = m + 1
Set c = Cells.Find(What:="", After:=Range(d2), SearchDirection:=xlNext, SearchFormat:=True)
Loop Until c.Address = d
End If
[l1] = m
End Sub |
|