- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 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 |
|
發表於 2011-5-18 22:56
| 