Llamada a subrutinas con más de 1 argumento. Visual Basic Excel

Estoy programando en Visual Basic con la Excel. Ya he llegado a un programa que realiza lo que quiero (y parece que lo hace bien). Pero después quiero modificar un poco el código y hacerlo más compacto, de forma que voy creando funciones y subrutinas para no repetir tantas líneas de código.

Tuve un problema cuando creé una subrutina que necesitaba dos argumentos para ejecutarse, ya que Visual Basic no me dejaba llamar a esa subrutina, hasta que encontré la manera correcta de hacerlo.

Lo mejor es que ponga un ejemplo.  En este caso la suma de dos números, y que lo escriba en la celda A1 de la Hoja1. Esta subrutina será llamada desde otra que será la principal, que pedirá esos dos números al usuario:

Sub suma(a As Integer, b As Integer)

Dim sum As Integer

sum = a + b

Hoja1.Cells(1,1)=sum

End Sub

Sub principal()

Dim sum1 As Integer, sum2 As Integer

sum1 = InputBox (“Primer sumando:”)

sum2 = InputBox (“Segundo sumando:”)

suma (sum1), sum2

Ens Sub

Lo curioso a la hora de llamar a una subrutina es que en lugar de escribir el nombre de la misma y entre parentesis sus argumentos separados por comas, se escribe el nombre de la subrutina, entre paréntesis el primer argumento y separados por comas los restantes.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: