عد التشابه

[عبد الهادي محمد]

السلام عليكم

لدي طلب بسيط اكرمكم الله

سأبسط الفكرة على ثلاث ملفات ليسهل شرحها و لكن الاكواد توضع في ملف واحد 

الملف الاول : نقوم بعد التشابه بين الارقام في السطر الواحد ( اي نقوم بكتابة كم مرة وجد فيها الرقم 1 و كم مرة وجدنا الرقم 2 ) 
                   و في حال وجدنا عدد اي منهما اكبر من الاخر بنسبة الثلث ( *3) عندها نلون الخط في الخلية باللون الاحمر

الملف الثاني : في كل سطرين متتاليين نبحث عن الازواج التالية <1.1> <1.2> <2.1> <2.2>
                     وفي حال العثور على الازواج الاربعة في سطرين متتاليين نلون الخلية باللون الاسود و لون الخط فيها بالاحمر

الملف الثالث :  عند البداية < السطر الثاني حسب المثال >  و بعد كل خلية سوداء نضع الرقمين 1 و 2 متجاورين

الملف الرابع : في حال كانت الخلية تحوي على احد الارقام 1 او 2 و لون المربع ليس اسود :

                                                                 1 -   في الخلية { H2 } نبحث عن الزوجين <2.1> رقم 2 في السطر الاول و رقم 1 في السطر الثاني
                                                                                                                              <2.2> رقم 2 في السطر الاول و رقم 2 ايضا في السطر الثاني
                                                                        في حال وجدنا الزوج <2.1> عندها السطر التالي {H3}  يكون الرقم هو 1
                                                                        في حال وجدنا الزوج <2.2> عندها السطر التالي {H3}  يكون الرقم هو 2
                                                                        في حال وجدنا الزوجين معا 1 - نلون الخلية H2 ياللون الاسود و لون الخط فيها احمر
                                                                                                               2 - نضع في الخلية H3 رقم 1 و نضيف عمود جديد و نضع رقم 2 في الخلية المجاورة لها J3 
                                               * في حال لم نجد ايا منهما ( الزوجين السابقين ) : نلون الخلية {H3} باللون الاصفر , نكتب رقم 1 ثم نضيف عمود جديد و نكتب رقم 2 مجاورا لها

                                                                B - عندلرقم 2 نبحث عن الزوجين <1.2> رقم 1 في السطر الاول و رقم 2 في السطر الثاني 
                                                                                                                <1.1> رقم 1 في السطر الاول و رقم 1 ايضا في السطر الثاني
                                                                        في حال وجدنا الزوج <1.2> عندها السطر التالي {H3}  يكون الرقم هو 2
                                                                        في حال وجدنا الزوج <1.1> عندها السطر التالي {H3}  يكون الرقم هو 1
                                                                        وايضا مثل الشرط السابق :

                                                                        في حال وجدنا الزوجين معا 1 - نلون الخلية H2 ياللون الاسود و لون الخط فيها احمر
                                                                                                               2 - نضع في الخلية H3 رقم 1 و نضيف عمود جديد و نضع رقم 2 في الخلية المجاورة لها J3 
                                               * في حال لم نجد ايا منهما ( الزوجين السابقين ) : نلون الخلية {H3} باللون الاصفر , نكتب رقم 1 ثم نضيف عمود جديد و نكتب رقم 2 مجاورا لها

                                                            

Count.rar

تم تعديل مارس 31, 2017 بواسطه عبد الهادي محمد
خطأ مرفقي

[عبد الهادي محمد]

السلام عليكم 

اخواني الكرام ارجو ان تكون الفكرة واضحة

و ان احببتم بدئنا بهم بالترتيب 

[عبد الهادي محمد]

                                            

[شوقي ربيع]

السلام عليكم

هذا حل للملف الاول

Sub TestCount()
    Dim i As Byte, ii As Byte, iii As Byte
    For i = 2 To 7
        ii = Application.CountIf(Range("a" & i & ":e" & i), 2)
        iii = Application.CountIf(Range("a" & i & ":e" & i), 1)
        If ii <> 0 And iii <> 0 Then Range("g" & i) = ii & "/ /" & iii
        If ii > ii * iii Or iii > ii * iii Then Range("g" & i).Font.Color = vbRed
    Next
End Sub

اما باقي الملفات ليست مفهومة

الرجاء التوضيح اكثر

[عبد الهادي محمد]

في 05.04.2017 at 19:53, شوقي ربيع said:

السلام عليكم

هذا حل للملف الاول

Sub TestCount()
    Dim i As Byte, ii As Byte, iii As Byte
    For i = 2 To 7
        ii = Application.CountIf(Range("a" & i & ":e" & i), 2)
        iii = Application.CountIf(Range("a" & i & ":e" & i), 1)
        If ii <> 0 And iii <> 0 Then Range("g" & i) = ii & "/ /" & iii
        If ii > ii * iii Or iii > ii * iii Then Range("g" & i).Font.Color = vbRed
    Next
End Sub

اما باقي الملفات ليست مفهومة

الرجاء التوضيح اكثر

شكرا لك اخي الكريم .. سنبدأ خطوة بخطوة ان شاء الله 
بالنسبة للكود المرفق فهو لا يعمل في حال وجد رقم 5
و ارجو اضافة شرط تلوين الخلية في حال كان احد الرفمين اكبر من الاخر بنسبة الثلث 
A >= B*3 او B >= A*3