¿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 30 días de prueba gratis! |
 |
| Kutools for Excel: con más de 300 prácticos complementos de Excel, gratis para probar sin limitación en 30 día. |
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
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
