RE:Macro Parametros Entrada
Pues seria = que en visual
Ejemplo de la instrucción Function
En este ejemplo se utiliza la instrucción Function para declarar el nombre, los argumentos y el código que forman el cuerpo de un procedimiento Function. El último ejemplo utiliza argumentos Optional inicializados.
' La siguiente función definida por el usuario devuelve
' la raíz cuadrada del argumento que se le pasa.
Function CalculaRaizCuadrada(ArgNumerico As Double) As Double
If ArgNumerico < 0 Then ' Se evalúa el argumento.
Exit Function ' Salida hacia el procedimiento.
Else
CalculaRaizCuadrada = Sqr(ArgNumerico) ' Devuelve la raíz cuadrada
End If
End Function
El uso de la palabra clave ParamArray permite que una función acepte un número variable de argumentos. En la siguiente definición, PrimerArg se transfiere por valor.
Function CalcSum(ByVal PrimerArg As Integer, ParamArray OtrosArgs())
Dim ValorDevuelto
' Si se invoca la función como:
ValorDevuelto = CalcSum(4, 3 ,2 ,1)
' Las variables locales obtienen los valores siguientes: PrimerArg = 4,
' OtrosArgs(1) = 3, OtrosArgs(2) = 2, y así sucesivamente, suponiendo que el límite inferior
' predeterminado para matrices es igual a 1
Los argumentos Optional pueden tener valores predeterminados y tipos distintos de Variant.
' Si los argumentos de una función se definen como:
Function MiFunc(MiCad As String, Optional MiArg1 As _ Integer = 5, Optional MiArg2 = "Pepa")
Dim RetVal
' La función se puede invocar de las formas siguientes:
RetVal = MiFunc("Hola", 2, "Mundo") ' Se proporcionan los 3 argumentos.
RetVal = MiFunc("Prueba", , 5) ' Se omite el segundo argumento.
' Los argumentos uno y tres utilizan argumentos con nombre.
RetVal = MiFunc(MiCad:="Hola ", MiArg1:=7)
------------- o --------------------
Ejemplo de la instrucción Sub
En este ejemplo se utiliza la instrucción Sub para declarar el nombre, los argumentos y el código que forman el cuerpo del procedimiento Sub.
' Definición del procedimiento Sub.
' Procedimiento Sub con dos argumentos.
Sub SubAreaPC(Largo, Ancho)
Dim Area As Double ' Declara la variable local.
If Largo = 0 Or Ancho = 0 Then
' Si cualquier argumento = 0.
Exit Sub ' Sale inmediatamente de Sub.
End If
Area = Largo * Ancho ' Calcula el área del rectángulo.
Debug.Print Area ' Imprime el área en la ventana de depuración.
End Sub
Servido
Estamos en contac...