右侧单元格中的6个数字包含B-D列中的3个数字时，对应的单元格变色

elcy · 发表于 2023-7-7 14:08

本帖最后由 elcy 于 2023-7-8 16:20 编辑

要在表格中实现当F列到AA列单元格中的6个数字包含B-D列中的3个数字时，对应的单元格变黄，字体变红

Sub pw()
Dim rng As Range
Dim cell As Range

For Each cell In Range("F1:AA10") '修改为适当的范围
      '检查F列到AA列单元格中的6个数字是否包含B-D列中的3个数字
      If WorksheetFunction.CountIf(Range("B" & cell.Row & ":D" & cell.Row), "*" & cell.Value & "*") = 3 Then
         '将单元格的背景色设置为黄色，字体颜色设置为红色
         cell.Interior.Pattern = xlSolid
         cell.Interior.Color = RGB(255, 255, 0)
         cell.Font.Color = RGB(255, 0, 0)
      End If
Next cell
End Sub

请教下这个改怎么写

微信图片_20230707140407.png

gwjkkkkk · 发表于 2023-7-8 11:53

请参考附件。。。

笨鸟飞不高 · 发表于 2023-7-8 12:43

例子.zip (35.02 KB, 下载次数: 9)

elcy · 发表于 2023-7-8 16:19

笨鸟飞不高发表于 2023-7-8 12:43

感谢大佬太厉害了

elcy · 发表于 2023-7-8 16:20

gwjkkkkk 发表于 2023-7-8 11:53
请参考附件。。。

感谢大佬太厉害了！

elcy · 发表于 2023-7-8 16:31

还想再麻烦一下。如果一个工作簿里有多个表格。怎么能在一个表里运行了。其他表里都变了

gwjkkkkk · 发表于 2023-7-9 16:10

elcy 发表于 2023-7-8 16:31
还想再麻烦一下。如果一个工作簿里有多个表格。怎么能在一个表里运行了。其他表里都变了

如果格式一样，可以加个遍历。。。

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

[已解决] 右侧单元格中的6个数字包含B-D列中的3个数字时，对应的单元格变色

评分

评分