¿Cómo resaltar texto específico dentro de una celda en función de otro texto?
En Excel, puede ser fácil para nosotros resaltar las celdas en función de un texto específico, pero, aquí, quiero resaltar un texto específico dentro de una celda para resaltarlo, pero no toda la celda. Esto puede resultar problemático para la mayoría de nosotros. En este artículo, hablaré sobre algunos trucos para resolver este trabajo en Excel.
Resalte uno o más texto específico dentro de varias celdas con código VBA
Por ejemplo, tengo una variedad de cadenas de texto y ahora quiero resaltar el texto específico "Sky”En estas celdas para obtener el resultado como se muestra en las siguientes capturas de pantalla:
Para resaltar solo una parte del texto dentro de una celda, el siguiente código VBA puede ayudarlo.
1. Seleccione las celdas en las que desea resaltar el texto específico y luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: resalte una parte del texto dentro de una celda:
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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que ingrese el texto que desea resaltar solo, vea la captura de pantalla:
4. Y luego haz clic OK botón, todo el texto que especificó se ha resaltado solo dentro de las celdas, vea la captura de pantalla:
Código de VBA: resalte varias palabras clave de cadenas 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
Luego, en el cuadro emergente, ingrese las palabras clave que desea resaltar (separe las palabras con una coma), vea la captura de pantalla:
Y luego, haga clic en OK botón, las palabras especificadas se han resaltado a la vez, ver capturas de pantalla:
Note: Los códigos anteriores distinguen entre mayúsculas y minúsculas.
Resalte uno o más textos específicos dentro de varias celdas con una característica sorprendente
Si no está familiarizado con el código en Excel, aquí presentaré una herramienta fácil: Kutools for Excel, Con su Marcar palabra clave función, puede resaltar una o más palabras clave específicas a la vez dentro de las celdas.
Después de instalar Kutools for Excel, haga lo siguiente:
1. Hacer clic Kutools > Texto > Marcar palabra clave, ver captura de pantalla:
2. En la Marcar palabra clave cuadro de diálogo, realice las siguientes operaciones:
- Seleccione el rango de datos que desea usar del Gama de Colores caja de texto;
- Seleccione las celdas que contienen las palabras clave que desea resaltar, también puede ingresar las palabras clave manualmente (separadas por comas) en el Palabra clave cuadro de texto
- Por último, debe especificar un color de fuente para resaltar los textos con una marca de verificación Marcar colores de palabras clave opción. (Para colorear todas las celdas que contienen las palabras clave, seleccione el Marque los colores del contenido de la celda opción)
3. Luego, haz clic Ok , todos los textos especificados se han resaltado como se muestra a continuación:
Note: Esta función no distingue entre mayúsculas y minúsculas, si desea resaltar el texto con mayúscula Coincidencia existentes Marcar palabra clave caja de diálogo.
Resalte texto específico dentro de una celda basado en otro texto con código VBA
Aquí hay otra situación, tengo dos columnas en las que la primera columna contiene las cadenas de texto y la segunda columna es el texto específico, ahora, necesito resaltar el texto relativo en la primera columna según el texto específico en la segunda columna para cada fila.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: resalte una parte del texto dentro de una celda en función de otro 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. Después de pegar el código y presione F5 para ejecutarlo, aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que contiene la cadena de texto y el texto específico que desea resaltar y en base, vea la captura de pantalla:
4. Y luego haz clic OK , todo el texto correspondiente en la primera columna basado en el texto específico en la segunda columna se ha coloreado en rojo como la siguiente captura de pantalla:
Artículos más relativos:
- Texto de parte en negrita cuando se concatenan dos columnas en Excel
- En la hoja de cálculo de Excel, después de concatenar dos valores de celda con fórmulas, es posible que no aparezca en negrita parte del texto en la celda de fórmula combinada. Esto puede ser molesto a veces, ¿cómo podría poner el texto en negrita al concatenar dos columnas en Excel?
- Concatenar columnas de celda y mantener el color del texto en Excel
- Como todos sabemos, al concatenar o combinar columnas de celdas en una columna, el formato de celda (como el color de la fuente del texto, el formato de los números, etc.) se perderá. En este artículo, presentaré algunos trucos para combinar las columnas de las celdas en una y mantener el color del texto lo más fácilmente posible en Excel.
- Mostrar texto específico basado en valores en otra columna
- Supongamos que tengo una lista de números, ahora quiero mostrar un texto específico en otra columna basada en los números de esta columna. Por ejemplo, si el número de celda está entre 1 y 100, quiero que el texto "Disminuir" se muestre en la celda adyacente, si el número está entre 101 y 200, se muestra un texto "Estable" y si el número es mayor que 200 , se muestra un texto "Aumentar" como se muestra en la siguiente captura de pantalla. Para resolver esta tarea en Excel, las siguientes fórmulas de este artículo pueden ayudarlo.
- Sumar celdas con texto y números en Excel
- Por ejemplo, tengo una lista de valores que contienen cadenas numéricas y textuales, ahora, quiero sumar solo los números basados en el mismo texto, mira la siguiente captura de pantalla. Normalmente, no puede sumar los valores en la lista con una cadena de texto directamente, aquí, le presentaré algunas fórmulas para lidiar con esta tarea.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!