تعديل على الملف تلوين و merge

[Tarekfathallah]

الرجاء المساعدة في الجدول المرفق بحاجة الى فب العمود A  عند التكرار في الرقم تلوين المكرر في الاعمدة A B C   وفي العمود  D  يعمل MERGE  للسطرين الملونيين من نفس الرقم 

وشكرا مرفق ربطا الملف 

البحث عن التكرار في Irsalieh.xlsx

[طارق محمود]

السلام عليكم

أخي الكريم

طلبك الأول تم بالتنسيق الشرطي Conditional Format

والطلب الثاني تم بالكود الذي بالملف
 

تفضل

البحث عن التكرار في Irsalieh.xlsm

[Tarekfathallah]

السلام عليكم رائع واكثر من رائع ولكن لم استطع معرفة كيف تمت العملية 

التنسيق الشرطي

والكود 

لو سمحت ممكن الشرح اكثر 

هذا ما كنت اريده ولكنني اريد ايضا ان اتعلم وليس حل للمشكلة فقط وربما يستفيد شخص آخر 

[طارق محمود]

وعليكم السلام ورحمة الله
1-التنسيق الشرطي
أولا تعلم المساحة المعنية كما بالصورة A2:C4992

ثانيا تذهب لقائمة التنسيق الشرطي كما بالصورة

ثم تضع التنسيق أن يتم تلوين الخلايا الثلاثة A,B,C في الصف الذي ينطبق عليه الشرط

================
الشرط هو: أن تتساوي خلية A مع مايعلوها مباشرة أو مادونها مباشرة عن طريق إختيار قاعدة تنسيق مشروط جديدة كما بالصورة

والقاعدة كما يلي

=OR($A2=$A3,$A2=$A1)

 

[طارق محمود]

ثانيا الكود

كما تلاحظ فهو كود خاص وفي حدث التغيير
أي أنه سيتم تفعيله مباشرة إذا تحقق الشرط
 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [A1:A9999]) Is Nothing Then Exit Sub
r = Target.Row
Range(Cells(r - 1, 4), Cells(r + 1, 4)).UnMerge

If Cells(r, 1).Value = Cells(r - 1, 1).Value Then Range(Cells(r, 4), Cells(r - 1, 4)).Merge
If Cells(r, 1).Value = Cells(r + 1, 1).Value Then Range(Cells(r, 4), Cells(r + 1, 4)).Merge

End Sub

في الصورة المرفقة شرح سريع له


 

[abouelhassan]

ربنا يبارك لك استاذ طارق 

[Tarekfathallah]

شكرا لك ورفع ميزان حسناتك