Ir al contenido principal

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

Comentarios

Entradas populares de este blog

Chrome: desactivar la opción “Abrir siempre archivos de este tipo”

En Chrome, al descargar un archivo aparecen tres opciones en el desplegable de la barra de descargas:

Ajustar texto alrededor de una imagen en PowerPoint

PowerPoint no dispone de herramientas tan sofisticadas como tiene Word o Publisher para que el texto

Conectar Teléfono BQ M5 a PC

Cual no seria mi sorpresa que al conectar mi teléfono BQ M5 a mi ordenador Windows no aparece la posibilidad de ver su contenido.