En VBA, puede crear un Botón de opción para permitir que un usuario elija entre varias opciones. Un botón de opción se usa a menudo en formularios de usuario, pero también se puede usar en una hoja de trabajo. En este tutorial, aprenderá cómo crear un botón de opción, obtener una opción de usuario en VBA y usarlo en el código.
Si desea aprender a crear una casilla de verificación, haga clic aquí: casilla de verificación de VBA
Crear un botón de opción
Para insertar un botón de opción en la hoja de trabajo, debe ir a la Pestaña de desarrollador, haga clic en Insertar y en Controles ActiveX elija Botón de opción:
Imagen 1. Inserte un botón de opción en la hoja de trabajo
Cuando selecciona el botón Opción que insertó, puede hacer clic en Propiedades bajo la Pestaña de desarrollador:
Imagen 2. Cambiar las propiedades del botón de opción
Aquí puede establecer diferentes propiedades del botón Opción. Al principio, cambiamos el atributo Nombre para optOptionButton1. Ahora, podemos usar el botón Opción con este nombre en el código VBA.
Además, cambiamos el texto que aparece junto al botón Opción a Masculino. Para hacer esto, necesita establecer el atributo Subtítulo.
Como queremos permitir que un usuario elija el género, repetiremos todo el proceso para otro botón de Opción. El segundo tiene nombre optOptionButton2, mientras que el título es Mujer. También puede crear un nuevo botón de opción copiando el existente y cambiando las propiedades. Ahora nuestra hoja de trabajo tiene dos botones de opción:
Imagen 3. Inserte el segundo botón de opción
Obtenga un botón de opción seleccionado en VBA
El propósito de un botón de opción es obtener una decisión de los usuarios. Mostraremos en el ejemplo cómo escribir Masculino en la celda C3 si se elige el botón Opción 1 o Mujer si se elige el segundo. Cada botón de opción tiene su evento que se activa cuando se elige: Hacer clic.
Por lo tanto, para el primer botón de Opción necesitamos poner el siguiente código en el evento Hacer clic del objeto optOptionButon1:
| 123456789 | Sub privado optOptionButton1_Click ()Si Sheet1.optOptionButton1.Value = True EntoncesSheet1.Range ("C3") = "Hombre"Terminara siEnd Sub |
Del mismo modo, pondremos este código en el evento Hacer clic del objeto optOptionButton2:
| 123456789 | Sub privado optOptionButton2_Click ()Si Sheet1.optOptionButton2.Value = True EntoncesSheet1.Range ("C3") = "Mujer"Terminara siEnd Sub |
El valor del botón Opción está en elValor atributo del objeto optOptionButton1 o optOptionButton2. El valor del botón Opción puede ser verdadero si se elige o falso si no se elige.
Imagen 3. Devolver macho si se elige el primer botón de opción
Como puede ver en la Imagen 3, hicimos clic en el primer botón de Opción. Por tanto, el valor de Sheet1.optOptionButton1.Value es cierto, por lo que el resultado en C3 es Masculino.
Imagen 4. Devolver Mujer si se elige el segundo botón de Opción
De manera similar al ejemplo anterior, el valor de C3 se cambia a Mujer, ya que hemos elegido el segundo botón de Opción. En este caso, el procedimiento optOptionButton2_Click () se activa.
Usar un botón de opción en un formulario de usuario
Como mencionamos, el botón Opción se usa con mayor frecuencia en formularios de usuario. Para explicar cómo puede hacerlo, primero insertaremos un formulario de usuario. En el editor de VBA, haga clic con el botón derecho en el nombre del módulo, haga clic en Insertar y elige Formulario de usuario:
Imagen 5. Insertar un formulario de usuario
Para mostrar los controles de inserción, debe habilitar el Caja de herramientas. Para hacer esto, haga clic en elCaja de herramientas en la barra de herramientas. Después de eso, obtendrá las ventanas con todos los controles disponibles. Puedes hacer click en elBotón de opción para crearlo en el formulario de usuario:
Imagen 6. Inserte un botón de opción en el formulario de usuario
En la ventana de propiedades, cambiamos el nombre del botón Opción a optOptionButton1 y el título a Masculino. Del mismo modo, creamos otro botón de opción para Mujer. Cuando ejecutamos el formulario de usuario, obtenemos dos botones de opción:
Imagen 7. Dos botones de opción en Userform
Si desea obtener un botón de opción seleccionado, debe usar la misma lógica que para una hoja de trabajo, que se explica anteriormente en el artículo.
