excel函数怎么把颜色字体统计

1 excel中怎么用公式统计带颜色字体个数
使用Excel中的按颜色“筛选”功能可以轻松实现统计颜色为红色的用户个数

下面以统计红色用户为例，详细讲解如何使用颜色筛选来做统计：

1首先，选中需要统计数量的一列

2选择”数据“菜单，再点击”筛选“按钮：
3此时，选中列中的第一个单元格左侧出现了一个带三角的按钮，点击这个按钮，出现如下对话框：

4选择”按颜色筛选“，此时会出现此列中所有的底色，选择需要统计数量的底色

5此时，所有该底色的单元格都被筛选出来了

6最后的统计个数就简单了，可以看有多少行，当然最简单的还是右下角的状态栏，如下图所示（当然别忘了取消表头，这个计数是包含了表头的，实际个数要-1哟）
2 EXCEL中如何以字体颜色为条件进行运算统计
按alt+F11打开VBE,

右击左边工程框，插入，模块

贴入以下代码

Function ystj(col As Range, countrange As Range)

Dim i As Range

ApplicationVolatile

For Each i In countrange

If iFontColorIndex = colFontColorIndex Then

ystj = ystj + i

End If

Next

End Function

例如你的数据区域是A1:C100

在D1输入公式

=ystj（颜色，A1:C100） 按F9

其中颜色为想统计颜色字所在的单元格，如=ystj(A2,A1:C100)

如果想统计不同背景色的数字，将Font改为Interior。
3 EXCEL怎么统计同一行内同一种颜色字体的个数
亲，VBA代码如下，可以统计A列不同字体颜色的个数，结果显示在C列。

Sub sumcolor()

Dim r, c, n As Long '定义长整型变量

Dim rg As Range '定义一个Range变量

Dim d, k '定义两个可变类型的变量

Set d = CreateObject("ScriptingDictionary") '创建字典

r = Range("A1")SpecialCells(xlCellTypeLastCell)Row '获取A列最大行号

For Each rg In Range("A1:A" & r) '从A列第1到最后一行进行循环，每个循环的单元格是rg

c = rgFontColor '把循环的每个字体颜色数值赋给变量c

If dexists(c) Then '如果字典中存在c值

d(c) = d(c) + 1 'c累加1

Else '如果字典中不存在c值

d(c) = 1 'c赋值1

End If '结束判断

Next '下一个循环

Columns("C:C")Clear '清空C列

For Each k In dkeys '循环读取字典的每一个关键字

n = n + 1 'n值累加1

With Range("C" & n) '定义简写C列的第n行

FontColor = k '用字典关键字的值设置字体颜色

Value = d(k) '用字典关键字对应的项目值填写单元格

End With '结束简写

Next '下一个循环

Set d = Nothing '清除字典对象

End Sub
4 求助excel统计有颜色字体个数
用VBA中的公式即可。

例如如下公式是统计红色填充的，将其复制在VBA的模块代码中，再回到sheet即可使用该公式。也可编辑、黑色等统计公式，将其中的Vbred换成Vbyellow、Vbblack即可。

Function Sum_Red(myrange As Range)Dim a As RangeSum_Red = 0For Each a In myrangeIf aInteriorColor = vbRed ThenSum_Red = Sum_Red + 1End IfNext aEnd Function。
5 excel 统计字体颜色
1工具栏---插入---名称---定义----定义名称为AA----引用位置输入=getcell(24,A1){假设你的名字A列，注意：是A1，不是绝对引用}------点击右侧添加----点击右侧----确定； 2假如在B1输入=AA，然后下托公式； 3如果你以上步骤都做好了，托完公式的所有单元格应该只有两个数值3或者0; 4找任意单元格显示“离职人员”，单元格输入公式=COUNTIF(B1:B5,"=3")假如=AA的公式在B列； 5注意（1）在你名字颜色变化时，需要重新拖动=AA的公式；（2）=AA的第一行如果变动需要反向拖动公式。

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

宏代码如下：

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

Dim i%

Dim Nc%

For i = 1 To 5

If Cells(1, i)FontColor <> 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年代中后期，宏病毒成为了最流行的计算机病毒类型之一。其它的包括宏语言的项目，如openofficeorg，故意从其宏语言中排除了一些功能（如：自动执行）以避免破坏程序。然而，这一特性在很多事务中受到欢迎。

---