تلوين الخليه الاقل قيمه

[badico]

الاخوه الكرام بالملف المرفق اود المقارنه بين اعمده القيمه لدى الموردين الاربعه وتلوين القيمه الاقل بالون الاحمر على ان انطبق ذلك على كامل ورقه العملمقارنه اسعار.rar

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

تفضل أخى

بالمرفقات

Dim a As Integer

Dim i As Integer

Dim myitems(0 To 3) As Long

a = 6

For i = 0 To UBound(myitems())

    With Sheets("k1")

        myitems(i) = .Cells(12, i + a)

    End With

    a = a + 1

        mylow = Application.WorksheetFunction.Min(myitems(0), myitems(1), _

        myitems(2), myitems(3))

Next i

       Sheets("k1").Range("f12:l12").Interior.ColorIndex = xlNone

For i = 6 To 12 Step 2

    If Sheets("k1").Cells(12, i) = mylow Then

        Sheets("k1").Cells(12, i).Interior.ColorIndex = 3

    End If

Next i

مقارنه اسعار kemas.zip

تم تعديل يناير 4, 2011 بواسطه kemas

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

و ايضا بعد اذن اخي الكريم كيماس

هذا حل آخر باستخدام التنسيق الشرطي

مقارنه اسعار.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، باستعمال التنسيقات الشرطية (دائما) إليك الحل التالي الذي فيه تلوين للقيمة الأصغر في كل سطر إذا كانت هذه القيم موجودة (ليست فارغة أو لا تساوي الصفر) وكانت قيم الأسعار لكل المؤسسات موجودة... ومعناه أنه لا يحدث تلوين لقيم السطر إذا كانت فارغة أو تساوي 0 أو كان أحد الأسعار غير مكتوب (فارغ أو يساوي 0)...

أخوك بن علية

مقارنه اسعار.rar

[عادل حنفي]

السلام عليكم

 اسمحولي في وسط هذه الكوكبة ان اشارككم

بالملف المرفق

تحياتي لجميع الحلول السابقة

تحياتي

مقارنه اسعار2.rar

[badico]

شكرا لكل من منحنا الوقت للرد على السوال ونسال الله ان يجزى الجميع خيرا