单击时，指定范围单元格底色自动变色，再点取消变色

一念成佛

如题

再次请教， 单击特定列任意单元格，对应行指定范围底色自动变绿色，再单击特定列的该单元格取消变色。
现在的代码，如果点选行标或列标头，即整行或整列都变色。所以原来已经变色的就都受到影响。拜托老师，大神不吝赐教。

ynzsvt

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '整行单元格变色，使用这个代码
   
2. ' 检查点击的是不是特定列（例如第一列，你可以根据需要修改ColRef）
   
3. Dim ColRef As Range
   
4. Set ColRef = Me.Columns(1) ' 第一列
   
5. 
   
6. ' 如果点击的是特定列的单元格
   
7. If Not Intersect(Target, ColRef) Is Nothing Then
   
8.   ' 变更所点行的背景色
   
9.   If Target.EntireRow.Resize(, 20).Interior.Color = RGB(236, 250, 236) Then ' 绿色
   
10.    Target.EntireRow.Resize(, 20).Interior.ColorIndex = xlNone ' 如果不是特定列的单元格，取消变色
    
11.   Else
    
12. 
    
13.    Target.EntireRow.Resize(, 20).Interior.Color = RGB(236, 250, 236)
    
14.   End If
    
15. End If
    
16. End Sub

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

把.EntireRow删除即可