En VBA, puede crear un Botón de giro que permite a un usuario incrementar un número en la celda en un rango definido. Cada vez que un usuario hace clic en un botón, el número aumentará o disminuirá. En este tutorial, aprenderá cómo crear un botón Girar y usarlo en Excel y VBA.
Si desea aprender a usar un botón de opción, haga clic en este enlace: Botón de opción Excel VBA
Crear un botón de giro
Para insertar un botón Girar 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 giro:
Imagen 1. Inserte un botón Girar en la hoja de trabajo
Cuando selecciona el botón Girar que insertó, puede hacer clic en Propiedades bajo la Pestaña de desarrollador:
Imagen 2. Cambiar las propiedades del botón Girar
Aquí puede establecer diferentes propiedades del botón Girar. Al principio, cambiamos el atributo Nombre para spbSpinButton. Ahora, podemos usar el botón Girar con este nombre en el código VBA. Otros atributos importantes son Min y Max, que definen un rango de números y Pequeño cambio que define un paso de incremento.
Establecer un botón de giro usando VBA
Primero veremos cómo establecer las propiedades de un botón Girar en VBA y obtener un valor en la Hoja de trabajo. El código debe estar en el evento Cambio del objeto spbSpinButton. Puede ingresar a este evento haciendo clic derecho en el botón Girar y eligiendo Ver código opción. Aquí está el código:
| 1234567891011 | Sub privado spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Primero, establecemos el límite inferior para el rango de números:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Después de eso, establecemos el límite superior para el rango de números:
| 1 | Sheet1.spbSpinButton.Max = 200 |
También necesitamos establecer el paso para el incremento de números:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Finalmente, estamos asignando el valor actual del botón Girar a la celda B2. Este valor está en el Valor atributo del objeto Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Ahora, siempre que hagamos clic en el botón Girar, el valor aumentará o disminuirá en 10 en el rango 100-200:
Imagen 3. Aumente un número usando el botón Girar en VBA
Establecer un botón Girar en Excel
Otra forma de configurar un botón Girar es usando Propiedades. Haga clic en Propiedades bajo la Pestaña de desarrollador:
Imagen 4. Establecer un botón Girar en Excel
Aquí podemos configurar todos los atributos que queramos: Min es 10, Max es 100 y Pequeño cambio es 2. Si desea poner el resultado del botón Girar en la celda B2, debe poner esta celda en el atributo LinkedCell.
