Cómo mostrar un Spinner Cuando una macro VBA está en ejecución

La mejor manera para que un usuario aumentar o disminuir el valor de la aplicación Microsoft Excel cuando se está ejecutando una macro es mediante el uso de un botón de la vuelta . Una macro es comúnmente utilizado para grabar una secuencia de acciones que posteriormente pueden ser ejecutadas por la ejecución de la macro manualmente o haciendo clic en un botón. Una macro se crea mediante el uso de Visual Basic para Aplicaciones ( VBA) , un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias tales como exhibir una ruleta . Instrucciones
1

lanzamiento Microsoft Excel , haga clic en la pestaña de " desarrolladores" y haga clic en el icono "Insertar " en el panel " Controles". Haga clic en " Button" y haga clic en la hoja de cálculo para añadir un nuevo botón de comando. Haga clic en " Selector cíclico " por debajo " Controles ActiveX " y añadirlo a la hoja de cálculo.

2 Haga clic con el spinner y haga clic en "Propiedades" para mostrar la ventana de propiedades . Elija "False" junto a la propiedad "Visible " . Haga clic en el icono de " Macros " y tipo " IncrementValues " abajo " Nombre de la macro . " Haga clic en el botón "Crear " para crear una nueva macro.
3

Copia y pega el siguiente código para crear un " While ... Loop" y actualizar la hoja de cálculo con los valores cada vez que el usuario hace clic en el botón giratorio :

Sheet1.SpinButton1.Visible = True

Do While ( contador < > 10 )

Range (" A1" ) Seleccione < . br>

Range ("A1 ") . Valor = contador

Range (" A2" ) . Seleccione

Range (" A2" ) . Valor = "Macro corriendo ... "

Application.Wait ahora + TimeValue ( " 00:00:02 " )

DoEvents Loop

Range (" A1 ") . Seleccione

Range (" A1") . Valor = " "

Range (" A2" ) . Seleccione

Range (" A2" ) . Valor = "Macro terminó . "

Sheet1.SpinButton1.Visible = False

contador = 0
4

Añada la siguiente línea de código en la parte superior de su módulo para crear un mundial variables :

counter Global As Integer
5

interruptor de nuevo a la derecha haga clic en Microsoft Excel y " Botón 1 ". Haga clic en " Asignar Macro " y haga clic en " IncrementValues . " Haga clic en " Aceptar".
6

Haga clic con el botón giratorio y haga clic en " Ver código " para abrir un módulo de código VBA. Copia y pega el siguiente código para aumentar o disminuir el valor de variable global :

SpinButton1_SpinDown Sub Private ()

contador = contador - 1

End Sub
< p > Private Sub SpinButton1_SpinUp ()

contador = contador + 1

End Sub
7

volver a Microsoft Excel y haga clic en "Botón 1 " para iniciar la ejecución del macro y mostrar el control de número . Haga clic en la flecha hacia arriba del botón giratorio para aumentar o la flecha hacia abajo para disminuir . La macro ocultar el spinner y dejar de correr cuando la variable global es igual a 10 .