Contar el número de celdas con Color de celda específica con VBA

Ha finalizado el soporte técnico para Office 2003

Microsoft puso fin al soporte técnico para Office 2003 el 8 de abril de 2014. Este cambio ha afectado a las actualizaciones de software y las opciones de seguridad. Sepa qué significa esto en su caso y cómo puede mantenerse protegido.

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 2815384

Acerca del autor:

MVPEn este artículo se proporciona por el MVP Raddini Rahayu. Microsoft está muy agradecido ese MVP que compartan de forma proactiva su experiencia profesional con otros usuarios. El artículo se contabilizaría en Sitio Web de MVP o blog más adelante.
Síntomas
En la fórmulade Microsoft Excel, sabemos que en estadísticas categoría que hay una función que cuenta el número de celdas dentro de un rango que cumplen la condición de dar, contar.Si. Criterios de esa función pueden formatearse como texto o número. Pero, de hecho, podría ser no sólo texto o número, sino también colores de celda. Entonces, ¿cómo podemos obtener los resultados con ese criterio mientras que la función contar.Si no puede ser las soluciones.


Solución
Aunque no utilicemos la función contar.Si , aún podemos obtener los resultados con el uso de VBA. Con VBA, podemos crear una FDU (función definida por el usuario) y guardarla en el archivo de Complemento, por lo que se puede utilizar para todos los libros y otro equipo.


Qué hacer
Aquí los pasos para crear el contador de color de celda UDF:

  1. Abrir Microsoft Excel a continuación, presione ALT + F11 para mostrar Editor de Visual Basic ventana.
  2. En Insertar menú, seleccione Módulo Para crear un módulo. A continuación, escriba el siguiente script:
    Function CountCcolor(range_data As range, criteria As range) As Long    Dim datax As range    Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data    If datax.Interior.ColorIndex = xcolor Then        CountCcolor = CountCcolor + 1    End IfNext dataxEnd Function

  3. Cerrar ventana VBE y a Excel.
  4. Para probar el archivo UDF, crear algunos datos de ejemplo o puede descargar este archivo de ejemplo aquí.
  5. En la celda D3, escriba la función: = CountCcolor(range_data, criterios)
    Seleccione la celda en argumen range_data, C2 para C51
    en argumen de criterios, seleccione la celda F1


  6. Presione Entrada y en la celda F2 el resultado es 6. Significa que el número de celdas con color de celda azul es de 6 celdas.


  7. También puede probar otro color. Cambiar el color de celda F1 con cualquier color que desee de los datos mediante Copiar formato Para obtener el mismo color.


  8. También puede empaquetar el archivo UDF, para que la función pueda utilizarse en otro libro y equipo. Siga estos pasos:


    Paso 1: Guardar el libro

    1. Rellenar el nombre que desee a con nombre en el Nombre de archivo cuadro. Aquí nombre Color de la celda de recuento.
    2. Para el tipo de archivo, elegir Complemento de Excel (.xlam) formato.



      Nota:: Puede guardar el archivo de complemento en cualquier lugar que desee. Pero si desea que aparezcan integradas en Excel, debe guardarlo en la ubicación predeterminada. En mi equipo con sistema operativo Windows 7, la ubicación predeterminada para las versiones de Microsoft Excel es: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns


    Paso 2: Instalar el complemento

    1. Abrir Microsoft Excel en el equipo donde desea instalar el complemento Open Complementos cuadro de diálogo haciendo clic en Complemento en el Developer ficha.
    2. En el Complemento cuadro de diálogo, haga clic en Examinar botón de modo Examinar se muestra el cuadro de diálogo.


    3. Ir para la ubicación del archivo de ese archivo se guarda. Elija el archivo y, a continuación, haga clic en Abrir.
    4. En el Complementos cuadro de diálogo Asegúrese de que la casilla de verificación complemento es unchecked. Haga clic en el cuadro de diálogo Correcto.

Ahora la FDU de Recuento de Color de Celda se ha instalado y esta listo para usar.

Advertencia de comunidad de contenido de soluciones

MICROSOFT CORPORATION Y/O SUS RESPECTIVOS PROVEEDORES GARANTIZAN LA IDONEIDAD, FIABILIDAD O EXACTITUD DE LA INFORMACIÓN Y LOS GRÁFICOS RELACIONADOS CONTENIDOS EN ESTE DOCUMENTO. DICHA INFORMACIÓN Y LOS GRÁFICOS RELACIONADOS SE PROPORCIONAN "TAL CUAL" SIN GARANTÍA DE NINGÚN TIPO. MICROSOFT Y/O SUS RESPECTIVOS PROVEEDORES RENUNCIAN A TODA GARANTÍA Y CONDICIÓN RESPECTO A ESTA INFORMACIÓN Y GRÁFICOS RELACIONADOS, INCLUIDAS TODAS LAS GARANTÍAS IMPLÍCITAS Y LAS CONDICIONES DE COMERCIABILIDAD, IDONEIDAD PARA UN FIN DETERMINADO, ESFUERZO RAZONABLE, TÍTULO Y AUSENCIA DE INFRACCIÓN. USTED ACEPTA ESPECÍFICAMENTE QUE EN NINGÚN CASO MICROSOFT O SUS PROVEEDORES SERÁN RESPONSABLES DE DAÑOS DIRECTOS, INDIRECTOS, PUNITIVOS, INCIDENTALES, ESPECIALES, CONSECUENTES NI NINGÚN DAÑO, INCLUIDOS, SIN LIMITACIÓN, DAÑOS POR PÉRDIDA DE USO, DATOS O BENEFICIOS, QUE SURJA DE O EN CUALQUIER FORMA RELACIONADA CON EL USO DE O INCAPACIDAD DE USO DE LA INFORMACIÓN Y LOS GRÁFICOS RELACIONADOS CONTENIDOS EN ESTE DOCUMENTO , YA SEA BASADO EN CONTRATO, AGRAVIO, NEGLIGENCIA, RESPONSABILIDAD ESTRICTA O DE LO CONTRARIO, INCLUSO SI TIENE MICROSOFT O CUALQUIERA DE SUS PROVEEDORES AVISADO DE LA POSIBILIDAD DE DAÑOS.

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 2815384 - Última revisión: 05/15/2016 18:50:00 - Revisión: 10.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Microsoft Excel 2013, Excel 2016

  • kbmvp kbcommunity kbstepbystep kbmt KB2815384 KbMtes
Comentarios