Los diez principales estructuras de control de excel vba

Video: Curso VBA Excel Select Case Vídeo 13

Lo que sigue es una lista de las diez estructuras de control de programación de Excel VBA más comúnmente utilizados. Se incluye un ejemplo simple de cada estructura de control y una breve descripción de cuándo se usaría esa estructura.

Para el siguiente

Útil para bucle a través de una matriz.

Video: Macros 08. MsgBox e InputBox, (If ... End If) Estructura de Control. Excel 2013

ArraySum = 0º i = 1 Para 10ArraySum = ArraySum + MiArray (i) Siguiente i

Para cada uno - Siguiente

Útil para bucle a través de una colección o un rango de celdas.

Video: Sistema Control de Habitaciones y Reservas en Excel VBA

SelectionSum = 0º cada celda en SelectionselectionSum = SelectionSum + cell.ValueNext célula

Hacer - Loop Until

se cumple Loop hasta que una condición.

Fila = 0DoRow = Fila + 1Loop hasta que las células (fila, 1) .Value = "MsgBox "Primera celda vacía está en la fila " & Fila

Mientras que hacer - Loop

Loop mientras que una condición es verdadera.

Fila = 1Do mientras que las células (fila, 1) lt; gt; "Fila = Fila + 1LoopMsgBox "Primera celda vacía está en la fila " & Fila

Si - Entonces

Hacer algo si una condición es verdadera. Escrito como una sola instrucción.

Si x = 1 entonces y = 1

Si - Entonces - End If

Hacer algo si una condición es verdadera. Se puede utilizar varias instrucciones.

Si x = 1 Theny = 1z = 1End Si

Si - Entonces - Otras ventas

Hacer algo si una condición es cierto- lo contrario, hacer otra cosa. Escrito como una sola instrucción.

Si x = 1 entonces y = 1 Else y = 0

Si - Entonces - Otras ventas - End If

Hacer algo si una condición es cierto- lo contrario, hacer otra cosa. Se puede utilizar varias instrucciones.

Si x = 1 Theny = 1Z = 1Elsey = 0Z = 0End Si

Seleccione el caso

Realice una de varias cosas, dependiendo de una condición.

Select Case Xcase 1y = 1Z = 1case Es gt; 1a = 2Z = 2case Elsey = = 0Z 0End Seleccionar

Ir

Saltar a una instrucción con etiqueta. Esto se usa principalmente para el tratamiento de errores.

On Error Goto Vaya [más código va aquí] SubOops salida: MsgBox "Ocurrió un error"