比較最近的細胞

Question

我需要比較一個細胞與下一個，如果下一個比第一個大於3，比使它的顏色。 例如：1 2 6 3 2 8

1 compare with 2 = do not do nothing 
2 compare with 6 = make it's color 
6 compare with 3 = make it's color to 
3 compare with 2 = do not do nothing 
2 compare with 8 = make it's color. 

這裏是代碼，使細胞少於4種顏色，但我不知道如何diff的一個細胞與下一個:(

Sub Color() 
Dim i As Integer 
For i = 1 To 7 
    With ActiveSheet.Cells(i) 
    If .Value < 4 Then 
    .Interior.Color = QBColor(10) 
    End If 
    End With 
    Next i 
End Sub 

UPD ：

哦，看起來像我已經找到解決方案

Sub Color() 
Dim i As Integer 
For i = 1 To 7 
    With ActiveSheet.Cells(i) 
    If ActiveSheet.Cells(i) < ActiveSheet.Cells(i + 1) Then 
    ActiveSheet.Cells(i + 1).Interior.Color = QBColor(10) 
    End If 
    End With 
    Next i 
End Sub 

Answer 1

您可以使用條件格式！這不是VBA，黛布拉涵蓋這個話題徹底這裏，http://www.contextures.com/xlcondFormat01.html

你的情況：

1. 選擇A1：E1
2. 條件格式...新規則（根據您的Excel版本不同的菜單選項）
3. 使用公式來確定什麼細胞格式化
4. 使用= B1-A1> 3以添加的相對式
5. 選擇一個填充顏色

從xl2010開始的屏幕截圖低於