Como criar formulários interativos no Excel VBA com controles ActiveX

4. Caixa de seleção

Check Box é um controle que permite ao usuário selecionar a opção Ya/Tidak ou True/False. Isso é útil para entradas binárias, como confirmação de consentimento, seleção de recursos ou ativação/desativação de uma função em um formulário.

Usando a caixa de seleção para salvar valores verdadeiros/falsos

Para adicionar um Check Box no Excel VBA, siga estas etapas:

1. Abra a  guia Developer no Excel.
2. Clique em Insert > Check Box (ActiveX Controls).
3. Clique e arraste para colocar o Check Box na planilha.
4. Clique com o botão direito do mouse em Check Box > Properties.

Exemplo de código VBA para conectar uma caixa de seleção a uma célula

Para Check Box armazenar valores em células com base em seu status, use o seguinte código:

If CheckBox1.Value  = True Then
     Range(“D2”).Value  1
Else
     Range(“D2”).Value = 0
End If

Este código preencherá D2 células com 1 se o Check Box estiver marcado e 0 se não estiver marcado.

Para fazer com que essa função seja executada automaticamente quando o usuário clicar em Check Box, use event Change dentro do VBA Editor:

Private Sub CheckBox1_Click()
     If CheckBox1.Value  = True Then
     Range(“D2”).Value  1
     Else
        Range(“D2”).Value = 0
      End If
End Sub

5. Botões de opção

Tanto o Check Box quanto o Option Buttons são usados para fornecer opções aos usuários, mas existem diferenças importantes entre os dois:

Se o usuário precisar selecionar mais de uma opção, use Check Box. No entanto, se você puder escolher apenas uma das várias opções, use Option Buttons.

Etapas para criar um botão de seleção no Excel VBA

1. Abra o Excel e ative a  guia Developer.
2. Selecione Developer > Insert > Option Button (ActiveX Controls).
3. Clique e arraste para colocar dois Option Buttons na planilha.
4. Clique com o botão direito do mouse em cada Option Button e selecione Properties.
   • Renomeie (Name) para OptionButton1 e OptionButton2.
   • Altere o Caption para “Masculino” para OptionButton1 e “Feminino” para OptionButton2.
5. Para agrupar os dois botões, coloque-os em Frame (ActiveX Controls) ou no UserForm.

Exemplo de código VBA para conectar chaves seletoras com células

O código a seguir armazenará uma seleção do Option Button na célula D3 de acordo com a escolha do usuário:

If OptionButton1.Value  =  True Then Range(“D3”).Value “Male”
If OptionButton2.Value  =  True Then Range(“D3”).Value “Female”

Para garantir que esse código seja executado automaticamente quando o usuário clicar no botão, use os seguintes eventos do VBA:

Private Sub OptionButton1_Click()
    Range(“D3”).Value =“Male”
End Sub

Private Sub OptionButton2_Click()
     Range(“D3”).Value =“Female”
End Sub

Com este código, D3 células serão atualizadas automaticamente de acordo com as escolhas feitas pelo usuário.