علي السحيب

أتمنى أن أكون قد توصلت إلى ما تريد، Private Sub Worksheet_Change(ByVal Target As Range) TC = Target.Column TR = Target.Row If TC > 1 And TC < 7 And TR < 5 Then If Target > Cells(TR, 1) Then Target.Interior.ColorIndex = xlNone Target.Font.ColorIndex = 10 ElseIf Target < Cells(TR, 1) Then Target.Interior.ColorIndex = 34 Target.Font.ColorIndex = 3 ElseIf Target > Cells(TR, TC - 1) Then Target.Interior.ColorIndex = 19 Target.Font.ColorIndex = 10 ElseIf Target < Cells(TR, TC - 1) Then Target.Interior.ColorIndex = xlNone Target.Font.ColorIndex = 3 End If End If End Sub شاهد المرفق، Conditional_Formatting.rar

هل تعتقد أن سؤالك واضح؟؟ حتى أنك لم تحدد نوع المقارنة التي تريد،

شكراً لك على هذه الهدية الأكثر من رائعة.

ومن قال أنه لا يوجد حل!! لكن لا تنسى أننا في عطلة نهاية الأسبوع شاهد المرفق، _________.rar

استخدم الدالة ISERROR أو الدالة ISNA .. مع الصيغة التي لديك.

شاهد المرفق، ___________________________.rar

شاهد المرفق، _____________________________________.rar

يكون ذلك عن طريق الدالة VLOOKUP. Book1.rar

تم التعديل .. شاهد المرفق، ____________________________________.rar

شاهد المرفق، _________________________________.rar

مالذي تريد أن يتم بالضبط !!؟؟

شكراً لك،

شاهد المرفق، ____________________________________.rar

الكود يعمل جيداً .. لكن أعتقد أن الخطأ هو في المعادلة نفسها.

موضوع ذات صلة: http://www.officena.net/ib/index.php?showtopic=13900

شاهد المرفق، _______________________________________________.rar

شاهد المرفق، Conditional_Formatting.rar

تم عمل التعديل المطلوب .. شاهد المرفق، ___________________________________________.rar

شاهد المرفق، ____________________________________.rar

طريقة الإنشاء تكون كالتالي: 1- إنشاء القوام المطلوبة ووضع عنوان لكل قائمة مكون من كلمة أو أكثر حسب الرغبة. (كما في العمودين B و C) من المرفق الموجود في مشاركتي السابقة. 2- اختيار بيانات القائمة الأولى (البيانات فقط دون العنوان) ثم الذهاب إلى القائمة إدراج ثم اسم ثم تعريف .. ويتم هناك وضع اسم تعريف للقائمة ويكون نفس العنوان الرئيسي للقائمة التي تم اختيارها .. مع ملاحظة إضافة شرطة سفلية كهذه _ بين الكلمات عندما يكون الاسم مكون من أكثر من كلمة .. ثم الضغط على موافق. 3- تطبيق نفس الخطوات بالنسبة لبقية القوائم. 4- اختيار أي خلية لوضع قائمة بأسماء القوائم الرئيسية داخلها ثم الذهاب إلى القائمة بيانات ثم التحقق من الصحة ثم قائمة ثم اختيار عناوين القوائم الرئيسية كمصدر بيانات للقائمة الجديدة. (كما في الخلية (E6) من المرفق الموجود في مشاركتي السابقة. 5- اختيار خلية أخرى ليتم إنشاء قائمة تضاف إليها البيانات حسب ما يتم اختياره من الخلية السابقة (E6) .. ثم الذهاب إلى القائمة بيانات ثم التحقق من الصحة ثم قائمة ثم كتابة الصيغة التالية بها .. مع مراعاة أن (E6) في الصيغة تمثل الخلية التي تحتوي على القائمة المشتملة عناوين القوائم الرئيسية: الصيغة التالية تستخدم إذا كانت أسماء القوام الرئيسية مكونه من كلمة واحدة فقط: =INDIRECT(E6) أما هذه الصيغة فتستخدم إذا كانت أسماء القوائم الرئيسية مكونه من أكثر من كلمة: =INDIRECT(SUBSTITUTE(E6," ","_")) وإذا رغبت يمكنك وضع الكود التالي في الموديول الخاص بالصفحة المعنية .. وهو يعمل على إضافة جملة معينة بعد إختيار قائمة جديدة: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" Then [G6] = "أختر المدينة من القائمة" End Sub آمل أن يكون الشرح واضحاً،

تم عمل التعديل المطلوب .. شاهد المرفق، ___________________________________.rar

تم عمل التعديل المطلوب .. شاهد المرفق، __________________________________2_.rar

الصيغة التالية تلبي طلبك: =SUMPRODUCT((Sheet4!$B$2:$B$264=Sheet2!$P$1)*(Sheet4!$D$2:$D$264=Sheet2!$E$1)*(Sheet4!$G$2:$G$264)) شاهد المرفق، ________combo_box.rar

شاهد المرفق، _______________________________________________.rar

شاهد المرفق، Transfer_and_Protect_and_Unhide.rar