Como criar programas do VBA para o Excel

Escrito por jaime avelar | Traduzido por fernanda lemi
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como criar programas do VBA para o Excel
Crie uma interface de usuário com controladores na linguagem Visual Basic (Ryan McVay/Photodisc/Getty Images)

Aprender a criar aplicações na linguagem Visual Basic (VBA, em inglês) para o Microsoft Excel poderá ajudá-lo a economizar tempo ao automatizar tarefas manuais. É possível criar uma interface de usuário com controladores para inserir dados, como caixas de texto e botões. Depois que eles forem capturados através dos controladores, pode-se utilizar o objeto "Range" (Alcance) para acrescentá-los à planilha de trabalho.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o Microsoft Excel, clique na guia "Developer" (Desenvolvedor) e selecione "Visual Basic". Clique no menu "Insert" (Inserir) e selecione "UserForm" para inserir um novo formulário. Clique em "TextBox" (Caixa de texto), no painel da caixa de ferramentas, e clique no formulário para adicionar um novo controle de caixa de texto. Acrescente uma segunda caixa e um "CommandButton" (Botão de comando) ao formulário utilizando a mesma técnica.

  2. 2

    Dê um duplo clique em "CommandButton1" para criar um evento de clique para o botão de comando. Adicione o código a seguir para criar duas variáveis para armazenar os dados digitados nas caixas de texto:

    Dim strTxt1 As String Dim strTxt2 As String

  3. 3

    Adicione o código a seguir para buscar os dados nas caixas de texto e salvá-los nas variáveis:

    strTxt1 = Me.TextBox1.Text strTxt2 = Me.TextBox2.Text

  4. 4

    Copie e cole o código a seguir para adicionar os dados à planilha de trabalho ativa utilizando o objeto "Range" (Alcance):

    Range("A1").Select Range("A1").Value = "Data:" Range("B1").Select Range("B1").Value = Now Range("A2").Select Range("A2").Value = "Meu programa em VBA" Range("A3").Select Range("A3").Value = "Você digitou '" & strTxt1 & "' na primeira caixa de texto" Range("A4").Select Range("A4").Value = "Você digitou '" & strTxt2 & "' na segunda caixa de texto" MsgBox ("Dados adicionados com sucesso!")

  5. 5

    Pressione F5 para executar o programa e visualizar o resultado na planilha de trabalho.

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