<!-- 18 -->
<p>
  Esta función al igual que la de sumar por color la hice por que en un trabajo llevaban un registro en excel donde la
  clásificación era por dos categorías y
  por colores del relleno de la celda, y a veces eran varios colores, como los colores eran una constante y el rango
  era un rango variable pues lo mejor era hacer una
  función en lugar de hacer siempre filtrados por cada color: <br><br>
  En esta función para poder funcionar necesita que ingreses dos <a class="link" data-bs-toggle="modal"
    data-bs-target="#parametro">parámetros</a>, el primer parámetro es la celda que
  contiene el color que deseas obtener el conteo,
  el segundo parámetro es el rango que contiene las celdas con los colores a contar, ejemplo: <br><br>
  De la celda A1 a la celda A29 tenemos varios conceptos y varios colores pero nos interesa saber cuantas celdas
  tienen el color verde de relleno, entonces
  en la celda C1 colocamos el color verde (no importa si colocas texto en la celda solo valida el color de fondo), en
  la celda D1 hacemos el llamado de la función
  ingresando <b>=contarPorColor(C1,$A$1:$A$29)</b>.
</p>
<div class="img zoomable">
  <img src="/static/source_imgs/excel/pst_4/1.png" alt="" style="height: 350px; width: auto;">
</div>
<p>
  Te dejo el código de la <a class="link" data-bs-toggle="modal" data-bs-target="#udf">UDF</a> en caso de que quieras
  usarla o modificarla:
</p>

<pre><i class="bi bi-copy"> Copiar código</i>
<code class="code_lightMode">
Function contarPorColor(celda As Range, rango As Range) As Long
	Application.Volatile
	Dim conteo As Integer
	Dim obj As Object
	conteo = 0
	For Each obj In rango
	  If obj.Interior.Color = celda.Interior.Color Then
		conteo = conteo + 1
	  End If
	Next obj
	contarPorColor = conteo
End Function
</code></pre>