مشخص کردن اعداد خالی یا اعداد رد شده

[amir0914]

سلام دوستان. من یک فایل مختصات تو اکسل دارم که توش اعداد به ترتیب از یک تا 1000 هستش. میخوام اعدادی رو که از یاد رفته یا پریده رو برام پیدا کنه. یا با رنگی مشخصی کنه.مثلا اگه شماره 50 از یاد رفته بین دو شماره 49 و 51 مشخص کنه. ممنون میشم کمکم کنین.

[iranweld]

با سلام

با فرمت کاندیشنال امکان پذیر است

با ویژوال بیسیک از کدهای زیر استفاده کنید . در صورتیکه اختلاف یک عدد جا افتاده باشد به رنگ سبز و بیشتر از یک عدد باشد رنگ قرمز مشخص میگردد

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 

[amir0914]

آقا فدایی داری شدید ..... مخلصیم شدید..کارم حل شد

[amir0914]

ممنون دوست عزیز بابت کمکتون. فقط یک سوال دیگه اینکه میخوام اون 1000 ردیف هر ردیف رو تو یک فرم a4 که از پیش طراحی شده 1000 تا پرینت کنه. میشه این کارو کرد؟؟

[iranweld]

با سلام
یک نمونه فایل ضمیمه کنید احتمالا با تهیه یک ماکرو امکان پذیر میباشد

[amir0914]

با سلام و خسته نباشین. فایل رو ضمیمه کردم که شامل یک فرم a4 و یک فایل اکسل نمونه هستش. ممنون میشم کمکم کنین.