Note: The other languages of the website are Google-translated. Back to English

¿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.
doc determinar el índice de color 1

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.
doc determinar el índice de color 2

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
doc determinar el índice de color 3
doc determinar el índice de color 4

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:

doc determinar el índice de color 5
doc determinar el índice de color 6

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 Function

Resultado:
doc determinar el índice de color 7

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 Function

Resultado:
doc determinar el índice de color 8


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!
doc resaltar duplicado en las columnas 6
 
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:


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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Excelente Post, me ajudou. parabenes
Este comentario fue minimizado por el moderador en el sitio
Buen día,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Todos los códigos mueren ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
Este comentario fue minimizado por el moderador en el sitio
Lo siento, el sitio se traduce solo...

Me pregunto por qué esto no funciona con celdas coloreadas usando formato condicional.
Todos los programas en esta página dan un resultado "en blanco", por lo que no hay color aunque la celda esté coloreada.
Si coloreo la celda yo mismo en lugar del formato condicional, obtengo el resultado correcto, ¡pero también necesito el formato condicional!

¡Esperamos oír de usted!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL