Funcion Contar por Color en Visual Basic: SOLUCIONADO

Profundizando en la Función de contar por color en Visual Basic

Desarrollemos nuestro entendimiento de Contar por color en Visual Basic, una función particularmente útil en la manipulación y análisis de datos.

Aplicando la función contar por color en la práctica

Si estuviéramos trabajando con una hoja de Excel por ejemplo, repleta de celdas de diferentes colores, y estuviéramos interesados en cuantificar cuántas celdas contienen un cierto color, la Función de contar por color sería nuestra aliada perfecta.

La estructura básica de esta función sería algo como:

Function CountColorCells(rng As Range, color As Range) As Long
    Dim cell As Range
    Dim iCol As Integer
    iCol = color.Interior.color
    For Each cell In rng
        If cell.Interior.color = iCol Then
    CountColorCells = CountColorCells + 1
        End If
    Next cell
End Function

Esencialmente, lo que hace esta función es contar y retornar el número de celdas en un rango dado (rng) que tienen el mismo color que una celda de referencia (color).

Lo que sigue después de definir la función

Ahora, en Visual Basic, una vez que hemos definido nuestra función, tendríamos que ir a nuestra hoja de Excel y escribir el nombre de nuestra función seguido de dos argumentos. Hágamoslo:

=CountColorCells(A1:A50,A1)

En este caso, estamos diciendo que queremos contar todas las celdas del rango A1:A50 que tienen el mismo color que la celda A1.

Adapta la Función para tus necesidades

Lo hermoso de Visual Basic es su flexibilidad. Podríamos modificar la función anterior para contar todas las celdas que NO tienen el mismo color que nuestra celda de referencia:

Function CountNonColorCells(rng As Range, color As Range) As Long
    Dim cell As Range
    Dim iCol As Integer
    iCol = color.Interior.color
    For Each cell In rng
        If Not cell.Interior.color = iCol Then
    CountNonColorCells = CountNonColorCells + 1
        End If
    Next cell
End Function

Como puedes ver, lo único que hemos hecho ha sido añadir el operador Not en la condición de nuestra función.

Así, tenemos un panorama bastante completo del potencial de la Función de contar por color de Visual Basic para manipulación de datos en Excel.

Esta web utiliza cookies propias y de terceros para su correcto funcionamiento y para fines analíticos y para mostrarte publicidad relacionada con sus preferencias en base a un perfil elaborado a partir de tus hábitos de navegación. Al hacer clic en el botón Aceptar, acepta el uso de estas tecnologías y el procesamiento de tus datos para estos propósitos. Más información
Privacidad