Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Función Suma de Dígitos

| 1 comentario

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

Un comentario

  1. Hola Fernando muy útil tu fórmula. Quería enviarte un mail pero no encontré donde, además es muy completo el BLOG

Deja una respuesta

Los campos requeridos estan marcados con *.