在Excel中, 定义一个颜色求和函数, 如果纯粹地改变单元格颜色, 该函数无法自动更新, 需要双击单元格之后, 才能得出正确的结果.
Function CountColor(MyRngnew As Range, RngColor) As Double
RowsCount = MyRngnew.Rows.Count
ColsCount = MyRngnew.Columns.Count
TotalCells = RowsCount * ColsCount
CountColor = 0
For CellNum = 1 To TotalCells Step 1
If MyRngnew.Cells(CellNum).Interior.Color = RngColor.Interior.Color Then
CountColor = CountColor + 1
End If
Next
End Function