فلترة الاسماء بظهور ثلاثة صفوف للإسم الواحد

[احمد بن ابراهيم]

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

بارك الله لكم و في جميع اطروحاتكم المتميزة

سؤالي:

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

اريد معرفة كيفية عمل خلية بحث على نفس الشيت لهذا الجدول عند كتابة الاسم الاول من المعلم او كتابة اول حرف يكون الناتج اسم المعلم مع ثلاثة صفوف الخاصة به .

حيث ان اسم المعلم هو عبارة عن ثلاثة خلايا صفية مدمجة . حيث استخدمت طريقة التصفية فكان الناتج لكل اسم صف واحد فقط و يخفي صفين.

مرفق ملف توضيحي   

فلترة الاسماء بظهور ثلاثة صفوف(1).rar

اعتذر على التكرار فقد ظهر لي خطاء اثناء رفع الموضوع

فحاولت اعادة اكثر من مرة .

اعتذر مجددا

[أبو حنف]

تم فك الدمج لكي يعمل الكود

تفضل المرفق

فلترة الاسماء بظهور ثلاثة صفوف(1).rar

[احمد بن ابراهيم]

لك جزيل الشكر ابوحنف

على حسن تواصلك و شرحك المتميز عى الكود

حيث ان الكود طويل و انا استخدم كود مختصر ( جزا الله خير من قام بعمله )

lr = Range("b" & Rows.Count).End(xlUp).Row

ActiveSheet.Range("$B$4:$C$" & lr).AutoFilter Field:=1, Criteria1:="=" & ActiveSheet.TextBox1.Text  & "*" 

وطريقة تكرار الاسماء معلومة لدي 

ولكن مع كثرة الاسماء تفوق 70 اسم يصبح الجدول غير منظم و مزعج .

و علمت ان التصفية لا يمكن عملها في وجود صفوف مدمجة

ولاكن احببت طرح الموضوع في هذا المنتدى لما يتمتع به من وجود اعضاء متميزين و رحابة الصدر في حواراتهم .

 لعلي اجد من الهمة الله بالعلم فيجد حلول لها . فبرنامج الإكسل عبارة عن لعبة الغاز نحاول حل مفرداتها.

 

فبارك الله في جهود الجميع .

[omar elhosseini]

 

الاخ احمد بن ابراهيم

 

شاهد  المرفق

 

 

Omar_1.rar

[احمد بن ابراهيم]

مشاء الله عليك استاذ عمر  ابداع في وضع لمساتك 

كانت فكرتي عمل فلترة على نفس الجدول للبحث عن اسم المعلم و امكانية الاضافة او التعديل في البيانات   ( وهذا المطلوب )

حيث ان الجدول لحقيقي لدي بحجم كبير يحتوي على اعمدة و صفوف كثيرة 

ولكن انت تخطيت الابداع بتصميم اكثر من فكرة . وهي للاستعلام فقط

جدا جدا اعجبتني  و الف شكر لك يا استاذي العزيز

فهي أوحت لي بفكرة اضافية سوف اعمل بها انشاء الله

( ممكن اضافة السماح بالتعديل على البيانات بعد عملية البحث و اي تغير يحدث في الاسم يتم التغير على الجدول الرئيسي )

 

لك جزيل الشكر على تواصلك و مجهودك الظاهر للجميع

[omar elhosseini]

 

الاخ احمد بن ابراهيم

سوف عمل علي ذلك

بإذن الله

ولكن لابد ان ترسل لي تصميم الورقة مطابقا للواقع

 

 

 

تم تعديل أغسطس 23, 2016 بواسطه عمر الحسيني

[سليم حاصبيا]

بعد اذن اخي عمر

اليك هذا الحل بالمعادلات( رغم ان الخلايا المدمجة من الد اعداء الكود والمعادلة)

القائمة المنسدلة مطاطة (تستحيب لاي تعديل في البيانات)

salim.rar

[احمد بن ابراهيم]

بارك الله فيك استاذي / سليم حاصبيا

و لا حرمنا الله من التعلم منكم و حسن تواصلكم

لك جزيل الشكر 

و كما قلت (  الخلايا المدمجة من الد اعداء الكود والمعادلة )

 

[جلال الجمال_ابو أدهم]

عمر الحسيني

سليم حاصبيا

ماشاء الله عليكوا

[omar elhosseini]

 

الاخ احمد بن ابراهيم

شاهد المرفق

 

Omar_2.rar

 

[احمد بن ابراهيم]

بارك الله فيك استاذ/ عمر  لقد اتممت المهمة بإبداع 

هذا هو الملف المطلوب الذي ارغب بتطبيق البحث الاسماء فيه لتسريع ادخال البيانات علية

كما طلبت في المرفق

و اتشرف بوضع لمساتك المتميزة علية و اتعلمها منك

ولك و للجميع الشكر لمشاركتهم

ahmed 1.rar

[omar elhosseini]

 

الاخ احمد بن ابراهيم

حسب فهمي للملف وان كنت مخطئ صحح لي المطلوب

تريد ان تبحث عن اسم المعلم في العمود

B

بدلالة اسم المدرسة في العمود

E

ثم تعدل بيانات  3  اسطر في العمود

L

فتنقل ال 3 اسطر الي العمود

