Cómo crear formularios interactivos en Excel VBA con controles ActiveX

Private Sub CheckBox1_Click()
  If CheckBox1.Value =True Then
  Range(“D2”).Value  1
  Else
  Range(“D2”).Value = 0
  End If
End Sub

5. Botones de opción

Tanto Check Box como Option Buttons se utilizan para proporcionar opciones a los usuarios, pero existen diferencias importantes entre los dos:

Si el usuario necesita seleccionar más de una opción, use Check Box. Sin embargo, si solo puede elegir una de varias opciones, use Option Buttons.

Pasos para crear un botón de selección en Excel VBA

1. Abra Excel y habilite la  pestaña Developer.
2. Seleccione Developer > Insert > Option Button (ActiveX Controls).
3. Haga clic y arrastre para colocar dos Option Buttons en la hoja de trabajo.
4. Haga clic con el botón derecho en cada Option Button y luego seleccione Properties.
   • Cambie el nombre de (Name) a OptionButton1 y OptionButton2.
   • Cambie el Caption a “Hombre” para OptionButton1 y “Mujer” para OptionButton2.
5. Para agrupar los dos botones, colóquelos en Frame (ActiveX Controls) o en el UserForm.

Ejemplo de código VBA para conectar teclas selectoras con celdas

El siguiente código almacenará una selección del Option Button en la celda D3 de acuerdo con la elección del usuario:

If OptionButton1.Value =True Then Range(“D3”).Value “Male”
If OptionButton2.Value  =True Then Range(“D3”).Value “Female”

Para asegurarse de que este código se ejecuta automáticamente cuando el usuario hace clic en el botón, use los siguientes eventos de VBA:

Private Sub OptionButton1_Click()
   Range(“D3”).Value =“Male”
End Sub

Private Sub OptionButton2_Click()
  Range(“D3”).Value =“Female”
End Sub

Con este código, D3 celdas se actualizarán automáticamente de acuerdo con las elecciones realizadas por el usuario.

6. Botón de giro

Spin Button es un control que se utiliza para aumentar o disminuir el valor numérico de una celda gradualmente. Esto es especialmente útil para entradas numéricas, como establecer el número de bienes, las tasas de interés u otros parámetros que tienen limitaciones de valor.

Cómo establecer los valores máximo y mínimo en el botón Girar

1. Abra la  pestaña Developer en Excel.
2. Haga clic en Insert > Spin Button (ActiveX Controls).
3. Haga clic y arrastre para colocar el Spin Button en la hoja de trabajo.
4. Haga clic con el botón derecho en el Spin Button y luego seleccione Properties.

Ejemplo de código VBA para configurar el botón de giro

Utilice el siguiente código para establecer el límite de valor de Spin Button:

SpinButton1.Max  = 100
SpinButton1.Min  = 0

Para conectar Spin Button con celdas en Excel, use el siguiente código:

Private Sub SpinButton1_Change()
   Range(“C3”).Value = SpinButton1.Value
End Sub

Este código garantizará que cada vez que el usuario presione la tecla Spin Button, los valores de la celda C3 cambiarán de acuerdo con los valores establecidos en los controles.