Estructuras de control en Excel VBA – II

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:

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

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:

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

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:

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

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.

Posted in excel, excel programming, excel vba Tagged with:

Facebook comments:

Leave a Reply

Your email address will not be published. Required fields are marked *

*

Make a computation for validation *
Time limit is exhausted. Please reload CAPTCHA.

Traducir

Read previous post:
Estructuras de control en Excel VBA – I

Las estructuras de control son lineas de código con las cuales es posible modificar el flujo del programa, por ejemplo...

Close