Como destacar um texto específico dentro de uma célula com base em outro texto?
No Excel, pode ser fácil para nós destacar as células com base em um texto específico, mas aqui, quero destacar um texto específico dentro de uma célula para torná-lo mais visível, mas não a célula inteira. Isso pode ser complicado para a maioria de nós. Neste artigo, vou falar sobre alguns truques para resolver essa tarefa no Excel.
Destacar um ou mais textos específicos dentro de várias células com código VBA
Por exemplo, tenho uma série de cadeias de texto e agora quero destacar o texto específico “Sky” nessas células para obter o resultado conforme mostrado nas capturas de tela abaixo:
 |  |  |
Para destacar apenas parte do texto dentro de uma célula, o seguinte código VBA pode ajudá-lo.
1. Selecione as células onde deseja destacar o texto específico e, em seguida, pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Destacar parte do texto dentro de uma célula:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Em seguida, pressione a tecla F5 para executar este código e uma caixa de aviso aparecerá lembrando que você deve inserir o texto que deseja destacar, veja a captura de tela:
4. Depois disso, clique no botão OK e todo o texto especificado será destacado somente dentro das células, veja a captura de tela:
| | |
Código VBA: Destacar várias palavras-chave de cadeias de texto:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Depois, na caixa que aparece, insira as palavras-chave que deseja destacar (separe as palavras com vírgula), veja a captura de tela:
E depois, clique no botão OK e as palavras especificadas serão destacadas imediatamente, veja as capturas de tela:
| |  |
Nota: Os códigos acima diferenciam maiúsculas de minúsculas.
Destacar um ou mais textos específicos dentro de várias células com um recurso incrível
Se você não está familiarizado com o código no Excel, aqui vou apresentar uma ferramenta fácil - Kutools para Excel, com seu recurso Marcar Palavra-chave, você pode destacar uma ou mais palavras-chave específicas de uma vez dentro das células.
Após instalar o Kutools para Excel, faça o seguinte:
1. Clique em Kutools > Texto > Marcar Palavra-chave, veja a captura de tela:
2. Na caixa de diálogo Marcar Palavra-chave, faça as seguintes operações:
- Selecione o intervalo de dados que deseja usar na caixa de texto Intervalo;
- Selecione as células que contêm as palavras-chave que deseja destacar, você também pode inserir as palavras-chave manualmente (separadas por vírgula) na caixa de texto Palavra-chave.
- Por fim, especifique uma cor de fonte para destacar os textos marcando a opção Cor da Fonte da Palavra-chave. (Para colorir as células inteiras que contêm as palavras-chave, selecione a opção Cor do Conteúdo da Célula).
3. Em seguida, clique no botão Ok e todos os textos especificados serão destacados conforme mostrado na captura de tela abaixo:
Nota: Este recurso não diferencia maiúsculas de minúsculas. Se você deseja destacar o texto diferenciando maiúsculas de minúsculas, marque Diferenciar Maiúsculas de Minúsculas na caixa de diálogo Marcar Palavra-chave.
Destacar texto específico dentro de uma célula com base em outro texto com código VBA
Aqui está outra situação: tenho duas colunas, onde a primeira contém as cadeias de texto e a segunda contém o texto específico. Agora, preciso destacar o texto relativo na primeira coluna com base no texto específico da segunda coluna para cada linha.
1. Pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Destacar parte do texto dentro de uma célula com base em outro texto:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Após colar o código, pressione a tecla F5 para executá-lo, uma caixa de aviso aparecerá lembrando que você deve selecionar o intervalo de dados que contém tanto a cadeia de texto quanto o texto específico que deseja destacar e utilizar como base, veja a captura de tela:
4. E então clique no botão OK, todo o texto correspondente na primeira coluna com base no texto específico da segunda coluna terá sido colorido de vermelho conforme mostrado na captura de tela abaixo:
Mais artigos relacionados:
- Negritar Parte do Texto ao Concatenar Duas Colunas no Excel
- Na planilha do Excel, após concatenar dois valores de células com fórmulas, você pode perceber que não é possível colocar em negrito parte do texto na célula combinada pela fórmula. Isso pode ser irritante às vezes, como você poderia colocar em negrito parte do texto ao concatenar duas colunas no Excel?
- Concatenar Colunas de Células e Manter a Cor do Texto no Excel
- Como todos sabemos, ao concatenar ou combinar colunas de células em uma única coluna, a formatação da célula (como cor da fonte do texto, formatação de números, etc.) será perdida. Este artigo apresentará alguns truques para combinar as colunas de células em uma só e manter a cor do texto da forma mais fácil possível no Excel.
- Exibir Texto Específico Com Base nos Valores de Outra Coluna
- Suponha que eu tenha uma lista de números e agora quero exibir algum texto específico em outra coluna com base nesses números da coluna. Por exemplo, se o número da célula estiver entre 1-100, quero que o texto “Diminuição” seja exibido na célula adjacente; se o número estiver entre 101-200, o texto “Estável” será exibido; e se o número for maior que 200, o texto “Aumento” será exibido conforme mostrado na captura de tela abaixo. Para resolver essa tarefa no Excel, as seguintes fórmulas neste artigo podem ajudá-lo.
- Somar Células com Texto e Números no Excel
- Por exemplo, tenho uma lista de valores contendo strings numéricas e textuais, e agora quero somar apenas os números com base no mesmo texto, observe a captura de tela a seguir. Normalmente, você não pode somar os valores na lista com strings de texto diretamente, aqui vou apresentar algumas fórmulas para lidar com essa tarefa.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins