¿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
12/11/2020 a las 7:32 pm
Hice un formulario desde visual basic, pero no sé como ponerlo visualizarlo desde la hoja del excel. Dice el tipo que da el curso en youtube, que solo escribes:
Sub llamar_fuerte()
Insert.Show
End Sub
en la parte superior de cualquier módulo y ya esta listo, debo verlo, pero al hacer eso me sale la leyenda:
Se ha producido el error 424 en tiempo de ejecución,
se requiere un objeto
Y ya no sé que hacer, porque obvio a él en youtube, le esale perfecto.
¿Me podrían ayudar? He buceado por todos las guías de ustedes y no le llego.