با سلام
با فرمت کاندیشنال امکان پذیر است
با ویژوال بیسیک از کدهای زیر استفاده کنید . در صورتیکه اختلاف یک عدد جا افتاده باشد به رنگ سبز و بیشتر از یک عدد باشد رنگ قرمز مشخص میگردد
کد PHP:
Sub test()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Range("A1:A" & Z).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1").Select
For i = 1 To Z
If Range("A" & i + 1).Value - Range("A" & i).Value = 2 Then
Range("a" & i).Interior.ColorIndex = 4
Range("a" & i + 1).Interior.ColorIndex = 4
ElseIf Range("A" & i + 1).Value - Range("A" & i).Value > 1 Then
Range("a" & i).Interior.ColorIndex = 3
Range("a" & i + 1).Interior.ColorIndex = 3
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)