تنسيق معين عند وصول لنتيجة البحث

[Ali Tawfeek]

اخوانى عايز اعمل خاصية معينة بحيث لما اضغط على Ctrl + F و يظهر نتيجة البحث فيظهر الخلية التى بها نتيجة بتنسيق معين و ليكن ان تحدد بلون معين او تظلل هل يمكن عمل هذا ام لا

[احمدزمان]

ممكن

بدون Ctrl+f

من خلية محددة في الملف

ياستخدام التنسيق الشرطي

ارفق ملف

للعمل عليه

[صباح حسين]

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

اكرر شكري لجميع الاعضاء وبالاخص صاحب الكود لكوني استفدت منه كثيراً

كود ممتاز للبحث فى كل الشيتات.rar

[عبدالله باقشير]

السلام عليكم

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

Option Explicit


Sub Kh_Find_All()

Dim MyTextFind, OldColor

Dim MySh As Worksheet

Dim C As Range

Dim FirstAddress As String


MyTextFind = Application.InputBox("اكتب ما تريد البحث عنه ؟", "بحث في جميع الاوراق الظاهرة")

If MyTextFind = "" Or MyTextFind = False Then Exit Sub


For Each MySh In ActiveWorkbook.Worksheets

    If MySh.Visible = xlSheetVisible Then

        With MySh.Cells

            Set C = .Find(MyTextFind, LookIn:=xlValues)

            If Not C Is Nothing Then

                FirstAddress = C.Address

                Do

                    MySh.Activate

                    C.Select

                    OldColor = C.Interior.ColorIndex

                    C.Interior.ColorIndex = 6

                    If MsgBox("تم ايجاد قيمة البحث في العنوان" & Chr(10) & Chr(10) & MySh.Name & "!" & C.Address _

                    & Chr(10) & Chr(10) & "هل تريد الاستمرار في البحث ؟", 524288 + 1048576 + 4, "تاكيد") = 7 Then GoTo 1

                    C.Interior.ColorIndex = OldColor

                    Set C = .FindNext(C)

                Loop While Not C Is Nothing And C.Address <> FirstAddress

            End If

        End With

    End If

Next MySh


MsgBox IIf(Len(FirstAddress), "انتهى البحث", "لا توجد نتائج للبحث "), 524288 + 1048576, "بحث"

1:

If Len(FirstAddress) Then C.Interior.ColorIndex = OldColor

Set C = Nothing

End Sub

المرفق ملف اكسل 2003

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

[احمدزمان]

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

كل الحب و الشكر و التقدير استاذ خبور على هذا العمل الرائع

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

[احمدزمان]

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

من نفس ملف الأستاذ خبورخير

تم عمل تلوين

اولا اضفتا ورقة وسميناها البحث

في الخلية الصفراء من هذه الرقة

اكتب ما تريد البحث عنه

سوف يتم تلوين جميع الخلايا التي تطابق البحث المطلوب وذلك باستخدام التنسيق الشرطي

بحث بالتلوين.rar

[صباح حسين]

السلام عليكم . الف تحية تقدير واعجاب للاخوة (خبور و احمد ) على تجاوبهما السريع معنا . وفقكم الله واجازكم خير جزاء .

[دغيدى]

أدام الله عليكم من العلم ما ينفع اليشرية

[Ali Tawfeek]

اخوانى مشكورين للافادة السابقة و جزاكم الله خيرا

لى سؤال اخر مستوحى من نفس الفكرة مع شئ من الاضافة

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

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

المراد هنا انة عند الضغط على الارتباط التشعبي و عند الانتقال للورقة الاساسية و للنطاق المربوط ان يتلون النطاق بلون معين بحيث يتم تميزة

الملف فى مرفقات

Book1.zip