34 lines
1.4 KiB
HTML
34 lines
1.4 KiB
HTML
<!-- 20 -->
|
|
<p>
|
|
Está función retorna una suma considerando un color dentro de un rango y los valores en cada una de ellas, ejemplo:
|
|
<br><br>
|
|
En el rango C1:C20 tenemos múltiples valores y cada cenda dentro del rango tiene diferente color de fondo, en la celda
|
|
E1 ponemos un color de fondo del cual queremos obtener
|
|
la sumatorio a partir del color y en la celda F1 hacemos el llamado de la función <b>=SUMARCOLOR(E1,$C$1:$C:20)</b> y
|
|
nos debe dar la suma del rango considerando los valores
|
|
de cada celda y el color de fondo de las celdas:
|
|
</p>
|
|
<div class="img zoomable">
|
|
<img src="/static/source_imgs/excel/pst_6/1.png" alt="" style="height: 350px; width: auto;">
|
|
</div>
|
|
|
|
<pre><i class="bi bi-copy"> Copiar código</i>
|
|
<code class="code_lightMode">
|
|
Function SUMARCOLOR(color As Range, rango As Range) As Long
|
|
'color: La celda que contiene el color a sumar
|
|
'rango: El rango de celdas a considerar en la suma
|
|
|
|
Dim resultado 'Almacenará el resultado de la suma
|
|
Dim celda As Range
|
|
|
|
'Recorrer cada celda del rango
|
|
For Each celda In rango
|
|
'Sumar si el color de la celda es igual al color especificado
|
|
If celda.Interior.ColorIndex = color.Interior.ColorIndex Then
|
|
resultado = resultado + celda.Value
|
|
End If
|
|
Next celda
|
|
|
|
SUMARCOLOR = resultado
|
|
End Function
|
|
</code></pre> |