Curso Excel VBA y Macros – Cap. 62 – Formularios – OptionButton – Ejecutar dependiendo la opción elegida
En este video tutorial veremos el uso del Control ActiveX OptionButton o botón de opción, el cual tendrá el comportamiento de activarse y desactivarse. En caso de estar marcado o activado su propiedad será TRUE o VERDADERO, y en caso de estar desmarcado o desactivado, su propiedad será FALSE o FALSO. Veremos en este tutorial:
-
Determinar la opción elegida usando IF-THEN-ELSE.
-
Determinar la opción elegida usando SELECT CASE.
-
Crear grupos de botones.
Ver video Capítulo 62 Excel VBA & Macros
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Determinar la opción elegida usando IF THEN ELSE
Como vimos, para determinar qué opción está elegida, debemos determinar cuál tiene el valor de TRUE, por lo que podemos usar la estructura de control IF-THEN-ELSE para validar cada una de las opciones y devolver el valor de la que esté elegida.
Figura 1. Determinar la opción elegida de un OptionButton.
Private Sub CommandButton1_Click()
Dim Opcion As String
If Me.OptionButton1.Value = True Then
Opcion = Me.OptionButton1.Caption
ElseIf Me.OptionButton2.Value = True Then
Opcion = Me.OptionButton2.Caption
ElseIf Me.OptionButton3.Value = True Then
Opcion = Me.OptionButton3.Caption
Else
Opcion = "Ninguno"
End If
MsgBox "El botón elegido fue '" & Opcion & "'.", vbInformation, "EXCELeINFO"
End Sub
Determinar la opción elegida usando SELECT CASE
Ahora mediante la instrucción SELECT-CASE podremos determinar la opción elegida. Al final, ustedes decidirán si usar IF o SELECT para validar la opción elegida.
Private Sub CommandButton2_Click()
Dim Opcion As String
Select Case True
Case Me.OptionButton1.Value = True
Opcion = Me.OptionButton1.Caption
Case Me.OptionButton2.Value = True
Opcion = Me.OptionButton2.Caption
Case Me.OptionButton3.Value = True
Opcion = Me.OptionButton3.Caption
Case Else
Opcion = "Ninguno"
End Select
MsgBox "La opción elegida fue '" & Opcion & "'.", vbInformation, "EXCELeINFO"
End Sub
Ejecutar macros dependiendo la opción elegida
En este ejemplo podremos ejecutar macros dependiendo la opción elegida. Esto nos puede ayudar a avanzar en un flujo de trabajo dependiendo el Botón marcado.
Figura 2. Ejecutar macros dependiendo la opción elegida en un OptionButton.
Private Sub CommandButton3_Click()
If Me.OptionButton4.Value = False And Me.OptionButton5.Value = False Then MsgBox "Elije una opción.": Exit Sub
If Me.OptionButton4.Value = True Then
MsgBox "Se haría una acción."
Else
MsgBox "Se haría otra acción."
End If
End Sub
Descarga el archivo de ejemplo
062 – Forrmularios Control OptionButton Botón de opción – EXCELeINFO.zip
Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
