Um botão de rotação pode ser usado para incrementar um número em uma célula. Para criar um botão giratório em Excel VBA, execute as seguintes etapas.
1. Na guia Desenvolvedor, clique em Inserir.
2. No grupo ActiveX Controls, clique no botão Spin.
3. Arraste um botão de rotação em sua planilha.
4. Clique com o botão direito no botão giratório (certifique-se de que o Modo Design esteja selecionado).
5. Clique em Exibir código.
Observação: você pode alterar o nome de um controle clicando com o botão direito do mouse no controle (certifique-se de que o Modo de design esteja selecionado) e clicando em Propriedades. Por enquanto, deixaremos SpinButton1 como o nome do botão de rotação.
6. Para vincular este botão de rotação a uma célula, adicione a seguinte linha de código.
Intervalo ("C3"). Valor = SpinButton1.Value
7. Você pode definir um máximo e um mínimo adicionando as seguintes linhas de código.
SpinButton1.Max = 100
SpinButton1.Min = 0
8. Para alterar o valor incremental, use a propriedade SmallChange.
SpinButton1.SmallChange = 2
9. Clique nas setas do botão de rotação (certifique-se de que o Modo Design esteja desmarcado).
Resultado:
Nota: em vez de alterar as propriedades do botão de rotação em tempo de execução, você também pode alterar as propriedades em tempo de design. Para fazer isso, clique com o botão direito do mouse no botão de rotação (certifique-se de que o Modo de design esteja selecionado) e clique em propriedades.
