اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم  احتاج  من خبراء  الاكواد  بان يقومي  لي بحل  هذه  المشكلة   الشرط  الذي  وضعته  هو  اذا كانت قيم العمود  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

 

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة
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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information