Excel Avanzado

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

Excel Avanzado

OPTIONBUTTONS EN UN FORMULARIO

| 0 comments

¿Qué son los OPTIONBUTTONS en un formulario?

Los optionbuttos tienden a trabajar en grupo.  Cuando uno de ellos se selecciona los otros se deseleccionan, por lo tanto, se tiene que tener 2 opciones como mínimo para que este sea válido. 

Los optionbuttons son utilizados para seleccionar solo una opción dentro de diferentes alternativas, en comparación con los checkbox.

1) Es necesario ir al formulario de VBA y localizar las propiedades, en este caso el GroupName el cual se le tendrá que asignar un nombre. 

2) Insertar los optionbuttons y se les cambia name y caption según las opciones que se requieran. En este caso fueron «Mayor de edad» y «Menor de edad», también se añadirá un command Button.

3. Proceder con la programación:

3.1. Se empieza con la declaración de las variables

Mayor As String

Menor As String

Mayor = Optmayo.value

Menor = Optmenor.value

3.2. En este caso queremos que aparezca un message box que diga «Has apretado la opción…» según la opción elegida:

If mayor= True then MsgBox  “ Has seleccionado la opción mayor”

Else MsgBox “ Has seleccionado la opción menor”

End If

3.3 Para solucionar un inconveniente, el cual es al no seleccionar ninguna opción, se debe de realizar una modificación:

If mayor= True then MsgBox  “ Has seleccionado la opción mayor”

ElseIf menor = True then  MsgBox “ Has seleccionado la opción menor”

Else MsgBox “No has seleccionado ninguna opción”

End If

Ahora se presentará un ejemplo, en este caso vamos a tener 3 países europeos y 3 países asiáticos,  y 2 command buttons en los cuales dirán Europa y Asia, respectivamente.

– Para realizar este ejemplo se usará ella siguiente codificación:

Private Sub CommandButton1_Click()

If FRANCIA.Value = True Then ( Si la opción de Francia se encuentra marcada entonces se mostrará… )

MsgBox «Principal atracción la Torre Eiffel»

End If

If ITALIA.Value = True Then

MsgBox «Visitar el Coliseo romano»

End If

If REPUBLICACHECA.Value = True Then

MsgBox » Observar el Reloj Astronómico»

End If

‘Si no se selecciona ninguna casilla entonces deberá aparece «Seleccione Opción»

If FRANCIA.Value = False And ITALIA.Value = False And REPUBLICACHECA.Value = False Then

MsgBox » Seleccione opción»

End If

End Sub

Cabe recalcar que aquí se están mostrando las principales atracciones turísticas de cada país.

– En el commandButton 2 se configura para los países asiáticos, el cual nos mostrarán los nombres de los presidentes actuales.

Private Sub CommandButton2_Click()

If FILIPINAS.Value = True Then

MsgBox » Presidente: Rodrigo Duterte»

End If

If SINGAPUR.Value = True Then

MsgBox » Presidente: Halimah Yacob»

End If

If COREA.Value = True Then

MsgBox » Presidente: Moon Jae-In»

End If

‘Si no se selecciona ninguna casilla entonces deberá aparece «Seleccione Opción»

If FILIPINAS.Value = False And SINGAPUR.Value = False And COREA.Value = False Then

MsgBox » Seleccione opción»

End If

Optionbutton

Deja un comentario

Required fields are marked *.