Escribir instrucciones ejecutables
Una instrucción ejecutable inicia una acción. Puede ejecutar un método o función y saltar a bloques de código o no ejecutar otros. Las instrucciones ejecutables incluyen a menudo operadores condicionales o matemáticos.
El siguiente ejemplo utiliza la instrucción For Each...Next para pasar por cada una de las celdas de un rango llamado MiIntervalo
en la Hoja1
de un libro Microsoft Excel activo. La variable c
es una celda en la colección de celdas que componen MiIntervalo
.
Sub DarFormato()
Const limite As Integer = 33
For Each c In Worksheets("Hoja1").Range("MiIntervalo").Cells
If c.Value > limite Then
With c.Font
.Bold = True
.Italic = True
End With
End If
Next c
MsgBox "¡Fin!"
End Sub
La instrucción If...Then...Else del ejemplo comprueba el valor de la celda. Si el valor es mayor de 33, la instrucción With establece las propiedades Bold e Italic del objeto Font para esa celda. Las instrucciones If...Then...Else acaban con una instrucción End If.
La instrucción With puede evitar que haya que escribir muchas veces las mismas palabras ya que las instrucciones que contiene se ejecutan automáticamente en el objeto que sigue a la palabra clave With.
La instrucción Next llama a la siguiente celda de la colección de celdas contenida en MiIntervalo
.
La función MsgBox (que presenta en pantalla un cuadro de diálogo de Visual Basic) presenta un mensaje indicando que el procedimiento Sub ha terminado de ejecutarse.