若单元格有颜色则返回1，若没有颜色返回0，可否用函数解决？

hello！world · 发表于 2020-4-8 18:23

如果每行有多个单元格，需要全部单元格都有颜色才返回1，如果不全有颜色就返回0。这个能用函数解决吗？

请问各位大神有没有什么建议？

455530845 · 发表于 2020-4-8 18:28

有颜色数值了用if sum 返回0 1

hello！world · 发表于 2020-4-8 20:16

455530845 发表于 2020-4-8 18:28
有颜色数值了用if sum 返回0 1

请问if和sum具体要怎么应用呢？

455530845 · 发表于 2020-4-9 07:22

看看这个测试

sucx007 · 发表于 2020-4-9 07:48

'【参数1: Sum_range】单元格矩形区域
'【参数2: ColorCell】指定底色的单元格(单一单元格)
'【参数3: ColorId_Type】指定底色的颜色代码ColorIndex 或模式，默认=0
'【功能】返回单元格底色颜色代码
' /或按指定单元格底色进行范围内数值求和统计/或统计区域内同底色单元格个数
Private Function SC(Sum_range, ColorCell, Optional ColorId_Type = 0)
If ColorId_Type > 0 And ColorId_Type < 57 Then
C_Index = ColorId_Type '如果第3参数值不为0 且数值在1-56范围内则该参数用作指定底色的颜色代码
Else
C_Index = ColorCell.Interior.ColorIndex '否则以第2参数指定单元中的底色作为指定底色
If ColorId_Type = -2 Then '如果第3参数=-2则函数返回当前指定单元格底色的颜色代码
SC = C_Index '「-2」時、色コード出力
If SC = -4142 Then SC = 0 '当默认无底色时结果转为=0输出
Exit Function '结束函数过程退出
ElseIf ColorId_Type = -3 Then '如果第3参数=-3 则返回指定单元格的字体颜色FontColor
SC = ColorCell.Font.ColorIndex
If SC = -4105 Then SC = 0 '如果字体默认黑色结果转为=0输出
Exit Function '结束函数过程退出
End If
End If
'当第3参数默认=0或第3参数=-1时，已将第2参数中单元格底色作为标准色
'下面开始统计第1参数对象区域中，所有相同底色单元格中的结果
For i = 1 To Sum_range.Cells.Count '遍历区域中所有单元格
If Sum_range.Cells(i).Interior.ColorIndex = C_Index Then '如果底色相同则
If ColorId_Type < 0 Then
SC = SC + 1 '如果第3参数=-1时，仅仅统计同底色单元格的个数
Else '如果第3参数默认=0时
If IsNumeric(Sum_range.Cells(i)) Then
SC = SC + Sum_range.Cells(i)
'如果同底色单元格中为数值（含文本数值）时求总和。
End If
End If
End If
Next
End Function

复制代码

用自定义函数吧=(Sc(A1:L1,$L$1,-1)=12)*1

胡汉三回来了 · 发表于 2024-7-21 21:57

实现如图：

CELL_EX函数实现若单元格有颜色则返回1，若没有颜色返回0

=--AND(BYCOL($A1:$D1,LAMBDA(x,IF(CELL_EX(,x)<>16777215,1,0))))

复制代码

详见帖子：CELL_EX函数实现根据单元格颜色或字体、字体颜色等条件进行数据统计、提取 1楼附件

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

[已解决] 若单元格有颜色则返回1，若没有颜色返回0，可否用函数解决？