filmov
tv
Sumar según color de la celda - Función SumarPorColor (UDF)
Показать описание
En este video veremos la forma más sencilla de sumar los números de celdas según el color de las mismas, utilizando para ello una función definida por el usuario o UDF.
Mediante esta función UDF tendremos siempre la función dentro del catálogo de funciones (como si fuera una función propia de Excel) necesitando únicamente indicar como argumento el rango de las celdas de colores que queremos sumar y como segundo argumento una celda con el color que queremos sumar.
El código utilizado en el módulo es el siguiente:
---------------------------------------------------------------------------
Function SumarPorColor(rng As Range, colorCelda As Range) As Double
Dim celda As Range
Dim total As Double
Application.Volatile
For Each celda In rng
If celda.Interior.Color = colorCelda.Interior.Color Then
total = total + celda.Value
End If
Next celda
SumarPorColor = total
End Function
---------------------------------------------------------------------------
Mira también estos videos relacionados:
---------------------------------------------------------------------------
🔴 No olvides suscribirte al canal para estar al tanto de todas las novedades en:
----------------------------------------------------------------------------
📄 Artículo en la web:
----------------------------------------------------------------------------
Sígueme en:
----------------------------------------------------------------------------
Gracias por ver el vídeo y suscribirte al canal 😃
Activa también las notificaciones 🔔
#exceltutorial #tutorialexcel #exceludf
Mediante esta función UDF tendremos siempre la función dentro del catálogo de funciones (como si fuera una función propia de Excel) necesitando únicamente indicar como argumento el rango de las celdas de colores que queremos sumar y como segundo argumento una celda con el color que queremos sumar.
El código utilizado en el módulo es el siguiente:
---------------------------------------------------------------------------
Function SumarPorColor(rng As Range, colorCelda As Range) As Double
Dim celda As Range
Dim total As Double
Application.Volatile
For Each celda In rng
If celda.Interior.Color = colorCelda.Interior.Color Then
total = total + celda.Value
End If
Next celda
SumarPorColor = total
End Function
---------------------------------------------------------------------------
Mira también estos videos relacionados:
---------------------------------------------------------------------------
🔴 No olvides suscribirte al canal para estar al tanto de todas las novedades en:
----------------------------------------------------------------------------
📄 Artículo en la web:
----------------------------------------------------------------------------
Sígueme en:
----------------------------------------------------------------------------
Gracias por ver el vídeo y suscribirte al canal 😃
Activa también las notificaciones 🔔
#exceltutorial #tutorialexcel #exceludf
Комментарии