如何根据选中的单元格为对应的列单元格填充颜色（已解决）

wwin80

老师好，

详见附件表格

如何做到选中 e2:e11 和 h2:h11 和 k2:k11 区域中的任意一个单元格 则 d列 每行中包含这个单元格内容的行就会显示为红色背景

如上表所示，如果我选中了 h2单元格（mini projector）

则 d列 中的包含 mini projector 内容的行就会填充为红色

但是当我选择 k2单元格 时，则前面填充红色的单元格恢复为无填充，但是包含 full hd 1080p 的 d列 对应的行又会填充为红色

请问如何做到呢

谢谢老师的宝贵帮助

祝老师：健康，快乐，平安

Chip_Kenny

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Application.Intersect(Union([e2:e11], [h2:h11]), Target) Is Nothing Then Exit Sub
   
3. Dim s$, rng As Range, a
   
4. Application.ScreenUpdating = 0
   
5. s = Target.Value
   
6. Range("d1:d" & [d1048576].End(3).Row).Interior.Color = xlNone
   
7. a = Range("d1:d" & [d1048576].End(3).Row)
   
8. For i = 2 To UBound(a)
   
9.     If InStr(1, a(i, 1), s, 1) Then
   
10.         If rng Is Nothing Then
    
11.             Set rng = Cells(i, "d")
    
12.         Else
    
13.             Set rng = Union(rng, Cells(i, "d"))
    
14.         End If
    
15.     End If
    
16. Next
    
17. If Not rng Is Nothing Then rng.Interior.Color = vbRed
    
18. Application.ScreenUpdating = 1
    
19. End Sub

复制代码

wwin80

Chip_Kenny 发表于 2020-3-16 15:36

非常感谢老师帮助，代码非常完美，谢谢您 老师