تنسيق شرطي بالكود لعدة نطاقات اصغر او اكبر من

[سمير نجار]

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

السادة الكرام

 

لدي عدة نطاقات وهي  a1:a10 ; c1:c10 ;e1:e10  ومطلوب تنسيق شرطي بالكود بحيث الخلية تتلون اذا قيمتها اكبر من 5

وبعد البحث في المنتدى عن ضالتي لمدة يومين وجدت كوداً  وقمت بالتعديل المطلوب

عند ادخال الارقام مباشرة يعمل الكود بشكل جيد

ولكن عندما تكون قيمة الخلية نتيجة معادلة كما في الخلايا (e1:e10)  لا يعمل الكود الا اذا حدّثت الخلية بالنقر عليها . هذا اولاً

 

ثانياً : لماذا الخلية الفارغة والتي فيها معادلة تبقى ملونة ؟

 

أفيدوني وفقكم الله

تنسيق شرطي تلقائي.rar

[محي الدين ابو البشر]

السلام عليكم

أخي العزيز بالمرفق حل لاحى المشكلتين

تقبل تحياتي

تنسيق شرطي تلقائي.rar

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

لا حاجة للكود في مثل هذه الحالة

تفضل الحل

 

 

 

تنسيق شرطي تلقائي salim.rar

تم تعديل أبريل 19, 2016 بواسطه سليم حاصبيا

[محي الدين ابو البشر]

السلام عليكم

استاذ سليم

ابداع ما بعده ابداع

بارك الله 

[سمير نجار]

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

اخي الكريم محي الدين

بارك الله فيك . المشكلة ما زالت قائمة . حاول تغير بالقيم في العمود F   لاحظ  ان التنسيق لا يعمل في العمود E

اخي الكريم سليم

بارك الله فيك . عمل جميل . لكن الفكرة اريد تطبيقها على عدة ورقات مع عدة نطاقات فأظن أن الكود يكون افضل

بانتظار التعديل جزاكم الله خيراً

 

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

49 دقائق مضت, سمير نجار said:

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

اخي الكريم محي الدين

بارك الله فيك . المشكلة ما زالت قائمة . حاول تغير بالقيم في العمود F   لاحظ  ان التنسيق لا يعمل في العمود E

اخي الكريم سليم

بارك الله فيك . عمل جميل . لكن الفكرة اريد تطبيقها على عدة ورقات مع عدة نطاقات فأظن أن الكود يكون افضل

بانتظار التعديل جزاكم الله خيراً

 

هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه)

يلزم معرفه هذا لكتابة الكود

[سمير نجار]

اخي الكريم سليم  جزاك الله خيراً

في الملف المرفق الاول يوجد 3 ورقات

لنفترض أن النطاقات ذاتها في الورقات الثلاث

ايضاً لنفترض ان النطاقات مختلفة في الورقات الثلاث

اذا كان لكل حالة كود خاص فالرجاء وضع كود لكل حالة

ولك كل الشكر

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

6 ساعات مضت, سمير نجار said:

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

اخي الكريم محي الدين

بارك الله فيك . المشكلة ما زالت قائمة . حاول تغير بالقيم في العمود F   لاحظ  ان التنسيق لا يعمل في العمود E

اخي الكريم سليم

بارك الله فيك . عمل جميل . لكن الفكرة اريد تطبيقها على عدة ورقات مع عدة نطاقات فأظن أن الكود يكون افضل

بانتظار التعديل جزاكم الله خيراً

 

هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه)

يلزم معرفه هذا لكتابة الكود

6 ساعات مضت, سمير نجار said:

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

اخي الكريم محي الدين

بارك الله فيك . المشكلة ما زالت قائمة . حاول تغير بالقيم في العمود F   لاحظ  ان التنسيق لا يعمل في العمود E

اخي الكريم سليم

بارك الله فيك . عمل جميل . لكن الفكرة اريد تطبيقها على عدة ورقات مع عدة نطاقات فأظن أن الكود يكون افضل

بانتظار التعديل جزاكم الله خيراً

 

هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه)

يلزم معرفه هذا لكتابة الكود

يمكنك استعمال هذين الكودين المرفقين بالملف

الاول لنطاق محدد في كل الصفحات

والثاتي لنطاقات مختلفة في كل صفحة

cond_format salim.rar

[سمير نجار]

جزاك الله كل خير اخي سليم

اما الكود الاول لنطاق محدد في كل الصفحات : فقد قمت بتطبيقه على ملفي الخاص وقد عمل بشكل جيد (ولكن اذا طبقت هذا الكود في ملف جديد و النطاقات خالية من القيم فان النطاق كله يتلون . وهذه المشكلة لم تُحل) على كل حال مادام الكود قد عمل على ملفي فلا بأس وبارك الله فيك (لاني بصراحة بقيت لعدة ساعات اعمل واجرب مما اصابني ألم في رأسي  ) 

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

بارك الله فيك

بانتظار الرد

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

تم معالجة الامر

 

cond_format salim 2.rar

[سمير نجار]

سلمت يداك اخي سليم

الكود الثاني لنطاقات مختلفة : لا يعمل تلقائياً  مثل الكود الاول . هل يمكن أن يعمل تلقائياً؟

(إذاً النطاقات المختلفة هي نطاقات معرفة  my_rg1+my_rg2+my_rg)

بانتظار الرد

 

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

لك ما ريد

 

cond_format salim 3.rar

تم تعديل أبريل 20, 2016 بواسطه سليم حاصبيا

[سمير نجار]

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

اذاً الخلطة السرية هي :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
special_format3
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

بارك الله فيك وجزاك الله كل خير