选择单元格自动更新背景颜色

jinmingqwe

各位大佬,求个代码.

如果所选单元格在A:J列,那么
取所选单元格所在行 "D"列的值.
所有跟所选单元格D列值相同的行  (A列至I列)
背景颜色标注为蓝色.

如果单元格切换,之前标注为蓝色的恢复为白色.



小弟初学,只会做所在行的,其他行的不会弄,求帮助.

jinmingqwe

如果所选单元格值为空,就没变化.

autolzg

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i&
   
3. If Target.Row <= 241 And Target.Column <= 10 Then
   
4. Debug.Print Target.Row & "  -  " & Target.Column
   
5.    
   
6.     With Range("A1:I241").Interior
   
7.         .Pattern = xlNone
   
8.         .TintAndShade = 0
   
9.         .PatternTintAndShade = 0
   
10.     End With
    
11.    
    
12. With Range("D" & Target.Row).Interior
    
13.            .Pattern = xlSolid
    
14.         .PatternColorIndex = xlAutomatic
    
15.         .Color = vbBlue   '12611584
    
16.         .TintAndShade = 0
    
17.         .PatternTintAndShade = 0
    
18. End With
    
19. For i = 1 To 241
    
20. If Cells(i, 4).Value = Range("D" & Target.Row).Value Then
    
21. With Range("A" & i & ":I" & i).Interior
    
22.            .Pattern = xlSolid
    
23.         .PatternColorIndex = xlAutomatic
    
24.         .Color = vbBlue   '12611584
    
25.         .TintAndShade = 0
    
26.         .PatternTintAndShade = 0
    
27. End With
    
28. End If
    
29. Next i
    
30. 
    
31. End If
    
32. End Sub
    

复制代码

22AAA2.zip (26.22 KB, 下载次数: 6)

2019-3-14 02:50 上传

点击文件名下载附件

jinmingqwe

autolzg 发表于 2019-3-14 02:50

完美解决,感谢大佬.