47 lines
2.1 KiB
HTML
47 lines
2.1 KiB
HTML
<!-- 21 -->
|
|
<p>
|
|
Esta función a partir de un criterio y un color de celda suma los valores de un rango, los parámetros que requiere
|
|
son 3:
|
|
</p>
|
|
<ol class="lst">
|
|
<li><b>color_de_referencia</b>: celda que contiene el color de relleno de referencia.</li>
|
|
<li><b>concepto_de_referencia</b>: celda que contiene el criterio a ser sumado.</li>
|
|
<li><b>rango_de_colores_y_conceptos </b>: Solo el rango de conceptos y colores.</li>
|
|
<li><b>columnas_de_desplazamiento </b>: es un valor númerico entero, indica el número de columnas a la derecha del
|
|
rango_de_colores_y_conceptos donde estan los valores a ser sumados.</li>
|
|
</ol>
|
|
<p>
|
|
Ejemplo, en el rango A2:A41 tengo diferentes conceptos con diferentes colores, y en el rango B2:B41 tengo los
|
|
valores
|
|
númericos a ser sumados, en la celda D1 tengo el criterio "Bolígrafo" con fondo verde, quiero saber cuanto es la
|
|
sumatorioa considerando ese concepto y ese color de relleno, entonces en la celda E1 hago el llamado de la función
|
|
donde:
|
|
</p>
|
|
<ol class="lst">
|
|
<li><b>color_de_referencia</b>: D1</li>
|
|
<li><b>concepto_de_referencia</b>: D1</li>
|
|
<li><b>rango_de_colores_y_conceptos </b>: A2:A41</li>
|
|
<li><b>columnas_de_desplazamiento </b>: 1</li>
|
|
</ol>
|
|
<p><b>=sumarPorColorYConcepto(D1,D1,$A$2:$A$41,1)</b></p>
|
|
|
|
<div class="img zoomable">
|
|
<img src="/static/source_imgs/excel/pst_7/1.png" alt="" style="height: 350px; width: auto;">
|
|
</div>
|
|
|
|
<pre><i class="bi bi-copy"> Copiar código</i>
|
|
<code class="code_lightMode">
|
|
Function sumarPorColorYConcepto(color_de_referencia, concepto_de_referencia, rango_de_colores_y_conceptos As Range, columnas_de_desplazamiento As Integer) As Double
|
|
'sumarPorColorYConcepto(Ctrl + Shift + A)-> para obtener en mini tooltip
|
|
Application.Volatile
|
|
Dim conteo As Double
|
|
Dim obj As Object
|
|
conteo = 0
|
|
For Each obj In rango_de_colores_y_conceptos
|
|
If obj.Interior.Color = color_de_referencia.Interior.Color And obj.Value = concepto_de_referencia.Value Then
|
|
conteo = conteo + obj.Offset(0, columnas_de_desplazamiento).Value
|
|
End If
|
|
Next obj
|
|
sumarPorColorYConcepto = conteo
|
|
End Function
|
|
</code></pre> |