اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

سؤالي:

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

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

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

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

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

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

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

اعتذر مجددا

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

 

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

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

بإذن الله

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

 

 

 

تم تعديل بواسطه عمر الحسيني
  • Like 1
رابط هذا التعليق
شارك

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

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

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

salim.rar

  • Like 4
رابط هذا التعليق
شارك

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

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

لك جزيل الشكر 

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

ahmed 1.rar

  • Like 1
رابط هذا التعليق
شارك

 

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

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

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

B

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

E

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

L

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

F

للأسم المعني

فهل هذا صحيح

 

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

السلام عليكم

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

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

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

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

استاذ عمر 

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

شاهد المرفق

 

ahmed 2.rar

رابط هذا التعليق
شارك

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

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

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

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

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

 

salim 2.rar

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

السلام عليكم

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

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

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

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

استاذ عمر 

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

شاهد المرفق

 

ahmed 2.rar

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

تم تعديل بواسطه سليم حاصبيا
  • Like 2
رابط هذا التعليق
شارك

تسلم اخي سليم 

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

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

 

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

استاذ سايم

رابط هذا التعليق
شارك

الف الف الف   :signthankspin:  شكر لك اخي العزيز عمر :fff:

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

  • Like 2
رابط هذا التعليق
شارك

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