No VBA, você pode criar um Botão giratório que permite ao usuário incrementar um número na célula em um intervalo definido. Cada vez que um usuário clica em um botão, o número aumenta ou diminui. Neste tutorial, você aprenderá como criar um botão Spin e usá-lo no Excel e VBA.
Se você quiser aprender como usar um botão de opção, clique neste link: Botão de opção Excel VBA
Crie um botão giratório
Para inserir um botão de rotação na planilha, você precisa ir para o Guia do desenvolvedor, clique Inserir e em Controles ActiveX escolha Botão giratório:
Imagem 1. Insira um botão de rotação na planilha
Ao selecionar o botão Spin que inseriu, você pode clicar em Propriedades debaixo de Guia do desenvolvedor:
Imagem 2. Alterar as propriedades do botão de rotação
Aqui você pode definir diferentes propriedades do botão Spin. Para o início, mudamos o atributo Nome para spbSpinButton. Agora, podemos usar o botão Spin com este nome no código VBA. Outros atributos importantes são Min e Máx., que definem um intervalo de números e Pequena mudança que define uma etapa de incrementação.
Definir um botão giratório usando VBA
Veremos primeiro como definir as propriedades de um botão Spin no VBA e obter um valor na planilha. O código precisa estar no evento Mudar do objeto spbSpinButton. Você pode entrar neste evento clicando com o botão direito do mouse no botão Spin e escolhendo Ver código opção. Aqui está o código:
| 1234567891011 | Private Sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Primeiro, definimos o limite inferior para o intervalo de números:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Depois disso, definimos o limite superior para o intervalo de números:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Também precisamos definir a etapa de incremento do número:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Finalmente, estamos atribuindo o valor atual do botão Spin à célula B2. Este valor está no Valor atributo do objeto Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Agora, sempre que clicarmos no botão Spin, o valor aumentará ou diminuirá em 10 no intervalo 100-200:
Imagem 3. Aumente um número usando o botão Spin no VBA
Definir um botão giratório no Excel
Outra maneira de definir um botão Spin é usando as Propriedades. Clique em Propriedades debaixo de Guia do desenvolvedor:
Imagem 4. Definir um botão de rotação no Excel
Aqui podemos definir todos os atributos que desejamos: Min é 10, Máx. é 100 e Pequena mudança é 2. Se você deseja colocar o resultado do botão Spin na célula B2, você deve colocar esta célula no atributo LinkedCell.
