Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

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

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

| 31 comentarios

¿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á:

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

 

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:

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

(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

31 comentarios

Responder a Elkin Urueta Cancelar la respuesta

Los campos requeridos estan marcados con *.