VBA (Visual Basic para Aplicaciones ) incluye la capacidad de escribir las instrucciones creando una macro que imitar utilizando una calculadora para introducir una serie de números y luego calcular el promedio . El código es sólo 13 líneas. Puede ser útil en algunos de los programas de Microsoft Office sin una calculadora integrada . Desde Excel incluye una función normal, no habría ninguna razón para utilizar esta macro en Excel. Sin embargo , como en este ejemplo, cuando la macro se basa en Microsoft Word , puede tener algún sentido. Instrucciones
1

Abra un programa de Microsoft Office que soporte VBA (Visual Basic para Aplicaciones ) . Para este ejemplo , utilice Microsoft Word.
2

clic " desarrolladores" seguido de " Visual Basic ", que aparece en el extremo izquierdo de un menú que aparece en el grupo desarrollador . Se abrirá la ventana de edición de VBA
3

Introduzca las siguientes líneas de código exactamente como aparecen a continuación: .

Sub AverageMyNumbers () Dim strData como stringDim i, sglNbr , sglSubT , sglAverage Como Singlei = 0Do hasta strData = " X" strData = InputBox ("Escriba los números para ser promediados , uno a la vez , al pulsar ' Enter' para pasar al siguiente número. Introduzca un capital X cuando haya terminado. " ;) sglNbr = Val ( strData ) sglSubT = sglNbr + sglSubTi = i + 1LoopsglAverage = sglSubT /( i - 1 ) MsgBox ( " El promedio de estos números es" & sglAverage ) End Sub
4

probar la precisión del programa por la inclusión de una serie de números en el papel, por un total de ellos, y dividiendo por el número de elementos individuales. Pulse la tecla "F5 " para ejecutar la macro y calcular promedios. Siga las instrucciones e introduzca la misma serie de números , que termina con una X el capital Si los resultados no coinciden, comprobar la exactitud del código que ha introducido , comparándolo con el Paso 3 .
5

Click en " Macros " en el documento de Word . Guardar la macro en el " normal.dotm " si quieres usarlo en todos los documentos de Word . Existen otras opciones como guardar sólo para su uso en el documento activo , el ahorro como parte de una plantilla específica , o el ahorro en todas las plantillas activas y documentos.