¿Cómo determinar e identificar el índice de color de fondo de las celdas en Excel?
Cuando recibe una hoja con varias celdas de colores como se muestra a continuación, en algunos casos, es posible que desee identificar el índice de color de fondo de estas celdas de color. No hay una función incorporada que pueda determinar el índice de color de una celda, pero, en este artículo, presento algunos códigos VBA para resolver este trabajo en Excel rápidamente.
Identifica el color de la celda con VBA
Identifica el color de la celda con VBA
Siga los siguientes pasos para determinar el color de la celda por VBA.
1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo para abrir una nueva Módulo y pegue debajo del código VBA en el script en blanco. Ver captura de pantalla:
VBA: obtenga el código hexadecimal tradicional de la celda
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. Guarde el código y cierre la ventana de VBA. Seleccione una celda en blanco junto a la celda de color, escriba esta fórmula, = obtenerRGB1 (A16), luego arrastre el controlador de Autocompletar sobre las celdas que desea usar. Ver captura de pantalla:
 |
 |
Consejo: hay algunos otros códigos que pueden identificar el índice de color de la celda.
1. VBA: valor decimal para cada código
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End FunctionResultado:
2. VBA: valores decimales
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End FunctionResultado:
seleccione rápidamente valores duplicados o únicos en un rango de Excel |
| En la hoja de Excel, si tiene un rango que incluye algunas filas duplicadas, es posible que deba seleccionarlas o destacarlas, pero ¿cómo puede resolver rápidamente este trabajo? Si tiene Kutools for Excel, puedes usar el Seleccione Duplicar y Células únicas utilidad para seleccionar rápidamente los duplicados o valores únicos en el rango, o rellenar el fondo y el color de la fuente para los valores duplicados y únicos. ¡Haga clic para obtener una prueba gratuita de 30 días! |
 |
| Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días. |
Artículos relativos:
- ¿Cómo cambiar el color de la fuente según el valor de la celda en Excel?
- ¿Cómo colorear valores duplicados o filas duplicadas 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!
