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

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

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

إخواني الكرام في المنتدى الأغر

 

معكم في موضوع جديد وشيق ومفيد ، مع عالم الإكسيل ومع كل جديد ، ومع تنشيط لخلايا المخ اللي تخلي مخك حديد .. أقدم لكم المزيد والمزيد ، لعل الجميع يستفيد ، ويستضاء بنا ولو من بعيد (شكلي سرحت ..أعتذر عن المقدمة الطويلة يا أبو عيد)

 

معنا اليوم فورم بسيط (فيه صندوق الدنيا (صندوق نص) TextBox وزر أمر Command Button)

بالنسبة لصندوق النص غيرت فيه من الخصائص حاجتين اتنين وبس .. خاصية اسمها MultiLine ودي خليتها True ودي عشان تقدر سعادتك تكتب في أكتر من سطر

والخاصية التانية EnterKeyBehavior ودي بردو True ودي عشان تقدر بعد ما تكتب سطر تضغط Enter يقوم ايه ؟؟ يقوم ينتقل للسطر اللي بعديه .. وهكذا وهكذا

يعني تكتب كلمة البحث المراد البحث عنها وتضغط إنتر ، وتقدر تكتب كلمة تانية وتضغط إنتر ، وتقدر تكتب كلمة تالتة وتضغط إنتر ، وتقدر تكتب كلمة ( - - - - - ) كتبتها بالحبر السري عشان محدش ياخد باله وتضغط إنتر وهكذا وهكذا

ولما تدوس على زر الأمر Search هتلاقي النتائج المراد البحث عنها تم تلوينها

 

جرب مثلاً اكتب Yasser واضغط إنتر ، واكتب في السطر اللي بعديه "ياسر" من غير أقواس تنصيص واضغط إنتر ، وأخيراً دوووووس على زر الأمر وشوف النتائج

 

ودا شكل الكود الموضوع في زر الأمر

Private Sub CommandButton1_Click()
  Dim Cell As Range, Keys, Key, I As Long

  If Me.TextBox1.Value = "" Then Exit Sub

  Sheets("Sheet1").Cells(1).CurrentRegion.Font.ColorIndex = xlAutomatic

  Keys = Split(TextBox1.Value, vbCrLf)

  For Each Cell In Sheets("Sheet1").Cells(1).CurrentRegion.Columns(1).Cells
      For Each Key In Keys
          I = InStr(1, Cell.Value, Key)
          If I > 0 Then
             Cell.Characters(I, Len(Key)).Font.Color = vbRed
          End If
      Next Key
  Next Cell
End Sub

أرجو أن يكون الملف مفيد للجميع ..

تقبلوا تحياتي وهكذا وهكذا

Multiple Search & Color Results.rar

[صلاح الصغير]

ا / ياسر

الكود بيلون العمود كله

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

الأخ الحبيب أبو صلاح

ودي حاجة حلوة ولا حاجة وحشة !!

الكود بيتعامل مع النطاق الحالي بداية من الخلية A1 ..

[Yasser Fathi Albanna]

تسلم الأيادى ودايما منورنا بإبداعاتك الجميلة والمفيدة يا أ / ياسر

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

[صلاح الصغير]

ا / ياسر

حضرتك قولت الكود هيلون النتائج المراد البحث عنها

اللى بيحصل انه بيلون العمود باكمله و ليس القيم المراد البحث عنها فقط

[نايف - م]

أخي الكريم

أنا جربت الملف وهو شغال نمام و النتائج رائعة و حلوة

شكرا أخي ياسر

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

الأخ الغالي ياسر فتحي

الأخ الحبيب صلاح الصغير

الأخ نايف - م

مشكور على مروركم العطر .. وبارك الله فيكم

 

الأخ صلاح الملف يعمل معي بشكل طبيعي وكذلك الأخ نايف .. وننتظر رأي باقي الأخوة في الملف .. هل يعمل أم أن به مشكلة لدى أحد آخر؟

ما هي نسخة الأوفيس التي تعمل عليها ؟ وهل هناك إضافات AddIns قد تسبب مشاكل لك كما حدث آنفاً ..

 

 

تقبلوا تحياتي

[ناصر سعيد]

الاستاذ ياسر المحترم

شكرا لمجهودك الرائع ... جعله الله في كفة حسناتك

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

 

اخي المحترم

نريد كود بحث مثل هذا الجمال يبحث عن شهاده معينه لانها بتدوخنا

[ناصر سعيد]

ظهرت قيمه هذا الطلب بعد ظهور النتيجة للطلاب

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

من لم يعمل معه الكود الأول فليجرب هذا الكود وليعلمنا بالنتيجة

Private Sub CommandButton1_Click()
  Dim Cell As Range, Keys, Key, I As Long

  If Me.TextBox1.Value = "" Then Exit Sub

  Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Font.ColorIndex = xlAutomatic

  Keys = Split(TextBox1.Value, vbCrLf)

  For Each Cell In Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
      For Each Key In Keys
          I = InStr(1, Cell.Value, Key)
          If I > 0 Then
             Cell.Characters(I, Len(Key)).Font.Color = vbRed
          End If
      Next Key
  Next Cell
End Sub

[صلاح الصغير]

ا / ياسر 

الكود الاول يعمل جيدا الان و الثانى ايضا

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

هو بس مشكلته انه حساس قوى لازم اكتبله الكلمة بالظبط

تم تعديل مايو 20, 2015 بواسطه صلاح الصغير

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

الحمد لله أخي صلاح أن تم حل المشكلة

جرب أن تضع السطر التالي قبل بداية الكود

Option Compare Text

سيتم تجاهل حالة الأحرف الكبيرة والصغيرة

[صلاح الصغير]

تمام

تم تعديل مايو 20, 2015 بواسطه صلاح الصغير

[خزاني]

أ / ياسر جزاك الله خيرا

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

مشكور على مرورك العطر أخي الغالي خزاني

بارك الله فيك

تقبل تحياتي

[ياسين ( أبو وسام )]

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

 

ما شاء الله عليك يا ابو البراء ابدع بلا حدود في كل المواضيع التي تقوم بكتابتها جعل الله هذا العمل في ميزان حسناتك 

 

ونترقب المزيد من المواضيع المميزة   

 

ولكم تحياتي

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

أخي الكريم ياسين أبو وسام

جزيت خيراً على كلماتك الطيبة وعلى مرورك الكريم

ونترقب مساهمات فعالة ومفيدة إن شاء الله ..( الدنيا خد وهات زي اللعبة الحلوة خد وهات ، ومتحلاش إلا لما تفيد وتستفيد )

تقبل تحياتي