Как раскрасить или выделить определенное слово в ячейках в Excel?
Если ячейка содержит несколько слов, как можно выделить определенное слово только в этой ячейке? А как насчет выделения этого слова в нескольких ячейках? Эта статья предоставит способ ее достижения.
Раскрасьте определенное слово в одной или нескольких ячейках с кодом VBA
Раскрасьте определенное слово в одной или нескольких ячейках с кодом VBA
Следующий код VBA может помочь вам выделить определенное слово в выделенном фрагменте. Пожалуйста, сделайте следующее.
1. Выберите диапазон, содержащий ячейки, внутри которых вы хотите выделить определенное слово. Затем нажмите кнопку другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. В дебюте Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте код VBA в окно кода.
Код VBA: раскрасьте определенное слово в ячейках в Excel
Sub HighlightStrings()
Dim xHStr As String, xStrTmp As String
Dim xHStrLen As Long, xCount As Long, I As Long
Dim xCell As Range
Dim xArr
On Error Resume Next
xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
If TypeName(xHStr) <> "String" Then Exit Sub
Application.ScreenUpdating = False
xHStrLen = Len(xHStr)
For Each xCell In Selection
xArr = Split(xCell.Value, xHStr)
xCount = UBound(xArr)
If xCount > 0 Then
xStrTmp = ""
For I = 0 To xCount - 1
xStrTmp = xStrTmp & xArr(I)
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
xStrTmp = xStrTmp & xHStr
Next
End If
Next
Application.ScreenUpdating = True
End Sub
3. нажмите F5 ключ для запуска кода. И в Kutools for Excel диалоговом окне введите определенное слово, которое вы выделите в ячейках, а затем нажмите OK кнопка. Смотрите скриншот:
Затем вы можете увидеть, что все указанные вами слова окрашены в красный цвет в выбранных ячейках сразу, как показано ниже.
Статьи по теме:
- Как выделить ячейку, если значение существует или равно ячейке в другом столбце в Excel?
- Как сравнить две строки на сходство или выделить различия в Excel?
- Как сделать имя вкладки листа равным значению ячейки в Excel?
- Как изменить значение в зависимости от цвета ячейки в Excel?
- Как изменить цвет ячейки при нажатии или выборе ячейки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!