在Excel表中,如何统计带某一填充颜色单元格

jwu

各位大侠, 下午好! 请教两个问题,



1.在Excel表中,如何统计带某一填充颜色单元格?

如: A竖栏中有红色填充和绿色填充,怎样迅速统计出红色填充个数?





2.在Excel表中,怎样在单元格中自动填充颜色?

如: A8=5, 当B8=5时,B8单元格自动填充红色;A8=5, 当B8不等于5时,B8单元格自动填充绿色



知道的, 请发Email: jerrywu06@163.com

GORYUNGBBS

问题2可用”条件格式“实现。

chenchunhuiabc

第一个问题用如下宏程序可解决

Dim CCH As Range
Sub 统计个数() '统计指定颜色的个数
For Each CCH In Range("A1100") '指定要统计的区域
DoEvents
If CCH.Interior.ColorIndex = 3 Then '3表示红色,绿色为10
CH1 = CH1 + 1

Else
End If
Next

MsgBox CH1 '通过消息显示个数,也用命令将其写入指定位置,如 RANGE("G1").VALUE = CH1,就可自动显示在G1单元格
End Sub

chury11

第一个问题可以用宏表4.0函数get.cell解决