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

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

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

اخوانى الاعزاء

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

ودون استخدام بيانات من اعمدة اخرى

وشكرا لكم اهتمامكم

book.rar

تم تعديل بواسطه hsa100
قام بنشر

الاخ الفاضل هشام

اولا اود ان اشكرك على استجابتك السريعة

عمل رائع فعلا

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

ودون اللجوء لمعادلات وسيطة فى العمود C

وشكرا لك

قام بنشر

الاخ العزيز - ابو عبد الله

اشكر لك اهتمامك

توجد رسالة خطا run time error 438

فى السطر

ActiveSheet.Range("B5:B500").RemoveDuplicates Columns:=1, Header:=xlNo

اصدار ال office عندى execl 2002

فتحت الملف بـ office 2007

تلاحظ ان التكرار موجود بالقائمة المنسدلة

قام بنشر

أخي العزيز

الملف والفكرة تعمل بشكل جيد على إكسيل 2007 وفيها عند الوقوف بأي خلية بالنطاق (D4:D50) وهو نطاق التحقق من صحة بقائمة منسدلة يتم حذف كل الأسماء المكررة من القائمة مصدر بيانات التحقق من صحة وعند الوقوف بأي خلية أخرى يتم إعادة بيانات مصدر التأكد من صحة إلى وضعها الأصلي ، ربما لايعمل الكود كما ذكرت على إكسيل 2003 لأن أمر RemoveDuplicates هو أمر جديد ضمن أوامر إكسيل 2007 وأرجو تأكيد ما ذكرت من الأخوة الذين حملوا الملف وفتحوه من نسخة إكسيل 2007 .

تحياتي

أبو عبدالله

قام بنشر

الاخ الفاضل ابو عبد الله

فعلا .. لم اكن قد فعلت امان الماكرو فى 2007 لذا لم يعمل الماكرو

الان الملف يعمل بشكل جيد

اشكرك كثيرا على اهتمامك

قام بنشر

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

أعرف أن إخواني لم يبخلوا بما عندهم من فوائد... وأقدم أيضا عملا بواسطة كود يقوم بنسخ كل القائمة (الموجودة في العمود A) في العمود B ثم يرتبها ترتيبا تصاعديا وبعدها يقوم بحذف كل الأسماء المكررة في هذا العمود ثم يعاود الترتيب التصاعدي للأسماء التي بقيت وباستعمال الخاصية "التحقق من الصحة" واستعمال الدالة OFFSET فيها نقوم بتشكيل القائمة المنسدلة من العمود B انطلاقا من السطر 5... وإليكم المثال في الملف المرفق (وهو يعمل على 2007 و على 2003)...

أخوكم بن علية

قائمة منسدلة دون تكرار.rar

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

فكرة جيدة اخى العزيز

وتبقى اجمل لو ممكن تنفيذها من غير كود بامر واحد فى التحقق من الصحة

هل ممكن تنفيذها ؟

ولى استفسار اخر

هل ممكن زيادة عدد المفردات فى القائمة عن 8

وهل يمكن زيادة حجم الفونت

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

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

محاولة الإجابة على استفساراتك :

وتبقى اجمل لو ممكن تنفيذها من غير كود بامر واحد فى التحقق من الصحة

هل ممكن تنفيذها ؟....لا يمكن تنفيذها بأمر واحد في التحقق من الصحة (لسبب أن التحقق من الصحة لا يمكن أن نكتب فيه إلا أمرا واحدا بينما الكود هو سلسلة من الأوامر)

ولى استفسار اخر

هل ممكن زيادة عدد المفردات فى القائمة عن 8 ... بالتأكيد نعم... ما عليك إلا إضافة الأسماء في العمود A وسيتم إضافتها بواسطة الكود تلقائيا إلى القائمة المنسدلة

وهل يمكن زيادة حجم الفونت ... إذا كنت تقصد "حجم الخط" فكل التنسيقات متاحة (الخط ، حجم الخط ، اللون ...)

والله أعلم

أخوك بن علية

تم تعديل بواسطه hben
قام بنشر

اخى العزيز بن علية

اقصد بعرض اكثر من 8 مفردات

ان يزيد طول القائمة المنسدلة ليظهر بها اكثر من 8 مفردات فى كل مرة

واقصد بزيادة حجم الخط الخاص بالمحتويات داخل القائمة المنسدلة وليس خلايا الاكسل بصفة عامة

وشكرا لك اهتمامك

قام بنشر

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

اخى العزيز بن علية

اقصد بعرض اكثر من 8 مفردات

ان يزيد طول القائمة المنسدلة ليظهر بها اكثر من 8 مفردات فى كل مرة

واقصد بزيادة حجم الخط الخاص بالمحتويات داخل القائمة المنسدلة وليس خلايا الاكسل بصفة عامة

وشكرا لك اهتمامك

معذرة أخي الكريم لم أفهم ما قصدته في استفسارك... طول القائمة المنسدلة ومضمونها (مفردات القائمة) التي تم إنشاؤها بواسطة خاصية "التحقق من الصحة" لا يمكن تغييرهما والتحكم فيهما... بالنسبة للطول يمكن التحكم فيه إذا تم إنشاء القائمة بوساطة أحد عناصر VBA مثل COMBOBOX أو LISTBOX أو غيرهما

والله أعلم

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