F

للأسم المعني

فهل هذا صحيح

 

تم تعديل أغسطس 24, 2016 بواسطه عمر الحسيني

[احمد بن ابراهيم]

السلام عليكم

بنسبة لي فكنت ارغب 

بعملية فلترة على  نفس الجدول ( مثل الفلترة العادية )

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

او يمكن البحث حسب المرحلة الدراسية في خلية E9  ب = ابتدائي م = متوسط ث = ثانوي فيخرج معي اسماء المعلمين لهاذة المرحلة

استاذ عمر 

لقد قمت بتعديل و ازالة الدمج 

شاهد المرفق

 

ahmed 2.rar

[سليم حاصبيا]

بعد اذن اخي عمر

اليك هذا الحل بالمعادلات( رغم ان الخلايا المدمجة من الد اعداء الكود والمعادلة)

القائمة المنسدلة مطاطة (تستحيب لاي تعديل في البيانات)

يلزمك في هذه الحلاة الماكرو البسيط في المرفق

تم وضع الليست بوكس مباشرة غلى الخلية B9

 

salim 2.rar

2 ساعات مضت, احمد بن ابراهيم said:

السلام عليكم

بنسبة لي فكنت ارغب 

بعملية فلترة على  نفس الجدول ( مثل الفلترة العادية )

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

او يمكن البحث حسب المرحلة الدراسية في خلية E9  ب = ابتدائي م = متوسط ث = ثانوي فيخرج معي اسماء المعلمين لهاذة المرحلة

استاذ عمر 

لقد قمت بتعديل و ازالة الدمج 

شاهد المرفق

 

ahmed 2.rar

انظر الى الاضافة على مشاركتي

[احمد بن ابراهيم]

المعذرة اخي سليم

على قل النظر فيني لم الحظ تغيير .  

فهو شبية الملف ahmed 2 غير ان الكود المستخدم مختلف ويعطي نفس النتيجة

و لك جزيل الشكر على جهودك المبذولة 

[سليم حاصبيا]

8 ساعات مضت, احمد بن ابراهيم said:

المعذرة اخي سليم

على قل النظر فيني لم الحظ تغيير .  

فهو شبية الملف ahmed 2 غير ان الكود المستخدم مختلف ويعطي نفس النتيجة

و لك جزيل الشكر على جهودك المبذولة 

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

كما يمكنك استعمال الكود forrmat_me ,  وذلك لاخفاء الكتابة في الخلايا المكررة (لانك استعملت اللون الابيض لهذا الشيء) مما يجغل اخلية مرئية في حال تحديدها

اليك الكود

 

Sub format_me()
With Sheets("ورقة 1")
lr = .Cells(Rows.Count, 1).End(xlUp).Row
     For i = 11 To lr - 3
     t = i Mod (3)
     If t <> 0 Then
    Range("a" & i).Resize(1, 5).NumberFormat = ";;;"
     End If
     Next
   End With
End Sub

 

تم تعديل أغسطس 25, 2016 بواسطه سليم حاصبيا

[احمد بن ابراهيم]

تسلم اخي سليم 

اضافة جميلة منك والناتج منها ممتاز ( احببت تعلمها منك )

بنسبة للعامود  D و E  هم كذالك بيانات مكررة  لم تتغير

 

اسعد الله ايامك 

استاذ سايم

[omar elhosseini]

 

الاخ احمد بن ابراهيم

 

انظر المرفقات

Omar_1.rar

 

[احمد بن ابراهيم]

الف الف الف     شكر لك اخي العزيز عمر 

اتممت المهمة بحمد الله بشكل جميل (  اتعبتك في صياعة الاكواد  )

و تم اعتماد هذا العمل 

اسعدك الله في الدارين 

واشكرك على حسن متابعتك معي  

[omar elhosseini]

 

الاخ احمد بن ابراهيم

 

ولك بما دعوت اخي الكريم

 

في الخدمة دائما من اجل مثل هذا الدعاء

 

[احمد بن ابراهيم]

استاذ عمر       

ممكن اضافة 

هل ممكن في الاكسل عمل ايقونة لإظهار الشرح ( كما شرحت على الملف ) و عند الضغط علية مرة ثانية تختفي الشروحات 

وشكرا

[omar elhosseini]

 

الاخ احمد بن ابراهيم

انظر المرفقات

 

Omar_2.rar

 

[احمد بن ابراهيم]

تعجز الكتابة عن الوصف بالشكر لله ثم لك على لطفك و رحابة صدرك للفقير المتعلم

مشاء الله عليك انت مبدع في حل الغاز الاكسل 

ادام الله عليك و على القائمين في المنتدى بالصحة و العافية  

[ياسر خليل أبو البراء]

بسم الله ما شاء الله عليك أبو تامر يا غالي

بارك الله فيك وجزاك الله كل خير ..

أنت مدرسة بل جامعة بل أكبر من ذلك

 

ننتظر منك موضوعات تعليمية لننهل من بحر علمك في هذا المجال .. 

جعل الله أعمالك في ميزان حسناتك يوم القيامة

[saad abed]

اخى عمر الحسينى

والله انت مدرسه كما قال اخى ياسر

وشروحاتك بطريقه مميزه

ننتظر المزيد

جزاك الله خيرا