¿Qué es el OptionButton en VBA y cómo se usa?

¿Qué es el OptionButton en VBA y cómo se usa?

El OptionButton en VBA es un control ActiveX que nos permitirá seleccionar una sola alternativa dentro de un grupo de botones de opción. A diferencia de las casillas de verificación, los botones de opción dependen uno del otro, por esto solo puede estar seleccionado un solo botón de opción.

Insertar un OptionButton:

Para insertar un botón de opción hacemos clic en el comando Insertar de la ficha Programador y luego seleccionar el “Botón de opción (control ActiveX)”

Se deberá agregar dos o más botones de opción para permitir que el usuario haga una selección de cualquiera de ellos.

Propiedad Value del OptionButton:

Esta es la propiedad más importante de este control. Los valores que puede tener la propiedad Value son de tipo boolean (Verdadero - Falso) es decir True y False.

Ejemplo 1:

Insertando 3 veces la alternativa “Botón de opción (control ActiveX)” y luego modificando el valor de “Caption” (cambiándolo por el nombre deseado, para este caso Opción 1, Opción 2 y Opción 3) en cada una de ellas al ingresar a sus propiedades se obtendrá:

 

En el código VBA podemos acceder a su propiedad Value y modificarla de la siguiente manera:

Private Sub OptionButton1_Click()
'Si está seleccionado el Option1 se ejecuta
If OptionButton1.Value = True Then MsgBox ("Has seleccionado la Opción 1")
End Sub

Private Sub OptionButton2_Click()
'Si está seleccionado el Option2 se ejecuta
If OptionButton2.Value = True Then MsgBox ("Has seleccionado la Opción 2")
End Sub

Private Sub OptionButton3_Click()
'Si está seleccionado el Option3 se ejecuta
If OptionButton3.Value = True Then MsgBox ("Has seleccionado la Opción 3")
End Sub

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

En este Ejemplo 1 al validar que el botón de opción está seleccionado, se mostrará un cuadro de diálogo al ejecutar la función MsgBox mostrando un mensaje con la Opción que se eligió.

Ejemplo 2:

Algo parecido al primer ejemplo pero utilizando más elementes de interfaz

En este Ejemplo usaremos un UserForm1 en el cual añadiremos 3 veces la opción “Botón de opción (control ActiveX)” y un “botón de comando” los cuales modificaremos el Caption para cada uno de ellos y obtendremos lo siguiente:

(Para mayor visualización de  la imagen, hacer click en la misma)

 

Este UseForm será llamado por un botón (modificando el Caption “Elegir Opción”) utilizando el siguiente código

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Con el siguiente código en VBA del UseForm1:

 

Private Sub CommandButton1_Click()
'Si está seleccionado el Option1 se ejecuta
If OptionButton1.Value = True Then
MsgBox "Seleccionaste la alternativa 1"
End If

'Si está seleccionado el Option2 se ejecuta
If OptionButton2.Value = True Then
MsgBox "Seleccionaste la alternativa 2"
End If

'Si está seleccionado el Option3 se ejecuta
If OptionButton3.Value = True Then
MsgBox "Seleccionaste la alternativa 3"
End If

End Sub

Al probar el Ejemplo 2 se puede ver que al seleccionar un botón de opción, y luego presionar Aceptar, se evalúa mediante una condición If Then, el valor de  Opción 1, Opción 2 y Opción 3. El Optionbutton que se encuentre con el valor True en la propiedad Value , ejecutará la función MsgBox mostrando el mensaje correspondiente que será similar al del Ejemplo 1.

Nota: de acuerdo a la alternativa seleccionada, se puede realizar algún PROCEDIMIENTO o FUNCIÓN para realizar alguna operación.

Ejemplos: Qué es el OptionButton en VBA y cómo se usa

 

Elaborado por: Walther Eduardo Reque Olano