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:

Pérdida de móvil

En estos días de tanto viaje en medios de transporte variados, puede ser fácil perder nuestro teléfono móvil.

Combinar Correspondencia con varias cuentas en Outlook

A veces necesitamos realizar un mailing (Combinar correspondencia) y disponemos de varias cuentas de correo en nuestro Outlook. Comprobamos que no funciona el elegir una de ellas como predeterminada ya que para el envío por correspondencia usa un servicio llamado MAPI que no usa la cuenta predeterminada.  Antiguamente en versiones como la 2010 de office simplemente con cambiar el fichero de datos predeterminado de la cuenta bastaba para ello. Actualmente (nosotros usamos 365, equivalente a la 2016) la solución pasa por crear un perfil de correo en el que configuremos la cuenta que usaremos para combinar correspondencia. Adjuntamos un video en el que se explica en Windows 10 como crear un perfil de correo de una cuenta. Una vez creado ese perfil de Correo pasaríamos a realizar la combinación de Correspondencia y en el último paso cuando  realizamos la combinación de correspondencia nos solicitará el perfil a usar para poder enviar los correos y en ese caso elegiríamos el perfil asociado