请问能对单元格的颜色进行判断吗？

gzminge · 发表于 2024-5-10 18:38

比如，对所选区域中，填充颜色是红色，就返回1，否则就0. 请用公式怎么写？

red.rar (8.39 KB, 下载次数: 6)

魚。。 · 发表于 2024-5-10 19:03

这活用函数不太好使，用vb判断

Tina.棠 · 发表于 2024-5-10 19:16

如果你是想动态的实现红色单元格求和的话可以做，但如果是要对应生成0/1那就不知道。

魚。。 · 发表于 2024-5-10 19:19

本帖最后由魚。。于 2024-5-10 19:30 编辑

Tina.棠 · 发表于 2024-5-10 19:28

本帖最后由 Tina.棠于 2024-5-10 19:38 编辑

好吧，刚发现我做出来了。但不是简单的一个公式能出来的。
1.公式标签里边，点定义名称。弹出来的窗口自己定义一个名称。引用位置填下面的公式，然后确定。
=(GET.CELL(63,INDIRECT("r"&ROW($A$1:$E$10)&"c"&COLUMN($A$1:$E$10),0))=3)*1
2.H1单元格输入等号，然后按F3，选择你刚刚自定义的名称，然后点回车。应该就能出来了。

3.A1:E10修改颜色以后要F9手动更新一下。
4.我用Excel能实现，但用我的WPS试了一下，不行。

hxj119 · 发表于 2024-5-10 21:03

没有函数能提取单元格颜色，建议用VBA解决！

swl4561255 · 发表于 2024-5-11 08:47

Sub text()
Dim r As Range
arr = Range("A1").CurrentRegion
Dim brr(1 To 100, 1 To 100)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If Cells(i, j).Interior.ColorIndex = 3 Then
brr(i, j) = 1
Else
brr(i, j) = 0
End If
Next
Next
[H1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

复制代码

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

[求助] 请问能对单元格的颜色进行判断吗？

评分