ابوياسرالمهندس قام بنشر مايو 27, 2010 مشاركة قام بنشر مايو 27, 2010 بسم الله الرحمن الرحيم الاخوة الاعزاء اعمل حاليا على مشروع في برنامج الاكسل المشروع مشابه لما يعرف بمخطط كانت GANTT CHART البرنامج يتضمن فقرات العمل وتواريخ بدء وانتهاء كل فقرة حسب المخطط سؤالي هو كيف يمكنني ان اجعل الاكل يلون الحقول من بدء الفقرة الى نهايتها بمجرد ادخال قيم في تواريخ البدء والانتهاء وادناه صورة لما اريد شاكرا تعاونكم معي وفقكم الله واذا لم تظهر الصورة ارفقها في ادناه رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 27, 2010 مشاركة قام بنشر مايو 27, 2010 السلام عليكم و رحمة الله أخي انت بحاجة لإستخدام التنسيق الشرطي شاهد المرفق يحيى حسين - تنسيق شرطي.rar رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 السلام عليكم اخي العزيز يحيى اشكرك على تواصلك حملت الملف لكني لم اعرف الطريقة التي اتبعتها لقلة خبرتي في الاكسل ارجوا ان تشرح ذلك في خطوات مكتوبة اكون شاكرا لك فضلك رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 بسم الله الرحمن الرحيم الأخ العزيز بالنسبة لطلبك؛ فأنت بحاجة لإستخدام خاصية التنسيق الشرطى وهو ما استخدمه الأستاذ / يحيى فى ملفه المرفق فى المشاركة السابقة الأن انت ترغب فى معرفة كيفية تطبيق الحل بنفسك حتى تكون مُلم بالموضوع إليك خطوات الحل والتى أتمنى أن تكون سهلة وواضحة 1 - حدد النطاق الذى سيتم تطبيق التنسيق عليه وفى حالتنا سيكون النطاق الذى يوضح مدى تنفيذ الأعمال المختلفة 2 - نذهب الى الأمر التنسيق الشرطى من خلال الإختصار Alt+OD إضغط على New Rule 3 - سيظهر لنا المربع التالى إختر أخر إختيار فى الجزء العلوى ثم إكتب المعادلة التالية فى الجزء المكتوب به "اكتب المعادلة هنا" 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 بها قد تفيدك شرح الدوال And و Or فى الإكسل تنسيق الخلايا وفقاً لمحتوياتها | التنسيق الشرطى تحديد البيانات المكررة بواسطة التنسيق الشرطى حين يتم المزج بين الدالة If والدوال Count و And و Or بالتوفيق بإذن الله رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 اخي العزيز المعتصم طبقت شرحك الجميل ونجحت والحمد لله اشكرك ..... ولي سؤال اخر ارجوا ان تتحملني عند تطبيق الشرح فان جميل الحقول المشمولة بالشرط تتلون بنفس اللون ( اي نفس التنسيق اللوني ) هل بالامكان ان اجعل كل صف ياخذ لون معين لغرض التمييز شاكرا فضلك مقدما رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 عفوا طبعا اقصد من دون ان اظطر الى اعادة تطبيق الشرط كل مرة رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 بسم الله الرحمن الرحيم حاول إستخدام الطريقة التالية والتى ستمكنك من إستخدام لونين حدد كامل النطاق المستهدف بعد الضغط على alt + od ستجد لديك الشرط الأول والذى تحدثنا عنه فى مشاركة سابقة الأن سنقوم بإضافة شرط جديد بمعادلة جديدة المعادلة كالتالى =AND($A4<=C$3;$B4>=C$3;ISODD(ROW($A4))) تم إضافة شرط ثالث للدالة AND وهو ISODD(ROW($A4)) وظيفة هذا الشرط هو فحص رقم الصف وتحديد هل هو رقم فردى أم رقم زوجى فى حالة أن رقم الصف فردى سيتم تطبيق الشرط الجديد لاحظ أننا إستخدمنا الدالة ISODD لأن أول صف لدينا فى النطاق المستهدف ذو رقم زوجى فأردنا إستهداف الصفوف الفردية بشرط جديد ولون جديد وعليه إذا كان بداية النطاق المستهدف ذو رقم فردى فإننا نستخدم الدالة ISEVEN لاحظ أيضاً أن الشرط الجديد فى التنسيق الشرطى لابد أن يكون أعلى الشرط القديم حتى يتم تطبيق الشرطين معاً وإلا -فى حالة أن الشرط القديم هو الأعلى والشرط الجديد هو الأدنى فى قائمة شروط التنسيق- سيتم تطبيق الشرط القديم فقط بالتوفيق بإذن الله، وأتمنى أن يكون هذا الشرط واضح رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 هذا الملف وبه التعديل 01.rar رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر مايو 31, 2010 الكاتب مشاركة قام بنشر مايو 31, 2010 السلام عليكم بارك الله فيك اخي المعتصم وكل الاخوة المشاركين طبعا الطريقة التي شرحتها جميلة جدا وسينتج عنها صفوف ملونة بلونين متعاقبين لغرض النقاش والتعلم والاستفادة واكتشاف مواهب وقابليات اعضاء المنتدى فانا اكرر سؤالي وهو هل بالامكان ان نجعل كل صف بلون معين يختلف عن غيره من الصفوف بدون ان يتكرر اللون اي لو كان لدينا اربعة صفوف مثلا ان ينتج اربعة الوان مختلفة وليس لونين متعاقبين للمناقشة وطرح الاراء رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر مايو 31, 2010 مشاركة قام بنشر مايو 31, 2010 بسم الله الرحمن الرحيم الأخ العزيز بالنسبة لطلبك وهو لون مختلف لكل صف فيمكن القيام بذلك بواسطة إستخدام التنسيق الشرطى من خلال الأكواد VBA وليس مربع الحوار التنسيق الشرطى وعندها سيتاح لك إستخدام 56 لون للأسف خبرتى فى الأكواد ليست بالكافية نصيحة : لا تكثر من الألوان فى شيت الإكسل حتى تحافظ على مظهر الشيت بالتوفيق بإذن الله رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر يونيو 2, 2010 الكاتب مشاركة قام بنشر يونيو 2, 2010 السلام عليكم اشكرك اخي المعتصم وننتظر احد الاخوة الخبراء في التنسيق الشرطى من خلال الأكواد VBA شكرا لكم رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 2, 2010 مشاركة قام بنشر يونيو 2, 2010 (معدل) السلام عليكم تفضل المرفق وهذا هو الكود 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 تم تعديل يونيو 7, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
ابوياسرالمهندس قام بنشر يونيو 7, 2010 الكاتب مشاركة قام بنشر يونيو 7, 2010 السلام عليكم شكرا جزيلا اخي العزيز لكني لم استطع تحميل المرفق يبدو ان مشكلة المرفقات لازالت قائمة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 7, 2010 مشاركة قام بنشر يونيو 7, 2010 (معدل) السلام عليكم أخي العزيز عندك حق هذا العيب للمشاركات الحديثة قبل تغيير السيرفر بعد التشاور مع أخونا م/ محمد طاهر - مدير الموقع سيتم علاج هذا العيب في خلال 3 أيام عموما: علاج سريع لهذه الحالة تم تعديل المشاركة السابقة حذفت المرفقات القديمة وأبدلتها بالجديد يمكنك التحميل الآن من نفس المشاركة السابقة تم تعديل يونيو 7, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.