条件格式变VBA代码？

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim rng As Range, n&
   
3.     Set rng = [r4:bm99]
   
4.     If Intersect(rng, Target) Is Nothing Then Exit Sub
   
5.     n = Target.Row
   
6.     If Target <> "" And Cells(n, 12) <> "" Then
   
7.         If Not IsNumeric(Target) Then
   
8.             Target.Interior.ColorIndex = 10
   
9.         ElseIf Target < Cells(n, 12) Then
   
10.             Target.Interior.ColorIndex = 3
    
11.         Else
    
12.             Target.Interior.ColorIndex = 10
    
13.         End If
    
14.     Else
    
15.         Target.Interior.ColorIndex = 0
    
16.     End If
    
17. End Sub
    

复制代码

fxgg72

grf1973 发表于 2017-12-5 09:14

老师您好！现在这个代码没有问题了。谢谢您的修正！
又出现了一个新问题，就是高亮显示没有了。
由于行多，列多，怕填错数据，所以需要高亮显示来定位。但您的这组代码对判定设定区域与L列比较大小已经没有问题了，就是高亮显示没有了。
您的代码应该去掉了工作表中的所有条件格式？
能否两者都能实现？
麻烦老师您了！谢谢！


高亮显示的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 6500 Or Target.Column > 120 Then Exit Sub
ThisWorkbook.Names.Add "ro", Target.Row
ThisWorkbook.Names.Add "co", Target.Column
End Sub

高亮显示辅助的条件格式

grf1973

条件格式优于事件，把事件的结果冲掉了。
可以一样用代码实现selection_change事件。

fxgg72

grf1973 发表于 2017-12-5 20:11
条件格式优于事件，把事件的结果冲掉了。
可以一样用代码实现selection_change事件。

老师：您好！
麻烦您再写一下这个的代码。
谢谢！

grf1973

如果要选中行填充颜色，那就需要记录先前选中的行数，该行的各单元格的颜色，比较麻烦。
取个折中的方案，用select替代高亮，也能达到效果。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row > 6500 Or Target.Column > 120 Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     r = Target.Row: c = Target.Column
   
5.     Rows(r).Select
   
6.     Target.Activate
   
7.     Application.EnableEvents = True
   
8. End Sub

复制代码