请教老师，A2至K2单元格中，含M2三个数字时，M2显色

qsvb · 发表于 2021-3-18 21:02

一， A2至K2单元格，数字位置固定，但有时有数字，有时为空。

二，当M2数字三个，15 16 20，在A2至K2单元格都有时，M2显色

当家的MAX · 发表于 2021-3-18 21:30

这个意思吗

Sub test()
Dim arr1
arr1 = WorksheetFunction.Transpose(Range("a2:k2").Value)
arr1 = WorksheetFunction.Transpose(arr1)
Range("m2").Interior.Pattern = xlNone
If UBound(Filter(arr1, Split(Range("m2").Value, " ")(0))) >= 0 _
And UBound(Filter(arr1, Split(Range("m2").Value, " ")(1))) >= 0 _
And UBound(Filter(arr1, Split(Range("m2").Value, " ")(2))) >= 0 Then
Range("m2").Interior.Color = 195
End If
End Sub

复制代码

边缘码农 · 发表于 2021-3-19 08:55

可以在N2单元格设置一个数组公式，当A2-K2中的数字包含15/16/20这三个数字的时候，N2单元格的值是3，然后在M2单元格设置条件格式。

qsvb · 发表于 2021-3-19 11:19

边缘码农发表于 2021-3-19 08:55
可以在N2单元格设置一个数组公式，当A2-K2中的数字包含15/16/20这三个数字的时候，N2单元格的值是3，然后在 ...

也可以，就是不知怎做，谢谢。

边缘码农 · 发表于 2021-3-19 15:46

qsvb 发表于 2021-3-19 11:19
也可以，就是不知怎做，谢谢。

N2单元格的公式：
=IF(SUM(IF($A$2:$K$2=VALUE(MID(TRIM($M$2),1,2)),1,0))=0,0,1)+IF(SUM(IF($A$2:$K$2=VALUE(MID(TRIM($M$2),4,2)),1,0))=0,0,1)+IF(SUM(IF($A$2:$K$2=VALUE(MID(TRIM($M$2),7,2)),1,0))=0,0,1)

是数组公式，复制后，按ctrl+shift+enter三键。

边缘码农 · 发表于 2021-3-19 16:22

=IF(SUM(IF($A$2:$K$2=VALUE(MID($M$2,1,2)),1,0))=0,0,1)+IF(SUM(IF($A$2:$K$2=VALUE(MID($M$2,4,2)),1,0))=0,0,1)+IF(SUM(IF($A$2:$K$2=VALUE(MID($M$2,7,2)),1,0))=0,0,1)

原先的公式套了个trim函数，当15改成个位数的时候出错了。

M2单元格的格式是：数字之间一个空格，个位数的话，需要在个位数前补一个空格。

qsvb · 发表于 2021-3-19 16:52

15 16 20变为5 16 20还是不行，方法可以，谢老师还可更改吗

qsvb · 发表于 2021-4-11 17:42

压缩包补加

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

[求助] 请教老师，A2至K2单元格中，含M2三个数字时，M2显色