A melhor maneira para permitir um aumento de usuário ou diminuir um valor em seu aplicativo Microsoft Excel quando uma macro está em execução é usando um botão de rotação. Uma macro é comumente usado para gravar uma seqüência de ações que podem ser posteriormente executado por executar o macro manualmente ou clicando em um botão . Uma macro é criada através do uso de Visual Basic for Applications (VBA) , uma linguagem de programação de computador usado em aplicativos do Microsoft Office para automatizar tarefas de rotina como a exibição de um spinner . Instruções
1

Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique no ícone "Inserir " no painel " Controles " . Clique em " Button" e clique na planilha para adicionar um novo botão de comando. Clique no botão " Girar" abaixo " Controles ActiveX " e adicioná-lo à planilha.
2

botão direito do mouse o spinner e clique em "Propriedades" para exibir a janela de propriedades. Escolha "Falso" ao lado da propriedade "Visível " . Clique no ícone e digite " Macros " " IncrementValues ​​" abaixo " Nome da macro . " Clique no botão "Criar" para criar uma nova macro.
3

Copie e cole o seguinte código para criar um " While ... Loop" e atualizar a planilha com valores cada vez que o usuário clica no botão giratório : .

Sheet1.SpinButton1.Visible = True

do While ( counter < > 10)

Range (" A1") Selecione

Range (" A1") . Valor = contador

Range (" A2 " ) . Selecione

Range (" A2 " ) . Value = " corrida Macro ... "

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

DoEvents

loop

Range (" A1 ") . Selecione

Range (" A1") . Value = " "

Range (" A2 " ) . Selecione

Range (" A2 " ) . Value = " Macro terminou . "

Sheet1.SpinButton1.Visible = False

counter = 0
4

Adicione a seguinte linha de código no topo do seu módulo para criar um mundial variável :

contador global As Integer
5

Volte para o Microsoft Excel e clique-direito " Button 1 ". Clique em " Atribuir Macro" e clique em " IncrementValues ​​". Clique em " OK".
6

botão direito do mouse no botão giratório e clique em " Ver código " para abrir um módulo de código VBA. Copie e cole o seguinte código para aumentar ou diminuir o valor da variável global :

Sub SpinButton1_SpinDown Privado ( )

contador = contador - 1

End Sub

Private Sub SpinButton1_SpinUp ()

contador = contador + 1

End Sub
7

Volte para o Microsoft Excel e clique em " Button 1 " para iniciar a execução do macro e exibir o controle giratório . Clique na seta para cima do botão giratório para aumentar ou na seta para baixo para diminuir . A macro vai esconder o spinner e parar de correr quando a variável global é igual a 10 .