البحث وإبراز البيانات المحددة في Excel

في Excel، تتيح لك وظيفة البحث والاستبدال تحديد قيمة محددة، لكنها لا تقوم تلقائيًا بإبراز نتائج البحث. هل تعرف كيف تقوم بإبراز هذه النتائج بعد البحث؟ في هذه المقالة، سأقدم ثلاث طرق مختلفة للبحث وإبراز النتائج في نفس الوقت في Excel.

إبراز نتائج البحث باستخدام كود VBA

إبراز نتائج البحث باستخدام التنسيق الشرطي

إبراز نتائج البحث باستخدام أداة عملية

في Excel، يوجد كود VBA يمكنه مساعدتك في البحث عن قيمة ثم إبراز نتائج البحث.

1. قم بتفعيل الورقة التي تريد البحث فيها وإبراز النتائج، واضغط على مفتاحي "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

2. انقر فوق "إدراج" > "وحدة"، والصق الكود أدناه في الوحدة الجديدة.

VBA: إبراز نتائج البحث

Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Title:="www.extendoffice.com", Buttons:=vbQuestion + vbOKCancel)

If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub

3. اضغط على مفتاح "F5"، ثم سيظهر مربع بحث يتيح لك كتابة القيمة المحددة التي تبحث عنها.

4. انقر فوق "موافق"، سيتم إبراز النتائج المتطابقة بلون خلفية. أيضًا، سيظهر مربع حوار ليسألك إذا كنت تريد إلغاء الإبراز. انقر فوق "موافق" لإلغاء الإبراز وإغلاق الحوار، أو انقر فوق "إلغاء" للحفاظ على الإبراز وإغلاق الحوار.

ملاحظات:

1. إذا لم يتم العثور على أي قيمة متطابقة، سيظهر مربع حوار لإعلامك بذلك.

2. يعمل هذا الكود VBA عبر كامل الورقة النشطة وهو غير حساس لحالة الأحرف.

في Excel، يمكن لوظيفة التنسيق الشرطي أيضًا أن تقوم تلقائيًا بإبراز نتائج البحث.

لنفترض أن البيانات ومربع البحث يظهران كما هو موضح في لقطة الشاشة أدناه، الآن يرجى القيام بالخطوات التالية:

1. حدد النطاق الذي تريد البحث فيه، وانقر فوق "الرئيسية" > "تنسيق شرطي" > "قاعدة جديدة".

2. في مربع حوار "قاعدة تنسيق جديدة"، حدد "استخدم صيغة لتحديد الخلايا التي يجب تنسيقها" في قسم "حدد نوع القاعدة"، ثم انتقل إلى مربع النص أسفل "تنسيق القيم حيث تكون هذه الصيغة صحيحة" واكتب هذه الصيغة:

=AND($E$2<>"",$E$2=A4)

3. انقر فوق زر "تنسيق"، انتقل إلى مربع حوار "تنسيق الخلايا"، تحت علامة التبويب "تعبئة"، اختر لونًا حسب الحاجة. انقر فوق "موافق" > "موافق" لإغلاق مربعات الحوار.

من الآن فصاعدًا، عند إدخال الكلمة الرئيسية في الخلية E2، سيتم إبراز نتائج البحث تلقائيًا في النطاق المحدد.

إذا كنت ترغب في البحث عن قيمتين أو أكثر وإبراز نتائج البحث دفعة واحدة، فإن ميزة "وضع علامات على الكلمات الرئيسية" من "Kutools لـ Excel" قد تساعدك.

1. حدد نطاق البيانات الذي تريد البحث فيه، انقر فوق "Kutools" > "نص" > "وضع علامات على الكلمات الرئيسية".

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

إذا كنت ترغب في البحث عن القيمة مع مراعاة حالة الأحرف، فعل خيار "حساس لحالة الأحرف".

ثم سيتم إبراز النتائج المتطابقة بلون خط مختلف.

مع ميزة "وضع علامات على الكلمات الرئيسية"، يمكنك أيضًا العثور على جزء من السلسلة في النطاق. لنفترض أن الخلايا تحتوي على كلمة ball أو jump، اكتب ball, jump في مربع النص "الكلمة الرئيسية"، ثم حدد الإعدادات وانقر فوق "موافق".
  >>>  

انقر لتنزيل ملف العينة