Unidad 4. VBA. Más estructuras (X)

Procedimientos que transfieren el control a otros procedimientos

Desde un procedimiento podemos efectuar llamadas a otros procedimientos o podemos transferir valores hacia otros procedimientos.

Ejemplo 22

El siguiente procedimiento PrPrin, llama al procedimiento Lectura que se encarga de leer el nombre de los meses (separado por coma) en una cadena, llama al procedimiento Decode que se encarga de almacenar los nombres de los meses en un arreglo unidimensional y termina llamando al procedimiento Prin que se encarga de imprimir el arreglo de los nombres de los meses.

Nota:

Para que los datos sean compartidos por todos los procedimientos, usamos DIM, externo a todo procedimiento, en forma global.

Dim Meses(12) As String

Dim Cadena As Variant

Sub PrPrin()

' Llama al procedimiento Lectura

Lectura

' Llama al procedimiento Decode

Decode

' Llama al procedimiento Prin

Prin

End Sub

Sub Lectura()

Cadena = InputBox("Ingrese los nombres de los meses, separado por coma", "Decodificación de meses")

End Sub

Sub Decode()

L = Len(Cadena)

I = 0

IPos = 1

Xmes = ""

While IPos <= L

If Mid(Cadena, IPOs, 1) = "," Or IPos = L Then

I = I + 1

Meses(I) = Xmes

Xmes = ""

Else

Xmes = Xmes + Mid(Cadena, IPos, 1)

End If

IPos = IPos + 1

Wend

End Sub

Sub Prin()

For I = 1 To 12

MsgBox ("Mes: " + Meses(I))

End Sub

Noviembre-2010

Pág. 4.10