CONTAR LAS VECES QUE SE REPITE UN NÚMERO HASTA GENERAR OTRO NÚMERO

Hola a todos!:

Hace tiempo que no escribía nada, la verdad es que he estado muy ocupado con temas personales (y sigo estando), pero hoy he dicidido escribir un post de respuesta a una consulta:

Qué formula puedo utilizar para poder contar la cantidad de 6 que escribo de 0 a 1536? aclaración, 66 cuenta por 2 veces

Bien, para resolver este problema vamos a utilizar programación creando nuestra propia función (UDF).

Para este ejercicio he programado el siguiente código, aunque estoy seguro que se puede realizar con otros elementos.

Option Explicit
Function CONTAR_NUM(ByVal Fin, Numero)
    'Declaramos variables
    Dim i           As Long, j As Long, Total As Long
    Dim nCont       As String, Cont As Long
    'Recorremos del 0 al número elegido
    For i = 0 To Fin - 1
        Cont = Cont + 1
        'Por cada número lo recorremos
        For j = Len(Cont) To 1 Step -1
            'Identificamos cada número
            nCont = Mid(Cont, j, 1)
            'si Coincide con el número indicado, sumamos
            If nCont = Numero Then
                Total = Total + 1
            End If
        Next j
    Next i
    'Pasamos resultado a la función
    CONTAR_NUM = Total
End Function

Con esta función ya podemos responder a la consulta, que sería un total de 404 veces que se repite el 6.

Y esto es todo, aunque resulte un post muy breve, creo que la función desarrollada puede que os sea de utilidad en algún momento.

Descarga el archivo pulsando en:

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies