En este post explicaré acerca de las estructuras de decisión If y Select Case.

1. If … Then

En Excel VBA, la sintaxis general es la siguiente:

[code lang=”vb”]
If condición Then
‘Código a ejecutar si condición es verdadero
Else
‘Código a ejecutar si condición es falso
End If
[/code]

En la estructura de control If, no es obligatorio escribir Else ni el código que seguiría a continuación. Veamos el siguiente ejemplo:

[code lang=”vb”]
Sub PruebaIfThen()
Dim i as integer
Dim rg as range
Set rg = Selection
For i=1 To rg.Count
If rg(i).Value = 8 Then
Msgbox "El 8 se encuentra en la celda " & rg(i).Address
End If
Next i
End Sub
[/code]

En este ejemplo, con el bucle For se recorre todas las celdas seleccionadas y se busca con If aquella celda que tenga un valor igual a 8, cuando encuentre ello mandará un mensaje mostrando la dirección de la celda donde se encontró el valor 8.

2. Select Case

Veamos como se usa Select Case con un ejemplo, vean el siguiente código:

[code lang=”vb”]
Sub VersionExcel()
Dim vExcel as String
vExcel =Application.Version
Select Case vExcel
Case "11.0"
Msgbox "Estas usando Excel 2003"
Case "12.0"
Msgbox "Estas usando Excel 2007"
Case "14.0"
Msgbox "Estas usando Excel 2010"
Case Else
Msgbox "Estas usando una versión anterior a Excel 2003"
End Select
End Sub
[/code]

En el ejemplo, se está tomando en la variable vExcel la versión de Excel que se está usando, luego compara si este valor es igual a “11.0”, “12.0” o “14.0” y envia el mensaje si es ninguno de los anteriores mandará una mensaje indicando que la aplicación Excel es anterior a Excel 2003.

Saludos.

Estructuras de control en Excel VBA – II

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *