badico قام بنشر يناير 4, 2011 مشاركة قام بنشر يناير 4, 2011 الاخوه الكرام بالملف المرفق اود المقارنه بين اعمده القيمه لدى الموردين الاربعه وتلوين القيمه الاقل بالون الاحمر على ان انطبق ذلك على كامل ورقه العملمقارنه اسعار.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يناير 4, 2011 مشاركة قام بنشر يناير 4, 2011 (معدل) تفضل أخى بالمرفقات 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 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 4, 2011 مشاركة قام بنشر يناير 4, 2011 السلام عليكم و رحمة الله وبركاته و ايضا بعد اذن اخي الكريم كيماس هذا حل آخر باستخدام التنسيق الشرطي مقارنه اسعار.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2011 مشاركة قام بنشر يناير 5, 2011 السلام عليكم ورحمة الله أخي الكريم، باستعمال التنسيقات الشرطية (دائما) إليك الحل التالي الذي فيه تلوين للقيمة الأصغر في كل سطر إذا كانت هذه القيم موجودة (ليست فارغة أو لا تساوي الصفر) وكانت قيم الأسعار لكل المؤسسات موجودة... ومعناه أنه لا يحدث تلوين لقيم السطر إذا كانت فارغة أو تساوي 0 أو كان أحد الأسعار غير مكتوب (فارغ أو يساوي 0)... أخوك بن علية مقارنه اسعار.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 5, 2011 مشاركة قام بنشر يناير 5, 2011 السلام عليكم اسمحولي في وسط هذه الكوكبة ان اشارككم بالملف المرفق تحياتي لجميع الحلول السابقة تحياتي مقارنه اسعار2.rar رابط هذا التعليق شارك More sharing options...
badico قام بنشر يناير 5, 2011 الكاتب مشاركة قام بنشر يناير 5, 2011 شكرا لكل من منحنا الوقت للرد على السوال ونسال الله ان يجزى الجميع خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.