كود بحث .. يحتاج تعديل بسيط ليكون أكثر عمليا ...

[أبو عبدالإله]

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

 

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

عدلت عليه قليلا 

الاسم المطابق للبحث يقوم بعمل برواز للخلية 

حاولت أن يكون الاسم المطايق له لون مميز لكن لم أستطع .

أتمنى لو استطاع أحدكم التعديل عليه حتى يميز الخلية التي فيها الاسم لون مميز فيكون عمليا بشكل أكبر .

 

أضع هذا الكود كمشاركة بسيطة لمنتدى عملاق .

 

 

 بحث.rar

 

[خالد الرشيدى]

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

                       فكرة مميزة اخى الكريم ... جزاك الله خيراً

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

                                    تقبل تحياتى

تم تعديل أغسطس 16, 2015 بواسطه خالد الرشيدى

[أبو عبدالإله]

العذر فقد نسيت أنه محمي 

كلمة السر 98789

 

 

وهذا هو هنا بدون حماية 

 

 بحث.rar

[خالد الرشيدى]

اخى الكريم

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

لهذا اليك المرفق بعد التعديل

استخدمت الامر WAIT  لجعل لون ناتج البحث احمر وذلك لمدة ثانية ثم يرجع اسود

 بحث.rar

[أبو عبدالإله]

ليس غريبا عليك الإبداع أستاذي الغالي

 

عمل جميل جدا ،

ولدي اقتراح لو تم تلوين الخلية بلون مميز بدلا من النص ألا يكون أفضل وأسرع في التمييز .

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

إليك التعديل التالي

Private Sub CommandButton1_Click()
    Dim LColor
    On Error GoTo Error
    If TextBox1 = "" Then
        MsgBox ("أدخل نص في حقل البحث")
    Else
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
                   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                   MatchCase:=False, SearchFormat:=False).Activate
        LColor = ActiveCell.Interior.Color
        ActiveCell.Interior.Color = vbYellow
        Application.Wait (Now + TimeValue("0:00:01"))
        ActiveCell.Interior.Color = LColor
    End If

    Exit Sub
Error:
    MsgBox ("لا تتوفر نتائج للبحث")
End Sub

 

[أبو عبدالإله]

ألف شكر أستاذي الكريم أبو البراء على هذه الإضافة المميزة

 

كل الشكر والتقدير لك ولأخي خالد الرشيدي وأسأل الله أن يفتح لكما أبواب الخير أينما كنتما .

 

أصبح محرك البحث أكثر روعة بجهودكم وإضافاتكم الأكثر من مميزة

 

دمتم بحفظ الرحمن

 

أفضل إجابتين :

 

 

لتلوين لون النص :

اخى الكريم

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

لهذا اليك المرفق بعد التعديل

استخدمت الامر WAIT  لجعل لون ناتج البحث احمر وذلك لمدة ثانية ثم يرجع اسود

 بحث.rar

 

 

 

لتلوين الخلفية فقط : 

 

إليك التعديل التالي

Private Sub CommandButton1_Click()
    Dim LColor
    On Error GoTo Error
    If TextBox1 = "" Then
        MsgBox ("أدخل نص في حقل البحث")
    Else
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
                   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                   MatchCase:=False, SearchFormat:=False).Activate
        LColor = ActiveCell.Interior.Color
        ActiveCell.Interior.Color = vbYellow
        Application.Wait (Now + TimeValue("0:00:01"))
        ActiveCell.Interior.Color = LColor
    End If

    Exit Sub
Error:
    MsgBox ("لا تتوفر نتائج للبحث")
End Sub

 

إبداع لا حدود له

[محمد الزريعي]

ماذا تعني هذه الكلمات في الدالة find

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate

انا اريد استخدم الدالة في شي اخر .