¿Cómo visualizar y devolver el color de fondo junto con el valor de búsqueda en Excel?
Supongamos que tiene una tabla como se muestra a continuación. Ahora desea verificar si un valor especificado está en la columna A y luego devolver el valor correspondiente junto con el color de fondo en la columna C. ¿Cómo lograrlo? El método del artículo puede ayudarlo a resolver el problema.
Vlookup y devuelve el color de fondo con el valor de búsqueda por función definida por el usuario
Vlookup y devuelve el color de fondo con el valor de búsqueda por función definida por el usuario
Haga lo siguiente para buscar un valor y devolver su valor correspondiente junto con el color de fondo en Excel.
1. En la hoja de trabajo que contiene el valor que desea visualizar, haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual. Ver captura de pantalla:
2. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie el código VBA a continuación en la ventana Código.
Código de VBA 1: Vlookup y devuelve el color de fondo con el valor de búsqueda
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub3. Luego haga clic recuadro > Móduloy copie el código 2 de VBA a continuación en la ventana del módulo.
Código de VBA 2: Vlookup y devuelve el color de fondo con el valor de búsqueda
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function4. Después de insertar los dos códigos, haga clic en Herramientas > Referencias. Entonces revisa el Tiempo de ejecución de Microsoft Script en el cuadro Referencias - VBAProject caja de diálogo. Ver captura de pantalla:
5. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana y vuelva a la hoja de trabajo.
6. Seleccione una celda en blanco adyacente al valor de búsqueda y luego ingrese la fórmula =LookupKeepColor(E2,$A$1:$C$8,3) en la barra de fórmulas y luego presione la tecla Intro.
Note: En la fórmula, E2 contiene el valor que buscará, $ A $ 1: $ C $ 8 es el rango de la tabla y el número 3 significa que el valor correspondiente que devolverá se ubica en la tercera columna de la tabla. Cámbielos como necesite.
7. Siga seleccionando la primera celda de resultados y arrastre el controlador de relleno hacia abajo para obtener todos los resultados junto con su color de fondo. Ver captura de pantalla.
Artículos relacionados:
- ¿Cómo copiar el formato de origen de la celda de búsqueda cuando se usa Vlookup en Excel?
- ¿Cómo visualizar y devolver el formato de fecha en lugar de un número en Excel?
- ¿Cómo usar vlookup y sum en Excel?
- ¿Cómo vlookup devuelve el valor en la celda adyacente o siguiente en Excel?
- ¿Cómo visualizar el valor y devolver verdadero o falso / sí o no 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!
