Виділення результатів пошуку в Excel


2

Чи можливо, щоб Excel виділив результати пошуку або конкретний текст, який ви шукаєте? Я дуже ціную ці функції, оскільки вони є у Firefox та IntelliJ IDEA.

Відповіді:


2

Я гуглив вашу вимогу і дізнався, що ви можете використовувати макрос для цього.

Sub FindHighlight()
Dim tempCell As Range, Found As Range, sTxt, FoundRange, Response As Integer
Set Found = Range("A1")
sTxt = InputBox(prompt:="Enter value for search", Title:="VoG's Finder")
If sTxt = "" Then Exit Sub
Set tempCell = Cells.Find(what:=sTxt, After:=Found)
If tempCell Is Nothing Then
MsgBox prompt:="Not found", Title:="VoG's Finder"
Exit Sub
Else
Set Found = tempCell
Set FoundRange = Found
End If
Do
Set tempCell = Cells.FindNext(After:=Found)
If Found.Row >= tempCell.Row And Found.Column >= tempCell.Column Then Exit Do
Set Found = tempCell
Set FoundRange = Application.Union(FoundRange, Found)
Loop
FoundRange.Interior.ColorIndex = 6
Response = MsgBox(prompt:="Clear highlighting", Title:="VoG's Finder", Buttons:=vbOKCancel + vbQuestion)
If Response = vbOK Then FoundRange.Interior.ColorIndex = xlNone
End Sub

Коли макрос запускається, він виділить знайдені комірки і дасть можливість очистити виділення. Якщо ви хочете тимчасово зберегти виділення, натисніть Скасувати. Потім, щоб потім очистити форматування, запустіть той самий пошук і натисніть кнопку ОК.

Клацніть тут, щоб переглянути джерело.

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.