مشكلة كود عند تلوين قيم عمود مقارنة مع عمود اخر

[عبدالفتاح في بي اكسيل]

السلام عليكم  احتاج  من خبراء  الاكواد  بان يقومي  لي بحل  هذه  المشكلة   الشرط  الذي  وضعته  هو  اذا كانت قيم العمود  B اكبر من قيم  العمود C  يتم  تلوين  فقط  القيم  الموجودة  في  العمود B  ولكن  ما يحدث  يقوم   بتلوين  بعض  القيم  التي  اقل  من  العمود C    بالاضافة  عندما  يتم  اضافة رقم  جديد  يتم تلوينه  قبل تطبيق  الماكرو 

Sub CompareAndHighlight()

    Dim rng1 As Range, rng2 As Range, i As Long, j As Long
    For i = 2 To Sheets("ورقة1").Range("B" & Rows.Count).End(xlUp).Row
        Set rng1 = Sheets("ورقة1").Range("B" & i)
        For j = 2 To Sheets("ورقة1").Range("C" & Rows.Count).End(xlUp).Row
            Set rng2 = Sheets("ورقة1").Range("C" & j)
            If rng1.Value > rng2.Value Then
                rng1.Interior.Color = RGB(255, 0, 0)
            End If
            Set rng2 = Nothing
        Next j
        Set rng1 = Nothing
    Next i

End Sub

 

HIGHLIGHT ‬.xls

[سليم حاصبيا]

جرب هذا الكود البسيط

Sub My_code()
  Dim i%
    Range("B2", Range("C1").End(4)) _
    .Interior.ColorIndex = xlNone
  i = 2
    Do Until Range("B" & i) = vbNullString
      If Range("B" & i) > Range("C" & i) Then _
      Range("B" & i).Interior.ColorIndex = 3
      i = i + 1
    Loop
End Sub

 

[عبدالفتاح في بي اكسيل]

بارك  الله فيك  استاد  سليم  مزيدا  من العطاء

[سليم حاصبيا]

9 دقائق مضت, في بي ايه اكسيل said:

بارك  الله فيك  استاد  سليم  مزيدا  من العطاء

بشكل اكثر اختصاراً

Sub My_code()
  Dim i%
  i = 2
    Do Until Range("B" & i) = vbNullString
        With Range("B" & i)
         .Interior.ColorIndex = _
         IIf(.Value > .Offset(, 1), 3, xlNone)
        End With
     i = i + 1
    Loop
End Sub

 

[عبدالفتاح في بي اكسيل]

بارك  الله فيك  على مجهوداتك الطيبة