هل يمكن عمل شرط فى قائمة التحقق من الصحة

[ماجد2]

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

سؤالى هل يمن عمل شرط على القائمة المنسدلة

بمعنى عند عمل قائمة تحتوى على 10 اسماء فى الخلية B1 واذا كتبت اسم معين فى الخلية A1 هل يمكن ان تخفى خمسة اسماء وتظهر الخمسة الاخرى وايضا اذا كتب اسما اخر تخفى الخمسة الحاليين وتظهر الخمسة الأخرى

ارجو ان يكون سؤالى مفهوم وواضح

[علي السحيب]

شاهد المرفق،

____________________________.rar

[ماجد2]

رائع واكثر من رائع استاذنا على السحيب

دائما سريع الرد

بارك اللة فيك وزادك علماً

هل من الممكن شرح طريقة عملها

[علي السحيب]

طريقة الإنشاء تكون كالتالي:

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

آمل أن يكون الشرح واضحاً،

[خالد فتحي عبد الفتاح]

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

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

خالد فتحي عبد الفتاح