Función Suma de Dígitos

En esta oportunidad se creará una función para "Sumar Dígitos de una celda en Excel" la cual puede ser de uso práctico para aquellas personas que deben de sumar dígitos de números enteros extensos. O en el caso de un matemático, por ejemplo: Sabe que si los múltiplos suman 9, el número es múltiplo de 9.

Para ello se debe programar en Visual Basic:

Function suma_digitos(Number)
Dim i As Integer
For i = 1 To Len(Number)
suma_digitos = suma_digitos + Val(Mid(Number, i, 1))
Next i
End Function

Pasos para la programación de la función en Visual Basic:

1.- Asignar nombre a la función, en éste caso la llamaremos "suma_digitos". Pudo haber sido otro nombre, siempre recordando que no debe dejarse espacios en blanco entre palabras.
2.- Declarar la variable, se sentencia con DIM. Seguido se nombra el tipo de dato, en éste caso como va a contar números enteros se debe utilizar "Integer" el cual tiene un tamaño de almacenamiento entero de 2 bytes y puede situarse en el intervalo de -32,768
3.- Emplear función "Len" que cumple la función de contar número de dígitos, en éste caso el número que lo direccionamos contar.
4.- Se emplea Mid porque devuelve el número de caracteres.Val el número contenido en una cadena.

Elizabeth Guardamino Zegarra

Función Sumar Dígitos