[已解决]求：高亮显示代码优化？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！
顺祝各位老师：元宵节快乐！


高亮显示代码的优化？.zip (7.52 KB, 下载次数: 17)

2017-2-8 15:12 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-2-8 16:51

fxgg72 发表于 2017-2-8 16:30
第二问和第三问还没解决呢！老师辛苦了！
谢谢！

第二问，照着随便改改就好了嘛

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rng As Range, rng1 As Range
   
3.     Set rng = [a1:e29]
   
4.     Set rng1 = [h1:l29]
   
5.     Cells.Interior.ColorIndex = xlNone
   
6.     If Target.Column = 6 Or Target.Column = 7 Or Target.Column > 12 Then
   
7.     Exit Sub
   
8.     End If
   
9.     If Target.Column < 6 Then
   
10.     rng.Rows(Target.Row).Interior.ColorIndex = 6
    
11.     rng.Columns(Target.Column).Interior.ColorIndex = 15
    
12.     rng.Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
    
13.     Else
    
14.     rng1.Rows(Target.Row).Interior.ColorIndex = 6
    
15.     rng1.Columns(Target.Column - 7).Interior.ColorIndex = 15
    
16.     rng1.Cells(Target.Row, Target.Column - 7).Interior.ColorIndex = 22
    
17.     End If
    
18. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rng As Range
   
3.     Set rng = [a1:h25]
   
4.     Cells.Interior.ColorIndex = xlNone
   
5.     rng.Rows(Target.Row).Interior.ColorIndex = 6
   
6.     rng.Columns(Target.Column).Interior.ColorIndex = 15
   
7.     rng.Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
   
8. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

fxgg72

望帝春心 发表于 2017-2-8 15:58

第二问和第三问还没解决呢！老师辛苦了！
谢谢！

望帝春心

fxgg72 发表于 2017-2-8 16:30
第二问和第三问还没解决呢！老师辛苦了！
谢谢！

第二问，照着随便改改就好了嘛

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rng As Range, rng1 As Range
   
3.     Set rng = [a1:e29]
   
4.     Set rng1 = [h1:l29]
   
5.     Cells.Interior.ColorIndex = xlNone
   
6.     If Target.Column = 6 Or Target.Column = 7 Or Target.Column > 12 Then
   
7.     Exit Sub
   
8.     End If
   
9.     If Target.Column < 6 Then
   
10.     rng.Rows(Target.Row).Interior.ColorIndex = 6
    
11.     rng.Columns(Target.Column).Interior.ColorIndex = 15
    
12.     rng.Cells(Target.Row, Target.Column).Interior.ColorIndex = 22
    
13.     Else
    
14.     rng1.Rows(Target.Row).Interior.ColorIndex = 6
    
15.     rng1.Columns(Target.Column - 7).Interior.ColorIndex = 15
    
16.     rng1.Cells(Target.Row, Target.Column - 7).Interior.ColorIndex = 22
    
17.     End If
    
18. End Sub

复制代码

望帝春心

第三个问百度就好了啊