اذهب الي المحتوي
أوفيسنا

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

قام بنشر

بسم الله الرحمن الرحيم

الاخوة الاعزاء

اعمل حاليا على مشروع في برنامج الاكسل

المشروع مشابه لما يعرف بمخطط كانت GANTT CHART

البرنامج يتضمن فقرات العمل وتواريخ بدء وانتهاء كل فقرة حسب المخطط

سؤالي هو كيف يمكنني ان اجعل الاكل يلون الحقول من بدء الفقرة الى نهايتها بمجرد ادخال قيم في تواريخ البدء والانتهاء

وادناه صورة لما اريد

شاكرا تعاونكم معي وفقكم الله

YWo47640.jpg

واذا لم تظهر الصورة

ارفقها في ادناه

post-26349-1274947955112_thumb.jpg

قام بنشر

بسم الله الرحمن الرحيم

الأخ العزيز

بالنسبة لطلبك؛ فأنت بحاجة لإستخدام خاصية التنسيق الشرطى وهو ما استخدمه الأستاذ / يحيى فى ملفه المرفق فى المشاركة السابقة

الأن انت ترغب فى معرفة كيفية تطبيق الحل بنفسك حتى تكون مُلم بالموضوع

إليك خطوات الحل والتى أتمنى أن تكون سهلة وواضحة

1 -

حدد النطاق الذى سيتم تطبيق التنسيق عليه وفى حالتنا سيكون النطاق الذى يوضح مدى تنفيذ الأعمال المختلفة

2 -

نذهب الى الأمر التنسيق الشرطى من خلال الإختصار Alt+OD إضغط على New Rule

3 -

سيظهر لنا المربع التالى إختر أخر إختيار فى الجزء العلوى ثم إكتب المعادلة التالية فى الجزء المكتوب به "اكتب المعادلة هنا"

conditional-formatting-03.png

4 - المعادلة المستخدمة

=AND($A4<=C$3;$B4>=C$3)
5 - تفسير المعادلة المستخدمة ا . الدالة AND إحدى الدوال المصنفة ضمن الدوال المنطقية Logic و وظيفتها إظهار القيمة True إذا كانت كل الشروط التى تم إدخالها فى الدالة صحيحة، وإظهار القيمة False فى حالة أن أحد الشروط المدخلة للدالة خاطئة ب . الشرط الأول فى الدالة AND
$A4<=C$3
الخلية A4 هى الخلية التى تشتمل على تاريخ بداية تنفيذ المهمة فى العمود الرأسى الخلية C3 هى الخلية التى تشتمل على أول تاريخ فى الصف الأفقى والتى سنقوم بمقارنة تاريخ الخلية A4 بها الأن نريد أن نقوم بالمقارنة التالية هل تاريخ a4 يساوى تاريخ الخلية c3 أو أقل منها » إذا كانت نتيجة المقارنة صحيحة نحصل على القيمة True أما إذا كانت العكس نحصل على القيمة False ج . الشرط الثانى فى الدالة AND
$B4>=C$3

كما فى الشرط الأول بإستثناء أن

الخلية b4 تشمل على تاريخ إنتهاء المهمة

و عملية المقارنة ستكون بهدف تحديد على تاريخ الخلية b4 أكبر من تاريخ الخلية c3

فى حالة أن نتيجة الشطين صحيحة نحصل على القيمة true اى سيتم تطبيق التنسيق الشرطى الذى نحدده

وفى حالة عدم تحقق احد الشرطين نحصل على القيمة false ولايتم تطبيق التنسيق الشرطى

أتمنى ان يكون الشرح واضح

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

بالتوفيق بإذن الله

قام بنشر

اخي العزيز المعتصم

طبقت شرحك الجميل ونجحت والحمد لله

اشكرك ..... ولي سؤال اخر ارجوا ان تتحملني

عند تطبيق الشرح فان جميل الحقول المشمولة بالشرط تتلون بنفس اللون ( اي نفس التنسيق اللوني )

