Salt la conținutul principal

Căutați și evidențiați rezultatele căutării în Excel

În Excel, puteți utiliza funcția Găsiți și înlocuiți pentru a găsi o anumită valoare, dar știți cum să evidențiați rezultatele căutării după căutare? În acest articol, introduc două modalități diferite de a vă ajuta să căutați și să evidențiați rezultatele căutării între timp în Excel.

Căutați și evidențiați rezultatele căutării după codul VBA

Căutați și evidențiați rezultatele căutării prin formatarea condiționată

Căutați și evidențiați rezultatele căutării printr-un instrument la îndemână


Căutați și evidențiați rezultatele căutării după codul VBA

În Excel, există un cod VBA care vă poate ajuta să căutați o valoare și apoi să evidențiați rezultatele căutării.

1. Activați foaia pe care doriți să o căutați și să evidențiați rezultatele, apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, și lipiți codul de mai jos în noul modul.

VBA: Evidențiați rezultatele căutării

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

căutare doc evidențiați rezultatul căutării 1

3. presa F5 , apoi apare o casetă de căutare pentru a introduce valoarea specificată pe care o căutați.
căutare doc evidențiați rezultatul căutării 2

4. clic OK, rezultatele potrivite au fost evidențiate cu o culoare de fundal. De asemenea, apare un dialog pentru a vă întreba dacă anulați evidențierea. Clic OK pentru a anula evidențierea și a închide dialogul, faceți clic pe Anulare pentru a păstra evidențierea și a închide dialogul.
căutare doc evidențiați rezultatul căutării 3

notițe:

1. Dacă nu se găsește nicio valoare potrivită, apare un dialog pentru a vă reaminti.
căutare doc evidențiați rezultatul căutării 4

2. Acest VBA funcționează pentru întreaga foaie activă și nu este sensibilă la majuscule.

nu se mișcă

Vreți să aveți o creștere a plății și mult timp pentru a însoți cu familia?

Fila Office vă îmbunătățește eficiența cu 50% în Microsoft Office funcționând chiar acum

Incredibil, lucrul la două sau mai multe documente este mai ușor și mai rapid decât lucrul la unul singur.

Comparat cu browsere cunoscute, instrumentul cu file din fila Office este mai puternic și mai eficient.

Reduceți sute de clicuri de mouse și tastarea tastaturii în fiecare zi pentru dvs., spuneți adio mâinii mouse-ului acum.

Dacă lucrați de obicei la mai multe documente, Office Office va economisi timp excelent pentru dvs.

30- zi de probă gratuită, nu este necesar un card de credit.

Citeste mai multDescărcare gratuită acum


Căutați și evidențiați rezultatele căutării prin formatarea condiționată

În Excel, funcția Formatare condiționată poate, de asemenea, să evidențieze automat rezultatele căutării.

Presupunând că datele și caseta de căutare se afișează ca în imaginea de mai jos, acum vă rugăm să faceți pașii de mai jos:
căutare doc evidențiați rezultatul căutării 5

1. Selectați intervalul în care doriți să căutați și faceți clic pe Acasă > Formatarea condițională > Noua regulă.
căutare doc evidențiați rezultatul căutării 6

2. În Noua regulă de formatare , selectați Utilizați o formulă pentru a determina ce celule să formatați în Selectați un tip de regulă secțiune, apoi accesați caseta de text de sub Formatează valorile în care această formulă este adevărată, tip = ȘI ($ E $ 2 <> "", $ E $ 2 = A4).

E2 este celula în care veți plasa valoarea de căutare, iar A4 este prima celulă din intervalul în care căutați.
căutare doc evidențiați rezultatul căutării 7

3. clic Format , accesați butonul Celule de format dialog, sub Umple filă, alegeți o culoare după cum aveți nevoie. Clic OK > OK pentru a închide casetele de dialog.
căutare doc evidențiați rezultatul căutării 8

De acum înainte, când introduceți cuvântul cheie în celula E2, rezultatele căutării vor fi evidențiate automat în intervalul specificat.


Căutați și evidențiați rezultatele căutării printr-un instrument la îndemână

Dacă doriți să căutați două sau mai multe valori și să evidențiați rezultatele căutării o dată, Marcați cuvântul cheie caracteristică a Kutools pentru Excel ar putea să-ți ofere o favoare.

