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

Esta instrucción permite ejecutar un conjunto de sentencias incluidas en su ámbito, hasta que alguna condición se cumpla.

Sintaxis

WHILE Condicion

[ Sentencias ]

WEnd

Al interior del bucle del While debe haber alguna forma de actualizar la "Condicion" a fin de permitir que el While termine en algún momento.

Ejemplo 14

El siguiente ejemplo permite ingresar una serie de números hasta presionar <Enter>, en cuyo caso imprime la suma de todos ello.

Sub DoWhile()

Ix = Val(InputBox("Ingeresa un número; para terminar, presiona <Enter>"))

Suma = 0

While Ix > 0

Suma = Suma + Ix

Ix = Val(InputBox("Ingeresa un número; para terminar, presiona <Enter>"))

Wend

MsgBox ("La suma obtenida es = " & Suma)

End Sub

Ejemplo 15

Escriba un procedimiento que permita extraer la primera palabra dentro de un texto.

Solución

Leeremos carácter por carácter hasta encontrar un espacio en blanco, luego se imprimirá lo extraído

El código es el siguiente:

Sub dd()

Dim cadena As Variant

cadena = "Condor Espinoza, Ilmer"

x = Mid(cadena, 1, 1)

I = 1

xc = ""

While x <> " "

xc = xc + x

I = I + 1

x = Mid(cadena, I, 1)

Wend

MsgBox xc

End Sub

Noviembre-2010

Pág. 4.3