|
发表于 2016-6-11 13:34
|
显示全部楼层
本楼为最佳答案
本帖最后由 老司机带带我 于 2016-6-11 13:56 编辑
又改了下,第二行的数据不对- Sub xx()
- Dim rng As Range, x$, y$, rngx As Range
- Set rngx = Sheet1.Range("B10:T17")
- rngx.Interior.ColorIndex = 0
- For Each rng In rngx
- If rng <> "" And rng.Offset(-1, 0) <> "" And rng.Offset(-2, 0) <> "" Then
- If rng.Offset(-1, 0).Value > rng.Value Then
- If rng.Offset(-1, 0).Value - rng.Value <= 5 Then
- x = "左"
- Else
- x = "右"
- End If
- Else
- If Abs(rng.Offset(-1, 0).Value - rng.Value) < 5 Then
- x = "右"
- Else
- x = "左"
- End If
- End If
- If rng.Offset(-2, 0).Value > rng.Offset(-1, 0).Value Then
- If rng.Offset(-2, 0).Value - rng.Offset(-1, 0).Value <= 5 Then
- y = "左"
- Else
- y = "右"
- End If
- Else
- If Abs(rng.Offset(-2, 0).Value - rng.Offset(-1, 0).Value) < 5 Then
- y = "右"
- Else
- y = "左"
- End If
- End If
- If x <> y Then rng.Interior.Color = 255
- End If
- Next
- End Sub
复制代码 |
|