请教：如何统计一行中单元格填充颜色的个数

helloexcel2014 · 发表于 2022-7-23 10:55

请教：如何统计一行中单元格填充颜色的个数，并自动填在C1中

lcluck2002 · 发表于 2022-7-23 10:59

自定义函数：

Function CountColor(x As Range, ary1 As Range)

Application.Volatile

For Each i In ary1
      If i.Interior.ColorIndex = x.Interior.ColorIndex Then

         CountColor = CountColor + 1

      End If

Next i

End Function

liulang0808 · 发表于 2022-7-23 11:05

Sub test()
Dim sm As Long
For j = 1 To ActiveSheet.UsedRange.Rows.Count
      sm = 0
      For Each Rng In Application.Intersect(Rows(j), ActiveSheet.UsedRange)
         If Rng.Interior.ColorIndex = 6 Then
            sm = sm + 1
         End If
      Next
      Cells(j, 3) = sm
Next
End Sub

liulang0808 · 发表于 2022-7-23 11:06

附件内容供参考。。。

helloexcel2014 · 发表于 2022-7-23 11:38

liulang0808 发表于 2022-7-23 11:05
Sub test()
Dim sm As Long
For j = 1 To ActiveSheet.UsedRange.Rows.Count

谢谢，当我增加填充颜色时不会自动运行不会更新数据是怎么回事呢

liulang0808 · 发表于 2022-7-23 11:39

helloexcel2014 发表于 2022-7-23 11:38
谢谢，当我增加填充颜色时不会自动运行不会更新数据是怎么回事呢

当前就是判断了黄色的，如果添加其他颜色，也统计的话
If Rng.Interior.ColorIndex = 6 Then 这个段修改下
If Rng.Interior.ColorIndex <> x Then，这个x就是不需要统计的颜色

helloexcel2014 · 发表于 2022-7-23 11:49

liulang0808 发表于 2022-7-23 11:39
当前就是判断了黄色的，如果添加其他颜色，也统计的话
If Rng.Interior.ColorIndex = 6 Then 这个段修 ...

也可以就判断黄色，我的意思是它不想公式那样会自动运行吗，有更改数据的话还要去点击运行代码

liulang0808 · 发表于 2022-7-23 15:29

helloexcel2014 发表于 2022-7-23 11:49
也可以就判断黄色，我的意思是它不想公式那样会自动运行吗，有更改数据的话还要去点击运行代码

颜色的修改不触发事件的。。。

qdtzq · 发表于 2022-7-23 16:03

估计你是要这么个效果

helloexcel2014 · 发表于 2022-7-25 15:48

qdtzq 发表于 2022-7-23 16:03
估计你是要这么个效果

谢谢，确实是这样

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

[求助] 请教：如何统计一行中单元格填充颜色的个数

评分