¿Cómo resaltar todas las celdas a las que hace referencia una fórmula en Excel?
Este artículo habla de resaltar todas las celdas a las que hace referencia una fórmula en Excel. Siga los dos métodos a continuación para hacerlo.
Resalte todas las celdas a las que hace referencia una fórmula con la tecla de método abreviado
Resalte todas las celdas a las que hace referencia una fórmula con código VBA
Resalte todas las celdas a las que hace referencia una fórmula con la tecla de método abreviado
Esta sección le recomendará que utilice la tecla de método abreviado para seleccionar todas las celdas a las que hace referencia una fórmula, y luego rellenarlas con color manualmente.
1. Suponiendo que E1 es una celda de fórmula, y debe resaltar todas las celdas a las que hizo referencia. Seleccione la celda de fórmula E1, luego presione Ctrl + [ (el corchete abierto) teclas simultáneamente.
2. Ahora que las celdas a las que hace referencia esta fórmula están seleccionadas, especifique un color de relleno para resaltarlas. Ver captura de pantalla:
Resalte todas las celdas a las que hace referencia una fórmula con código VBA
También puede ejecutar el código VBA para resaltar todas las celdas a las que hace referencia una fórmula en Excel.
1. Prensa otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código de VBA: resalte todas las celdas a las que hace referencia una fórmula en Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub3. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione una celda de fórmula o varias celdas de fórmula en las que debe resaltar las celdas de referencia y luego haga clic en el OK botón. Ver captura de pantalla:
Ahora todas las celdas referenciadas basadas en la (s) celda (s) de fórmula seleccionada se resaltan en rojo inmediatamente como se muestra a continuación.
Artículos relacionados:
- ¿Cómo mantener constante la referencia de celda de fórmula en Excel?
- ¿Cómo hacer referencia al nombre de la pestaña en la celda en Excel?
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!
