Recuento del número de celdas con un color de celda específico mediante VBA

  • Artículo
  • Se aplica a:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Resumen

En la pestaña Fórmulas de Microsoft Excel, sabemos que en la categoría Más funciones>estadísticas hay una función denominada COUNTIF que cuenta el número de celdas dentro de un rango que cumplen una condición determinada. Los criterios de esa función se limitan a texto o números. Sin embargo, con VBA podemos crear una función para contar el número de celdas con otros criterios, como el color de celda.

COUNTIF

Más información

Con VBA, se puede crear y guardar una función definida por el usuario (UDF) en un archivo de complemento para que se pueda usar en otros libros y transferirse a otros equipos.

Creación de una UDF

Estos son los pasos para crear una UDF para contar el color de la celda:

  1. Abra Microsoft Excel y presione Alt+F11 para mostrar la ventana Editor de Visual Basic (VBE).

  2. En el menú Insertar , 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 Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    En el menú Insertar, seleccione Módulo para crear un módulo. A continuación, escriba el siguiente script.

  3. Cierre la ventana VBE para volver a Excel.

  4. Para probar la UDF, cree datos de ejemplo que contengan una columna de celdas en varios colores.

  5. En la celda D3, escriba la función:

=CountCcolor(range_data,criteria)

  • En el argumento "range_data", seleccione la celda C2 a C51.

  • En el argumento "criteria", seleccione la celda F1.

    En la celda D3, escriba la función : =CountCcolor

  1. Presione Entrar. El resultado en la celda F2 es 6. Esto significa que el número de celdas sombreadas en azul es 6.

    Presione Entrar 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.

  2. Puede probar con otros colores. Cambie el color de la celda F1 con cualquier color que desee de los datos mediantecolor de relleno deinicio>.

    También puede probar otro color. Cambie el color de la celda F1 con cualquier color que desee de los datos mediante Format Painter para obtener el mismo color.

  3. También puede comprimir la UDF para que la función se pueda usar en otro libro o en otro equipo. Para hacerlo, siga estos pasos:

    Paso 1: Guardar el libro

    a. Seleccione Archivo y, a continuación, Guardar como. (Seleccione Examinar si es necesario).

    b. Seleccione Excel Add-In (.xlam) como formato y asigne un nombre al archivo, como CountCcolor.

    Nota:

    Puede guardar el archivo Add-In en cualquier lugar que desee. Pero para que aparezca como un Add-In dentro del programa de Excel, guárdelo en la ubicación predeterminada. En Windows 7, la ubicación predeterminada para cualquier versión de Microsoft Excel es: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Paso 2: Instalar el complemento

    a. Abra Microsoft Excel en el equipo donde desea instalar el complemento.

    b. Abra el cuadro de diálogo Add-Ins seleccionando Complementos de Excel para Excel 2013 y versiones posteriores en la pestaña Desarrollador. (Complementos en Excel 2010).

    c. En el cuadro de diálogo Complementos , seleccione Examinar. En el cuadro de diálogo Add-In, haga clic en el botón Examinar para que se muestre el cuadro de diálogo Examinar.

    d. Vaya a la ubicación del archivo donde se guarda el archivo Add-In (como una unidad USB o una carpeta basada en la nube). Elija el archivo y, a continuación, seleccione Abrir.

    e. En el cuadro de diálogo Add-Ins, asegúrese de que la casilla del complemento está desactivada. A continuación, seleccione Aceptar. En el cuadro de diálogo Add-Ins, asegúrese de que la casilla del complemento está desactivada. A continuación, seleccione Aceptar.

La UDF Count Cell Color está instalada y lista para usarse. Podrá acceder a esta función en cualquier momento colocando el cursor en cualquier celda de la hoja de cálculo y escribiendo:

=CountCcolor(range_data,criteria)

Aviso legal de activación de soluciones de comunidad

MICROSOFT CORPORATION Y/O SUS RESPECTIVOS PROVEEDORES NO HACEN NINGUNA REPRESENTACIÓN SOBRE LA IDONEIDAD, CONFIABILIDAD O PRECISIÓN DE LA INFORMACIÓN Y LOS GRÁFICOS RELACIONADOS CONTENIDOS AQUÍ. TODA DICHA INFORMACIÓN Y GRÁFICOS RELACIONADOS SE PROPORCIONAN "TAL CUAL" SIN GARANTÍA DE NINGÚN TIPO. MICROSOFT Y/O SUS RESPECTIVOS PROVEEDORES RENUNCIAN POR EL PRESENTE A TODAS LAS GARANTÍAS Y CONDICIONES CON RESPECTO A ESTA INFORMACIÓN Y GRÁFICOS RELACIONADOS, INCLUIDAS TODAS LAS GARANTÍAS IMPLÍCITAS Y CONDICIONES DE COMERCIABILIDAD, IDONEIDAD PARA UN PROPÓSITO DETERMINADO, ESFUERZO PROFESIONAL, TÍTULO Y NO INFRACCIÓN. USTED ACEPTA ESPECÍFICAMENTE QUE EN NINGÚN CASO MICROSOFT NI SUS PROVEEDORES SERÁN RESPONSABLES DE LOS DAÑOS DIRECTOS, INDIRECTOS, PUNITIVOS, INCIDENTALES, ESPECIALES, CONSECUENTES NI DE NINGÚN TIPO, INCLUIDOS, SIN LIMITACIÓN, LOS DAÑOS POR PÉRDIDA DE USO, DATOS O BENEFICIOS, DERIVADOS DE O DE CUALQUIER MANERA RELACIONADOS CON EL USO O LA INCAPACIDAD DE USAR LA INFORMACIÓN Y LOS GRÁFICOS RELACIONADOS CONTENIDOS AQUÍ, YA SEA POR CONTRATO, AGRAVIO, NEGLIGENCIA, RESPONSABILIDAD ESTRICTA O DE OTRO MODO, INCLUSO SI MICROSOFT O CUALQUIERA DE SUS PROVEEDORES HA SIDO INFORMADO DE LA POSIBILIDAD DE DAÑOS.