Kutools pentru Excel este un program de completare puternic care colectează peste 300 de instrumente utile pentru a vă îmbunătăți eficiența în joburile Excel, faceți clic pentru a obține o încercare gratuită de 30 de zile acum.

1. Selectați intervalul de date pe care doriți să îl căutați, faceți clic Kutools > Text > Marcați cuvântul cheie.
căutare doc evidențiați rezultatul căutării 8

2. În fereastra de dialog, introduceți valorile pe care doriți să le căutați și separate prin virgulă Cuvânt cheie casetă de text. Apoi alegeți Marcați Opțiuni și culoarea fontului după cum aveți nevoie. Clic Ok.

Dacă doriți să căutați valoarea cu majuscule și minuscule, bifați Se potrivește caz caseta.
căutare doc evidențiați rezultatul căutării 8

Apoi rezultatele potrivite vor evidenția cu o culoare diferită a fontului.
căutare doc evidențiați rezultatul căutării 8

Cu Marcați cuvântul cheie caracteristică, puteți găsi și o parte din șir în gamă. Presupunând că celulele de căutare conţin minge sau salt, tastaţi minge, sari în Cuvânt cheie caseta text, apoi specificați setările și faceți clic Ok.
căutare doc evidențiați rezultatul căutării 8căutare doc evidențiați rezultatul căutării 8


Fișier exemplu

Faceți clic pentru a descărca fișierul eșantion


Alte operațiuni (articole) legate de formatarea condițională

Numărați / sumați celulele după culori cu formatare condiționată în Excel
Acum, acest tutorial vă va spune câteva metode la îndemână și ușoare pentru a număra sau a însuma rapid celulele în funcție de culoare, cu formatarea condiționată în Excel.

Creați o diagramă cu formatare condiționată în Excel
De exemplu, aveți un tabel de scoruri pentru o clasă și doriți să creați o diagramă pentru a colora scorurile în diferite intervale, aici acest tutorial va introduce metoda de rezolvare a acestei sarcini.

Formatare condiționată diagramă de bare stivuite în Excel
În acest tutorial, se introduce modul de creare a unei diagrame cu bare condiționate de formatare condiționată, după cum este prezentat mai jos, pas cu pas, în Excel.

Formatarea condiționată a rândurilor sau a celulelor dacă două coloane sunt egale în Excel
În acest articol, introduc metoda privind formatarea condiționată a rândurilor sau a celulelor dacă două coloane sunt egale în Excel.

Aplicați formatarea condiționată pentru fiecare rând din Excel
Uneori, poate doriți să aplicați formatarea condițională pentru fiecare rând. Cu excepția setării repetate a acelorași reguli pentru fiecare rând, există câteva trucuri pentru rezolvarea acestei sarcini.


  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comments (10)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
how do I make a VBA to search a few times with different highlight color?

and

then how do i make the highlight area, not only in the exact cell but also the cells next to it, or the whole row?

Please advice.

Thank you.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
how about highlight the keyword's row or column or the 3 cells next to the keyword?

and how do i search multiple times with different color of highlight?
This comment was minimized by the moderator on the site
How would I make the data entry box reopen after hitting ok? I use this macro with a barcode scanner and would like to be able to keep scanning without having to rerun macro each time. Example open macro scan it finds and highlights then reopens for next scan.
This comment was minimized by the moderator on the site
Hi, I have office 365 but when I went to Kutools > Text > I could not find Mark Keyword. Is there feature still there? Thanks
This comment was minimized by the moderator on the site
Hi, Kimber, what version of Kutools for Excel you use? Mark Keyword released after Kutools for Excel 24.0. If your version is lower than 24.0, please upgrade your version.
This comment was minimized by the moderator on the site
Does it work for Excel 2013 and what do I have to change in order to fit in with the 2003 version? I’ve tried your code but there is no button to save the module
This comment was minimized by the moderator on the site
Sorry, it’s Excel 2003
This comment was minimized by the moderator on the site
How can you modify this to also jump to the cell that is being highlighted.
This comment was minimized by the moderator on the site
Hi, Jeff, if you want to select all highlighted cells, just add
xRg.Select
at the end of the above code, see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-1.png
If you want to jump to the first highlighted cell, add
xRg.Areas(xRg.Areas.Count)(1).Select
at the end of the above code, see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-2.png
This comment was minimized by the moderator on the site
Hi thanks for your help but when we click ok for cancel highlighting. color of cell change. I want orignal color after cancel. What code i need to change in VBA.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations