[已解决]求：指定区域显示高亮代码改下？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！！！


求：指定区域显示高亮代码改下？.rar (88.53 KB, 下载次数: 17)

2017-6-26 16:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-26 16:39

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Cells.Interior.ColorIndex = xlNone
   
3.     If Target.Row <= 29 And Target.Column <= 5 Then
   
4.         Columns(Target.Column).Range("a1:a29").Interior.ColorIndex = 15
   
5.         Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
   
6.     ElseIf Target.Row <= 29 And Target.Column <= 12 And Target.Column > 7 Then
   
7.         Columns(Target.Column).Range("a1:a29").Interior.ColorIndex = 15
   
8.         Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
   
9.     End If
   
10.     Rows(Target.Row).Range("a1:e1").Interior.ColorIndex = 6
    
11.     Rows(Target.Row).Range("h1:l1").Interior.ColorIndex = 6
    
12. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Cells.Interior.ColorIndex = xlNone
   
3.     If Target.Row <= 29 And Target.Column <= 5 Then
   
4.         Columns(Target.Column).Range("a1:a29").Interior.ColorIndex = 15
   
5.         Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
   
6.     ElseIf Target.Row <= 29 And Target.Column <= 12 And Target.Column > 7 Then
   
7.         Columns(Target.Column).Range("a1:a29").Interior.ColorIndex = 15
   
8.         Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
   
9.     End If
   
10.     Rows(Target.Row).Range("a1:e1").Interior.ColorIndex = 6
    
11.     Rows(Target.Row).Range("h1:l1").Interior.ColorIndex = 6
    
12. End Sub

复制代码

02761752696

大灰狼老师在点击  F  G  两列是  也会高亮显示当前行

你是要那种效果  ，左边和右边不一样 ，区别在于 F 和 G 列是否也高亮。。

fxgg72

02761752696 发表于 2017-6-26 17:08
大灰狼老师在点击  F  G  两列是  也会高亮显示当前行

你是要那种效果  ，左边和右边不一样 ，区别在于  ...

老师您好！
左边和右边是一样的。
就是不管点击左边还是右边，F、G列都不要高亮；点左边，右边也要显示出来，点右边，左边也要显示出来。
谢谢！

02761752696

fxgg72 发表于 2017-6-27 13:12
老师您好！
左边和右边是一样的。
就是不管点击左边还是右边，F、G列都不要高亮；点左边，右边也要显示 ...

那就是点击左边的效果，对不？F G 列不高亮？