أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة

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



20-02-2020 12:23 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم ...مشكور جهود أستاذ ياسر المبدع في هذا المنتدى العظيم .
قمت بالتعديل على معادلة التي نشرها سابقا ليشمل البحث في كل كلمة داخل الخلايا والمعادلة موضحة في الملف المرفق هل يمكن ادخال تعديل لمنع تكرار الاسماء في نتائج القائمة المنسدلة.. مع جزيل الشكر 
 
 
  قائمة منسدلة قابلة للبحث في أي مكان في الكلمة.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(16.327) KB


20-02-2020 01:52 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
جرب هذا الماكرو (يمكنك وضعه في حدث الصفحة Activate)
القوائم المنسدلة تظهر في النطاق  G1:G10

Sub data_val()
Dim Dic As Object
Dim i%: i = 9
Set Dic = CreateObject("Scripting.Dictionary")

 Do Until Sheets("ورقة1").Range("C" & i) = vbNullString
  Dic(Sheets("ورقة1").Range("C" & i).Value) = vbNullString
  i = i + 1
 Loop
  With Sheets("Sheet1").Range("G1:G10").Validation
  .Delete
  .Add 3, Formula1:=Join(Dic.keys, ",")
  End With
  Set Dic = Nothing
End Sub


20-02-2020 09:23 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
شكرا جزيلا استاذ سليم المحترم على هاذا الكود سوف اقوم بتجربة غدا على الحاسبه واعلمك بالنتيجة.  بارك الله بيك 

21-02-2020 07:57 مساء
مشاهدة مشاركة منفردة [3]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
استاذ سليم العزيز اضفت الكود الى الملف المرفق ولم يتغير شيء والمعادله تحتاج إلى تعديل ارجو منك ان تطلع على الملف وتعدل عليه. ومشكوره جهودك 
 
 
  عمل قائمة منسدلة قابلة للبحث فيها .xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(34.578) KB


21-02-2020 08:32 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
اولاً-  الكود الذي رفعته لك يأخذ بياناته من  الورقة 1  الخلية   C9   لذلك فان الكود لا يجد شيء
      في هذه الصفحة ابتداء من الخلية C9 لاضافته
ثانياً- تم التعديل على الكود ليتعامل مع الصفحة Sheet1  الخلية   C9 ونزولاً
ثالثاً- مصدر البيانات يجب لا يحتوي على خلايا فارغة (اي من الخلية  C9  نزولاً الى اخر خلية غير فارغة                لأن  الماكرو يتوقف عند أول خلية فارغة)
رابعاً- كلما عدلّت شيئاً في مصدر البيانات اضغط على الزر(في الملف) لتحديث القوائم المنسدلة

الكود بعد التعديل

Sub data_val()
Dim Dic As Object
Dim i%: i = 9
Set Dic = CreateObject("Scripting.Dictionary")

 Do Until Sheets("Sheet1").Range("C" & i) = vbNullString
  Dic(Sheets("Sheet1").Range("C" & i).Value) = vbNullString
  i = i + 1
 Loop
  With Sheets("Sheet1").Range("G9:G64").Validation
  .Delete
  .Add 3, Formula1:=Join(Dic.keys, ",")
  End With
  Set Dic = Nothing
End Sub

الملف مرفق
 
 
  DataVal_new.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(46.556) KB


21-02-2020 09:02 مساء
مشاهدة مشاركة منفردة [5]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
مشكور استاذ سليم وبارك الله على ردك السريع ممكن التنفيذ على هذا على ملف العمل اكون ممنون منك وياريت شرح السطر المسؤول على عدم تكرار الاسم وذلك لمسحه في حال اردنا تكرار الاسم 

1- القائمه المنسدله عايزها في ورقه (القائمة) في خلايا الصفوف من B2 الى B50 تستمد بياناتها من صفحة أسماء المراجعين من العمود B مع إمكانية ادخال أسماء جديدة في خلايا القوائم المنسدلة.

2- إضافة قائمة منسدلة يمكن البحث فيها  في صفحة (القائمة) في خلايا العمود E  (الطبيب المرسل)   في خلايا الصفوف من E2 الى E50 تستمد بياناتها من العمود E في صفحة أسماء المراجعين مع إمكانية ادخال أسماء جديدة في خلايا القوائم المنسدلة
3- كود استدعاء بيانات (العمر والجنس والطبيب المرسل(في الاعمده C. D .E) في صفحة القائمة مقابل الاسم المختار من القائمة المنسدلة...
الله يرحمهم امواتك ويحقق مرادك تحياتي لحضرتك على جهودك المبذولة
 
 
  ادخال قائمة منسدلة واستدعاء بيانات الاسم.xls   تحميل xls مرات التحميل :(16)
الحجم :(447.488) KB


22-02-2020 10:07 صباحا
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
او ان امكن عمل محرك بحث في كل خلايا من B2 الB50 في صفحة القائمة يظهر الاسماء التي تحتوي على الاحرف او الاسم المراد البحث وبعد ظهور نتائج البحث يتم اختيار الاسم المطلوب بالماوس  . ويتم ادراج معلوماته تلقائيا في الصفوف المجاوره له. مع إمكانية ادخال اسم جديد ان لم يكم موجود سابقا... 
ومشكور جهودكم جميعا 




الكلمات الدلالية
الاسماء ، تكرار ، لمنع ، معادلة ، تعديل ، نتائج ، القائمة ، المنسدلة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:55 صباحا