كيفية معرفة السعر المختلف من بين هاذة الاسعار مساعدة في دالة if

[yasserhassen71]

نرجو المساعدة يا شباب في دالة if 

كيف اعرف الصنف المختلف اسعاره بين الفروع

تجربة.rar

تم تعديل مايو 11, 2017 بواسطه yasserhassen71

[ياسر خليل أبو البراء]

السلام عليكم

جرب الكود التالي

Sub Test()
    Dim r As Long
    Dim c As Long
    Dim t As Variant
    Dim b As Boolean

    Application.ScreenUpdating = False
        For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            b = False
            For c = 2 To 14
                If Not IsEmpty(Cells(r, c)) Then t = Cells(r, c)
            Next c
            For c = 2 To 14
                If Cells(r, c) <> t And Not IsEmpty(Cells(r, c)) Then b = True
                If b And Not IsEmpty(Cells(r, c)) Then
                    Cells(r, 1).Interior.Color = vbCyan
                    Cells(r, c).Interior.Color = vbGreen
                End If
            Next c
        Next r
    Application.ScreenUpdating = True
End Sub

 

[خالد الرشيدى]

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

أستأذن   استاذي القدير / ابو البـراء  جزاه الله عنا كل خير 

 في عرض حل بطريقة معادلات التنسيق الشرطي ... كطريقة اخرى للحل 

=IF(SUM($B2:$N2)/COUNTIF($B2:$N2,"<>")=MAX($B2:$N2),0,1)

كل عام وحضراتكم بخير 

تجربة_2.rar

تم تعديل مايو 11, 2017 بواسطه خالد الرشيدى

[ياسر خليل أبو البراء]

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

بارك الله فيك أخي الحبيب خالد الرشيدي .. حل ممتاز ورائع وأفضل من استخدام الأكواد في هذه الحالة

جزاك الله خير الجزاء 

تقبل وافر تقديري واحترامي

[خالد الرشيدى]

 استاذي القدير / ابو البـراء   

جزاك خيراً استاذي الحبيب و كل عام وحضرتك بخير

خالص حبي وتقديري لشخصك المحترم

[yasserhassen71]

مشكورين يا شباب ما قصرتو 

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

4 ساعات مضت, ياسر خليل أبو البراء said:

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

بارك الله فيك أخي الحبيب خالد الرشيدي .. حل ممتاز ورائع وأفضل من استخدام الأكواد في هذه الحالة

جزاك الله خير الجزاء 

تقبل وافر تقديري واحترامي

هناك معادلة ابسط قليلاً لكنها لا تعطي نتائج جيدة: مثلاً الارقام D2=1    C2=5   B2=3   تعطينا True بينما في الحقيقة False

=AVERAGE($B2:$N2)=$B2

الافضل هذه المعادلة

=SUMPRODUCT(--(AVERAGE($B2:$N2)=$B2:$N2))=COUNT($B2:$N2)

 

[خالد الرشيدى]

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

طرح الاستاذ سليم لفت نظري الى انني باستخدام المعادلات  Sum  و  CountIf حسبت المتوسط ونسيت ان هناك المعادلة Average  ...

لهذا ابسط المعادلات هذه

=AVERAGE($B2:$N2)<>MAX($B2:$N2)

واستخدمت الدالة Max  وليس B2 او اى خليه اخرى بشكل مباشر لان كل الاعمده قابلة لان تخلو من القيم ومن ثم المعادلة تختل ..وايضاً لان متوسط مجموعة قيم مختلفة لن يتساوي باكبر قيمه بينهم 

واخيراً استخدام <>   وليس =

ولتبسيط المعادله من حيث الشكل والتركيب.. لغيت استخدامي لمعادله if

تقبلوا خالص تحياتي 

تم تعديل مايو 11, 2017 بواسطه خالد الرشيدى