Funcion para sumar digitos de un numero en excel vba

Vamos a crear una función para sumar dígitos de un numero en excel vba la cual la realizaremos usando vba (Visual basic para aplicaciones)

Ingresaremos a nuestro editor de vba y agregamos un modulo en el cual pegaremos el siguiente código que esta explicado en los comentarios.

Function SumarDigitos(Numero As Double)
'Recorrer lac cantidad de digitos que tiene el numero
For i = 1 To Len(Numero)
    'Almacenar la suma en la funcion SumarDigitos
    SumarDigitos = SumarDigitos + Val(Mid(Numero, i, 1))
Next
End Function

Para usar la función debemos dirigirnos a cualquier celda de nuestra hoja y escribir la funcion
=SumarDigitos(Numero) donde Numero es un valor numerico o referencia a la celda de la cual se desea sumar sus digitos.

Veamos el ejemplo

Función para sumar los dígitos de un número

Se debe tomar en cuenta lo siguiente:
Muestra cero cuando se quiere sumar valores que no sean numéricos, como caracteres especiales o letras.
Si se ingresa un numero negativo, este no se toma en cuenta.