怎样统计Excel表格中带有颜色的数字个数？

Excel表格中可以通过VBA编程来统计带有颜色的数字个数。

宏代码如下：

Sub 计算带颜色的单元格()

Dim i%

Dim Nc%

For i = 1 To 5

If Cells(1, i).Font.Color <> 0 Then Nc = Nc + 1

Next i

MsgBox Nc

End Sub

1、输入基本数据。在A列、B列、C列、D列、E列输入基本数据。

2、调出VBA编辑器。在excel里点击鼠标右键，点击“查看代码”热键。

3、把以上代码输入到VBA编辑器里。关闭VBA编辑器。

4、调出刚才新建的VBA宏。在excel表格上方，点击“宏”按钮，再点击“查看宏”按钮。

5、运行宏。调出刚才保存的宏后，点击键盘确认键运行宏。

6、显示带有颜色的数字个数总和。

Visual Basic for Applications (VBA)，是 Microsoft Office 里的一种编程语言. 但由上面的定义，它完全不是一种宏语言。然而，它的功能已经从中发展并最终替代了用户应用程序的宏思想，所以它被广泛地错误地称为是一种宏语言。

VBA 可以访问许多操作系统函数并支持文档打开时自动执行宏。这使得用这种语言写计算机病毒成为可能。1990年代中后期，宏病毒成为了最流行的计算机病毒类型之一。其它的包括宏语言的项目，如openoffice.org，故意从其宏语言中排除了一些功能（如：自动执行）以避免破坏程序。然而，这一特性在很多事务中受到欢迎。

1.如下面这张表，产品是以颜色分类统计的。

2.选中有颜色的列——开始——条件格式——突出显示单元格规则——等于。

3.大红色——自定义格式——填充——选大红色——确定——确定。

4.然后再：条件格式——突出显示单元格规则——等于。

黄色——自定义格式——填充——选黄色——确定——确定。

5.同理定义完其它颜色。

6.这时在下面的单元格里输入颜色的名称，就自动出现填充相对应的颜色了。

7.在I3单元格里输入公式=COUNTIF(D3:H3,"*色")。

8.选中I3单元格——单击右键——设置单元格格式——数字——自定义——

#“种”。

9.在I4单元格里输入公式=SUM(D4:H4)。

10.然后将公式填充到下方单元格。

可以利用辅助行或辅助表来统计，

辅助行：就是在该行下插入一行

辅助表：就是在另一工作表中统计

操作步骤如下：

1、定义名称：点击该行，按鼠标右键--定义名称：color=GET.CELL(24,Sheet1!A2)，其中24，表示，提取字体颜色，名称：color，引用位置：=get.cell(24,A2)---确定

2、利用辅助表来实现吧，在sheet2中对应单元格输入=IF(color=1,0,1)；（快捷输入法：（在某格区域快捷输入相同内容的方法：选定区域--输入内容--按ctrl+回车键）

解释：字体无颜色，color返回1，有颜色返回其他值

这样就可以统计出带颜色字体单元格个数了。

另外，如果统计带颜色充填单元格个数，只需将公式=get.cell(24,A2)中的24，该为38即可。

http://wenku.baidu.com/link?url=Z7Gvo7SKY9wOIQX36A5uj_exZmgapbr3QXjCkUyQ1BRFclmEcaJfQKH541jbdPXQ4CBNTY7A7GyCfgQ6H42FV4aYVCXvrVAckb4VVvSyDVi
这个教程不错