Seminario Macros Excel Gratuito 16 Entrega (Estructuras de programación o control 4ª parte)

Estructuras de Bucle

Continuamos con otras estructuras:

• While wend
• Do While
• Do Loop
• For Each

Estructura While Wend

Es una de las estructuras de bucle menos usadas. Y su principal ventaja es que puede que nunca se ejecute ya que lo primero que hace es controlar la condición de entrada.

Su estructura es la siguiente:

While Condición

    instrucciones

  

End While

 No admite condición de salida en VBA

Estructura Do Loop

Es una estructura mas versátil que la anterior.

Esta estructura repite un conjunto de instrucciones mientras que una condición es verdadera o también hasta que la condición sea verdadera.

Esto es debido a que la estructura permite poner la condición tanto al principio como al final. Además admite para la condición dos clausulas While y Until

Veamos unos ejemplos:

Condición al principio usando While

Sub ejemplo1()

    Dim miNumero as integer

    miNumero=0

    Do while miNumero <>7

        miNumero= int(10 * Rnd())

        Beep

    Loop

    

    MsgBox "Su número es el " & NumeroBingo & ". ¡Acertó!"

End Sub

Condición al principio usando Until

Sub ejemplo2()

    Dim miNumero as integer

    miNumero=0

    Do Until miNumero <>7

        miNumero= int(10 * Rnd())

        Beep

    Loop

    

    MsgBox "Su número es el " & NumeroBingo & ". ¡Acertó!"

End Sub

Condición al final usando Until

Sub ejemplo3()

    Dim miNumero as integer

    miNumero=0

    Do

        miNumero= int(10 * Rnd())

        Beep

    Loop until miNumero =7

    MsgBox "Su número es el " & NumeroBingo & ". ¡Acertó!"

End Sub

Condición al final usando While

Sub ejemplo4()

    Dim miNumero as integer

    miNumero=0

    Do

        miNumero= int(10 * Rnd())

        Beep

    Loop while miNumero <>7

    MsgBox "Su número es el " & NumeroBingo & ". ¡Acertó!"

End Sub