Прескочи на основното съдържание

Търсете и маркирайте резултатите от търсенето в Excel

Автор: Слънце Последна промяна: 2022-01-06

В Excel можете да използвате функцията Намиране и замяна, за да намерите конкретна стойност, но знаете ли как да маркирате резултатите от търсенето след търсене? В тази статия представям два различни начина, които да ви помогнат да търсите и да маркирате резултатите от търсенето междувременно в Excel.

Търсете и маркирайте резултатите от търсенето чрез VBA кода

Търсете и маркирайте резултатите от търсенето чрез условното форматиране

Търсете и маркирайте резултатите от търсенето с удобен инструмент


Търсете и маркирайте резултатите от търсенето чрез VBA кода

В Excel има VBA код, който може да ви помогне да търсите стойност и след това да маркирате резултатите от търсенето.

1. Активирайте листа, в който искате да търсите, и маркирайте резултатите, натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.

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

doc търсене подчертаване резултат от търсене 1

3. Натиснете F5 ключ, след което се появява поле за търсене, за да въведете посочената стойност, която търсите.
doc търсене подчертаване резултат от търсене 2

4. кликване OK, съответстващите резултати са маркирани с фонов цвят. Освен това се появява диалогов прозорец, който ви пита дали да отмените маркирането. Кликнете OK за да отмените маркирането и да затворите диалоговия прозорец, щракнете Отказ за да запазите маркирането и да затворите диалоговия прозорец.
doc търсене подчертаване резултат от търсене 3

Забележка:

1. Ако няма намерена съответстваща стойност, се появява диалогов прозорец, за да ви напомни.
doc търсене подчертаване резултат от търсене 4

2. Този VBA работи за целия активен лист и не е чувствителен към главни и малки букви.

да не се движат

Искате ли да получите увеличение на заплатата и много време да прекарвате със семейството си?

Разделът Office подобрява вашата ефективност с 50% в Microsoft Office, работещ точно сега

Невероятно, работата с два или повече документа е по-лесна и по-бърза от работата с един.

В сравнение с добре познатите браузъри, инструментът с раздели в Office Tab е по-мощен и по-ефективен.

Намалете стотиците щраквания с мишката и писането от клавиатурата всеки ден вместо вас, кажете сбогом на ръката с мишката сега.

Ако обикновено работите с множество документи, Office Tab ще ви спести чудесно време.

30-дневен безплатен пробен период, не се изисква кредитна карта.

Вижте повечеБезплатно изтегляне сега


Търсете и маркирайте резултатите от търсенето чрез условното форматиране

В Excel функцията за условно форматиране също може автоматично да маркира резултатите от търсенето.

Да предположим, че данните и полето за търсене се показват като екранната снимка по-долу, сега, моля, направете следните стъпки:
doc търсене подчертаване резултат от търсене 5

1. Изберете диапазона, в който искате да търсите, и щракнете Начало > Условно форматиране > Ново правило.
doc търсене подчертаване резултат от търсене 6

2. В Ново правило за форматиране диалогов прозорец, изберете Използвайте формула, за да определите кои клетки да форматирате в Изберете тип правило раздел, след което отидете в текстовото поле под Форматиране на стойности, където тази формула е вярна, Тип =И($E$2<>"",$E$2=A4).

E2 е клетката, в която ще поставите стойността за търсене, а A4 е първата клетка в диапазона, в който търсите.
doc търсене подчертаване резултат от търсене 7

3. кликване формат бутон, отидете на Форматиране на клетки диалог, под Напълнете изберете един цвят, който ви е необходим. Кликнете OK > OK за затваряне на диалоговите прозорци.
doc търсене подчертаване резултат от търсене 8

Отсега нататък, когато въведете ключовата дума в клетка E2, резултатите от търсенето ще бъдат автоматично маркирани в посочения диапазон.


Търсете и маркирайте резултатите от търсенето с удобен инструмент

Ако искате да търсите две или повече стойности и да маркирате резултатите от търсенето веднъж, то Маркирайте ключова дума функция на Kutools за Excel може да ви направи услуга.

Kutools за Excel е мощна добавка, която събира повече от 300 удобни инструмента за подобряване на вашата ефективност в работни места в Excel, щракнете, за да получите 30-дневен безплатен пробен период сега.

1. Изберете диапазона от данни, който искате да търсите, щракнете върху Kutools > Текст > Маркирайте ключова дума.
doc търсене подчертаване резултат от търсене 8

2. В изскачащия диалогов прозорец въведете стойностите, които искате да търсите и разделени със запетая Ключова дума текстово поле. След това изберете Маркирайте Опции и цвета на шрифта според нуждите ви. Кликнете Ok.

Ако искате да търсите стойност с малки и главни букви, поставете отметка Съвпадение отметката.
doc търсене подчертаване резултат от търсене 8

След това съответстващите резултати ще бъдат маркирани с различен цвят на шрифта.
doc търсене подчертаване резултат от търсене 8

С Маркирайте ключова дума функция, можете също да намерите част от низ в диапазона. Да предположим, че клетките за търсене съдържат топка или скок, въведете топка, скок в Ключова дума текстово поле, след това задайте настройките и щракнете Ok.
doc търсене подчертаване резултат от търсене 8doc търсене подчертаване резултат от търсене 8


Примерен файл

Кликнете, за да изтеглите примерния файл


Други операции (статии), свързани с условно форматиране

Преброяване/сумиране на клетки по цветове с условно форматиране в Excel
Сега този урок ще ви каже някои удобни и лесни методи за бързо преброяване или сумиране на клетките по цвят с условно форматиране в Excel.

Създайте диаграма с условно форматиране в Excel
Например, имате таблица с резултати на клас и искате да създадете диаграма, за да оцветите резултати в различни диапазони, тук този урок ще представи метода за решаване на тази задача.

Подредена лентова диаграма с условно форматиране в Excel
Този урок представя как да създадете подредена лентова диаграма с условно форматиране, както е показано на екранната снимка по-долу стъпка по стъпка в Excel.

Условно форматиране на редове или клетки, ако две колони са равни в Excel
В тази статия представям метода за условно форматиране на редове или клетки, ако две колони са еднакви в Excel.

Приложете условно форматиране за всеки ред в Excel
Понякога може да искате да приложите условното форматиране за всеки ред. Освен многократното задаване на едни и същи правила за всеки ред, има някои трикове за решаване на тази задача.


  • Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
  • Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
  • Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
  • Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
  • Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
  • Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
  • Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
  • Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
  • Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
kte tab 201905
  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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