Подсветка результатов поиска в Excel

Question

Можно ли в Excel выделить результаты поиска или конкретный текст, который вы ищете? Я действительно ценю эти функции, так как они есть в Firefox и IntelliJ IDEA.

Answer 1

Я погуглил ваше требование и обнаружил, что вы можете использовать макрос для этого.

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

Когда макрос запустится, он выделит найденные ячейки и даст возможность очистить выделение. Если вы хотите временно сохранить выделение, нажмите Отмена. Затем, чтобы очистить форматирование позже, запустите тот же поиск и нажмите OK.

Нажмите здесь, чтобы посмотреть источник.