[已解决]想通过change事件实现同行三个价位比较，最大的红色，最小的绿色

jessylake

三个价位中只要有一个发生改变，就进行同行比较，设置最大和最小的颜色，附件见楼下

最佳答案

月排行榜 / 总排行榜

易安1

2014-11-22 13:04

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Set rg = Union(Cells(Target.Row, 2), Cells(Target.Row, 4), Cells(Target.Row, 6))
   
3.     For Each Rng In rg
   
4.         If Rng = Application.Max(rg) Then
   
5.             Rng.Interior.ColorIndex = 3
   
6.         ElseIf Rng = Application.Min(rg) Then
   
7.             Rng.Interior.ColorIndex = 14
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

jessylake

附件在这里，先谢谢了

易安1

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Set rg = Union(Cells(Target.Row, 2), Cells(Target.Row, 4), Cells(Target.Row, 6))
   
3.     For Each Rng In rg
   
4.         If Rng = Application.Max(rg) Then
   
5.             Rng.Interior.ColorIndex = 3
   
6.         ElseIf Rng = Application.Min(rg) Then
   
7.             Rng.Interior.ColorIndex = 14
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

jessylake

易安1 发表于 2014-11-22 13:04

字体颜色（白色）怎么加呢？而且颜色应该初始化一下，不过剩下的自己可以搞定

jessylake

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Row > 2 And (Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6) Then
   
3.     Set rg = Union(Cells(Target.Row, 2), Cells(Target.Row, 4), Cells(Target.Row, 6))
   
4.     rg.Interior.ColorIndex = 2
   
5.     rg.Font.ColorIndex = 1
   
6.     For Each Rng In rg
   
7.         If Rng = Application.Max(rg) Then
   
8.             Rng.Interior.ColorIndex = 3
   
9.             Rng.Font.ColorIndex = 2
   
10.         ElseIf Rng = Application.Min(rg) Then
    
11.             Rng.Interior.ColorIndex = 10
    
12.             Rng.Font.ColorIndex = 2
    
13.         End If
    
14.     Next
    
15. End If
    
16. End Sub

复制代码