اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

 

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

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

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

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

 

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

 

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

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

قام بنشر

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

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

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

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

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

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

 

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

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

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

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

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

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

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

 

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

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

قام بنشر

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

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

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

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

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

ولك كل الشكر

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

cond_format salim.rar

قام بنشر

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

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

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

بارك الله فيك

بانتظار الرد

قام بنشر

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

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

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

بانتظار الرد

 

قام بنشر

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

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

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

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

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information