هل بالامكان ان اجعل كل صف ياخذ لون معين لغرض التمييز

شاكرا فضلك مقدما

قام بنشر

بسم الله الرحمن الرحيم

حاول إستخدام الطريقة التالية والتى ستمكنك من إستخدام لونين

حدد كامل النطاق المستهدف

بعد الضغط على alt + od

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

الأن سنقوم بإضافة شرط جديد بمعادلة جديدة

المعادلة كالتالى

=AND($A4<=C$3;$B4>=C$3;ISODD(ROW($A4)))
تم إضافة شرط ثالث للدالة AND وهو
ISODD(ROW($A4))

وظيفة هذا الشرط هو فحص رقم الصف وتحديد هل هو رقم فردى أم رقم زوجى فى حالة أن رقم الصف فردى سيتم تطبيق الشرط الجديد

لاحظ أننا إستخدمنا الدالة ISODD لأن أول صف لدينا فى النطاق المستهدف ذو رقم زوجى فأردنا إستهداف الصفوف الفردية بشرط جديد ولون جديد وعليه إذا كان بداية النطاق المستهدف ذو رقم فردى فإننا نستخدم الدالة ISEVEN

لاحظ أيضاً أن الشرط الجديد فى التنسيق الشرطى لابد أن يكون أعلى الشرط القديم حتى يتم تطبيق الشرطين معاً وإلا -فى حالة أن الشرط القديم هو الأعلى والشرط الجديد هو الأدنى فى قائمة شروط التنسيق- سيتم تطبيق الشرط القديم فقط

بالتوفيق بإذن الله، وأتمنى أن يكون هذا الشرط واضح

قام بنشر

السلام عليكم

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

طبعا الطريقة التي شرحتها جميلة جدا وسينتج عنها صفوف ملونة بلونين متعاقبين

لغرض النقاش والتعلم والاستفادة واكتشاف مواهب وقابليات اعضاء المنتدى فانا اكرر سؤالي وهو

هل بالامكان ان نجعل كل صف بلون معين يختلف عن غيره من الصفوف بدون ان يتكرر اللون

اي لو كان لدينا اربعة صفوف مثلا ان ينتج اربعة الوان مختلفة وليس لونين متعاقبين

للمناقشة وطرح الاراء

قام بنشر

بسم الله الرحمن الرحيم

الأخ العزيز

بالنسبة لطلبك وهو لون مختلف لكل صف

فيمكن القيام بذلك بواسطة إستخدام التنسيق الشرطى من خلال الأكواد VBA وليس مربع الحوار التنسيق الشرطى

وعندها سيتاح لك إستخدام 56 لون

للأسف خبرتى فى الأكواد ليست بالكافية

نصيحة : لا تكثر من الألوان فى شيت الإكسل حتى تحافظ على مظهر الشيت

بالتوفيق بإذن الله

قام بنشر (معدل)

السلام عليكم

تفضل المرفق

وهذا هو الكود

Sub manycolors()

Set x = Range("c4:bf17")

For Each cc In x

	rcc = cc.Row

	ccc = cc.Column

	y = Cells(3, ccc).Value

 	If Cells(rcc, 1).Value <= y And Cells(rcc, 2).Value >= y Then GoSub 30



Next

Exit Sub

30

Cells(rcc, ccc).Interior.ColorIndex = rcc - 1


Return


End Sub

02.rar

تم تعديل بواسطه TareQ M
قام بنشر (معدل)

السلام عليكم

أخي العزيز

عندك حق

هذا العيب للمشاركات الحديثة قبل تغيير السيرفر

بعد التشاور مع أخونا م/ محمد طاهر - مدير الموقع

سيتم علاج هذا العيب في خلال 3 أيام

عموما: علاج سريع لهذه الحالة

تم تعديل المشاركة السابقة

حذفت المرفقات القديمة

وأبدلتها بالجديد

يمكنك التحميل الآن من نفس المشاركة السابقة

تم تعديل بواسطه TareQ M

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