Como ativar um botão de comando no VBA

Escrito por alexander gokhfeld | Traduzido por franklin serafim
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como ativar um botão de comando no VBA
Os controles de alternância ajudam programadores a produzir formulários de opção em aplicações no VBA (Jupiterimages/Photos.com/Getty Images)

O Visual Basic for Applications (VBA) da Microsoft permite aos programadores utilizar diferentes objetos de controle nos formulários de usuário. O objeto pode corresponder à caixa, imagem, barra de rolagem ou controles de botão. Um botão de alternância em um formulário é um controle usado para exibir um valor "Sim/Não" a partir de uma fonte de dados. Os desenvolvedores de software usam botões de alternância em um grupo de opção com outros botões e em caixas de diálogo para aceitar a entrada do usuário. Quando você clica em um objeto do botão de alternância, ele se mostra sendo pressionado ou empurrado para baixo. É preciso obter o valor de um controle do botão de comando para ativar o botão no VBA.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

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

  2. 2

    Clique em "Ferramentas", "Macro" e "Visual Basic Editor".

  3. 3

    Clique em "Inserir" e então "UserForm" para inserir o formulário de usuário na sua pasta de trabalho.

  4. 4

    Adicione os controles de "botão de comando" e de "rótulo" no user form.

  5. 5

    Dê um clique duplo no controle de "botão de comando" para abrir a janela de código para o controle do botão de comando.

    Como ativar um botão de comando no VBA
    Exemplo de botão de comando (Dynamic Graphics/Dynamic Graphics Group/Getty Images)
  6. 6

    Insira o seguinte código o "botão de comando de 1 clique":

    Private Sub ToggleButton1_Click()

    If ToggleButton1.Value = True Then ' Set UserForm background to Red. Me.BackColor = RGB(255, 0, 0) Else ' Set UserForm background to Blue. Me.BackColor = RGB(0, 0, 255) End If

    End Sub

  7. 7

    Clique em "Executar Sub/User form" no menu "Executar" para ativar a funcionalidade do botão.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível