按字体颜色统计个数

天地一相 · 发表于 2023-6-15 12:36

本帖最后由天地一相于 2023-6-17 19:19 编辑

感谢帮助！如题，统计A1:A100区域内，有内容且字体颜色黑色的单元格个数。

伐伐发木工 · 发表于 2023-6-15 13:47

Sub col()
j = 0
For Each n In Range("a1:a100")
If n <> "" And n.Font.ColorIndex = 1 Then
j = j + 1
End If
Next
MsgBox j
End Sub

复制代码

tchh666 · 发表于 2023-6-15 14:18

get.cell 好像只识别背景色，字体函数做不了，得VBA。。

天地一相 · 发表于 2023-6-15 14:53

tchh666 发表于 2023-6-15 14:18
get.cell 好像只识别背景色，字体函数做不了，得VBA。。

谢谢回复，各种搜索，没找到理想的公式，看到有能识别字体颜色的函数，但没模仿成功。不想用VBA，就想用个公式，跟随计算时显示一个结果给我提示。

tchh666 · 发表于 2023-6-15 14:56

天地一相发表于 2023-6-15 14:53
谢谢回复，各种搜索，没找到理想的公式，看到有能识别字体颜色的函数，但没模仿成功。不想用VBA，就想用 ...

什么函数识别字体？？

天地一相 · 发表于 2023-6-15 15:02

tchh666 发表于 2023-6-15 14:56
什么函数识别字体？？

我只认识几个函数，这个也是网上搜的，COUNTBYFONTCOLOR函数，说是能，但模仿总不成功。按说，统计具有特定字体颜色的单元格个数也是常见的需求吧，怎会不能容易解决呢。

高个子 · 发表于 2023-6-15 15:06

你这是条件格式的颜色还是手动标记的颜色？

天地一相 · 发表于 2023-6-15 15:14

高个子发表于 2023-6-15 15:06
你这是条件格式的颜色还是手动标记的颜色？

谢谢，你一下问住了我了。我梳理一下：我在表格里手工设置了一列的字体颜色是蓝绿色，色号33，在VBA执行时也有语句上这个33号的色，然后呢，我会根据情况手工把一些单元格修改成黑色，现在，我就是要知道这个黑色字的单元有多少个。目前使用辅助列，上黑色时就旁边列标记，现在想找个简单的办法随时知道这黑色字的单元格个数。

人间油物 · 发表于 2023-6-15 15:19

天地一相发表于 2023-6-15 15:14
谢谢，你一下问住了我了。我梳理一下：我在表格里手工设置了一列的字体颜色是蓝绿色，色号33，在VBA执行 ...

朋友你上传附件看看嘛，VBA是可以判断字体颜色的呀

hugeinfo · 发表于 2023-6-15 15:23

把表转成超级表然后汇总行汇总选计数筛选按照颜色筛选可统计个数

		自动登录	找回密码
密码			免费注册

[已解决] 按字体颜色统计个数

评分

评分

评分

评分

评分

评分