P127页技巧88(高效的按单元格送颜色计数自定义函数)报#value!错误

pengmd

1. Function COUNTCOLOR(rng As Range, cell As Range) As Double
   
2.     Dim c As Range, firstAddress As String
   
3.     With Application
   
4.         .Volatile True
   
5.         .FindFormat.Clear
   
6.         .FindFormat.Interior.ColorIndex = cell.Interior.ColorIndex
   
7.     End With
   
8.     firstAddress = cell.Address
   
9.     Set c = cell
   
10.     With rng
    
11.         Do
    
12.             Set c = .Find("", After:=c, SearchFormat:=True)
    
13.             If Not c Is Nothing Then COUNTCOLOR = COUNTCOLOR + 1
    
14.         Loop While c.Address <> firstAddress
    
15.     End With
    
16. End Function
    

复制代码

《EXCEL VBA 实战技巧精粹》技巧88 报#VALUE!错误
本人使用有EXCEL版本为2010，书中应该是以2003为基准，请帮忙修改一下，无限感激！

刀马小楼

我的也报错了，也懵了