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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





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

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



20-02-2020 12:23 مساء
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 74
الجنس : ذكر
قوة السمعة : 82
الاعجاب : 25
 Online 
السلام عليكم ...مشكور جهود أستاذ ياسر المبدع في هذا المنتدى العظيم .
قمت بالتعديل على معادلة التي نشرها سابقا ليشمل البحث في كل كلمة داخل الخلايا والمعادلة موضحة في الملف المرفق هل يمكن ادخال تعديل لمنع تكرار الاسماء في نتائج القائمة المنسدلة.. مع جزيل الشكر 
 
 
  قائمة منسدلة قابلة للبحث في أي مكان في الكلمة.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(16.327) KB





20-02-2020 01:52 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 498
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3836
الاعجاب : 75
 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


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، المبتدأ، ابو طيبه، محمد الدسوقى،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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





21-02-2020 08:32 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 498
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3836
الاعجاب : 75
 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 مرات التحميل :(10)
الحجم :(46.556) KB


أثارت هذه المشاركة إعجاب: ابو طيبه، محمد الدسوقى،



21-02-2020 09:02 مساء
مشاهدة مشاركة منفردة [5]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 74
الجنس : ذكر
قوة السمعة : 82
الاعجاب : 25
 Online 
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]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 74
الجنس : ذكر
قوة السمعة : 82
الاعجاب : 25
 Online 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
او ان امكن عمل محرك بحث في كل خلايا من B2 الB50 في صفحة القائمة يظهر الاسماء التي تحتوي على الاحرف او الاسم المراد البحث وبعد ظهور نتائج البحث يتم اختيار الاسم المطلوب بالماوس  . ويتم ادراج معلوماته تلقائيا في الصفوف المجاوره له. مع إمكانية ادخال اسم جديد ان لم يكم موجود سابقا... 
ومشكور جهودكم جميعا 




27-02-2020 09:46 مساء
مشاهدة مشاركة منفردة [7]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 74
الجنس : ذكر
قوة السمعة : 82
الاعجاب : 25
 Online 
look/images/icons/i1.gif تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة
مشكور استاذ سليم وبارك الله على ردك ان امكن التنفيذ على هذا على ملف العمل اكون ممنون منك وياريت شرح السطر المسؤول على عدم تكرار الاسم وذلك لمسحه في حال اردنا تكرار الاسم 

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

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







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
معادلة جلب بيانات بعدة شروط رأسية وأفقية هانى على
3 98 الصقر
عمل كود او معادلة لحساب عدد ساعات الدوام وايام الغياب omhamza
5 214 YasserKhalil
خطأ فى معادلة INDEX EM_ACC
2 166 EM_ACC
تحويل الترابط التشعبي  من معادلة الى كود mostah
6 211 mostah
معادلة SUMIFS mostah
8 352 YasserKhalil

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


 







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

الساعة الآن 08:07 صباحا

أعلن هنا
أعلن هنا
أعلن هنا