عبدالفتاح في بي اكسيل قام بنشر فبراير 20, 2020 مشاركة قام بنشر فبراير 20, 2020 السلام عليكم احتاج من خبراء الاكواد بان يقومي لي بحل هذه المشكلة الشرط الذي وضعته هو اذا كانت قيم العمود 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 20, 2020 مشاركة قام بنشر فبراير 20, 2020 جرب هذا الكود البسيط 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 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 20, 2020 الكاتب مشاركة قام بنشر فبراير 20, 2020 بارك الله فيك استاد سليم مزيدا من العطاء 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 20, 2020 أفضل إجابة مشاركة قام بنشر فبراير 20, 2020 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 1 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 20, 2020 الكاتب مشاركة قام بنشر فبراير 20, 2020 بارك الله فيك على مجهوداتك الطيبة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان