Como ativar um botão de alternância em VBA

Microsoft Visual Basic for Applications (VBA) permite que programadores usem vários objetos de controle em formulários de usuário. O objeto pode corresponder à caixa, imagem, barra de rolagem ou botões de comando. Um botão de alternar em um formulário é um controle usado para exibir um valor "Sim/Não" de uma fonte de dados. Os desenvolvedores de software usam botões de alternância em um grupo de opções com outros botões e caixas de diálogo para aceitar a entrada do usuário. Quando você clica em um objeto com botão de alternância, ele parece ser pressionado ou empurrado para baixo. Você deve obter o valor de um controle de botão de alternância para ativar o botão de alternância em VBA. Instruções
1

Clique no botão "Iniciar" do Windows e selecione a opção "Microsoft Excel" no menu "Todos os Programas" para abrir uma nova pasta de trabalho.
2

Clique nas opções "Ferramentas", "Macro" e "Visual Basic Editor" .
3

Clique em "Insert", depois em "UserForm" para inserir um formulário de utilizador na sua pasta de trabalho.

4

Adicione o "ToggleButton" e "labeling controls" no formulário do usuário.
5

Duplo clique no controle "ToggleButton" para abrir a janela "Código" para o controle do ToggleButton .
6

Digite o seguinte código para o evento ToggleButton1Click:

Private Sub toggleButton1_Click ()

If ToggleButton1.Value = True Then
< p > 'Set UserForm background to red'.

Me.BackColor = RGB ( 255, 0, 0)

Else

' Defina o fundo do UserForm para azul .

Me.BackColor = RGB ( 0, 0 , 255)

End If End Sub

7

Clique na caixa "Run Sub /UserForm" no menu "Run" para activar o botão de alternância sob o seu controlo VBA.