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ă

Î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

3. presa F5 , apoi apare o casetă de căutare pentru a introduce valoarea specificată pe care o căutați.

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.

notițe:

1. Dacă nu se găsește nicio valoare potrivită, apare un dialog pentru a vă reaminti.

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

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

Î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:

1. Selectați intervalul în care doriți să căutați și faceți clic pe Acasă > Formatarea condițională > Noua regulă.

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.

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.

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.

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.

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.

Apoi rezultatele potrivite vor evidenția cu o culoare diferită a fontului.

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.

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

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• 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...

Citeşte mai mult ... Caracteristici complete Încercare gratuită de 30 de zile ... Cumpărare... 

---

Fila Office - aduce interfața cu file în Office și vă face munca mult mai ușoară

• 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!

Citeşte mai mult ... Caracteristici complete Încercare gratuită de 30 de zile ... Cumpărare...