Note: The other languages of the website are Google-translated. Back to English

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 multeDescă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 Acasa > 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
Comentarii (5)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mulțumim pentru ajutor, dar când facem clic pe ok pentru a anula evidențierea. schimbarea culorii celulei. Vreau culoarea originală după anulare. Ce cod trebuie să schimb în VBA.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum puteți modifica acest lucru pentru a trece și la celula care este evidențiată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Jeff, dacă doriți să selectați toate celulele evidențiate, adăugați
xRg.Select
la sfârșitul codului de mai sus, vezi captura de ecran:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-1.png
Dacă doriți să săriți la prima celulă evidențiată, adăugați
xRg.Areas(xRg.Areas.Count)(1).Select
la sfârșitul codului de mai sus, vezi captura de ecran:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-2.png
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează pentru Excel 2013 și ce trebuie să schimb pentru a se potrivi cu versiunea 2003? Am încercat codul dvs., dar nu există niciun buton pentru a salva modulul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ne pare rău, este Excel 2003
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL