Exemplos de VBA do Excel
Isso é muito importante quando comecei a trabalhar e aprender macros VBA; fiquei confuso por onde começar. Já vimos o Editor do VBA, que possui todas as definições das opções e guias da janela do Editor do VBA. Como iniciante, sempre não sabemos como começar a coisa até encontrar uma. Este artigo é a solução para aqueles que enfrentam dificuldades em usar e aprender exemplos do VBA e criar macros. Todos nós já enfrentamos o tempo em que certas coisas no Excel poderiam ter sido automatizadas usando Macro. Mas, alguém que não sabe usar o VBA não poderá criar um. Este será um guia útil para quem é novo na codificação de macros VBA.
Exemplos de VBA no Excel para iniciantes
Abaixo estão os exemplos de VBA no Excel:
Você pode baixar este modelo de Excel do VBA Examples aqui - Modelo de Excel do VBA ExamplesExemplo 1 do VBA
Vamos ver um exemplo simples de uso da codificação VBA. Para isso, siga as etapas abaixo:
Etapa 1: abra um módulo VBA onde escreveremos nosso código na guia do menu Inserir, como mostrado abaixo.
Etapa 2: Agora escreva o subprocedimento da macro VBA em qualquer nome.
Código:
Sub VBA_Examples1 () End Sub
Etapa 3: defina uma variável usando DIM, onde armazenaremos números como Inteiros.
Código:
Sub VBA_Examples1 () Dim A como número inteiro final Sub
Etapa 4: agora forneça qualquer número para a variável acima definida, como mostrado abaixo.
Código:
Sub VBA_Examples1 () Dim A como número inteiro A = 100 End Sub
Etapa 5: Agora usaremos a caixa de mensagem para imprimir o valor armazenado na variável A.
Código:
Sub VBA_Examples1 () Dim A como número inteiro A = 100 MsgBox A End Sub
Etapa 6: execute o código pressionando a tecla F8 ou clicando no botão Play localizado abaixo da barra de menus. Veremos a caixa de mensagem com o valor 100.
Código:
Sub VBA_Examples1 () Dim A como número inteiro A = 100 MsgBox A End Sub
Etapa 7: Isso também poderia ter sido feito com a função Debug Print, cujos valores são vistos na Janela Imediata. ( Nota: Pressione Ctrl + G para abrir a janela imediata)
Código:
Sub VBA_Examples1 () Dim A como número inteiro A = 100 Debug.Print A End Sub
Exemplo 2 do VBA
Agora, neste exemplo, veremos outro exemplo em que usaremos o loop For-Next para imprimir os nomes das planilhas. Para isso, siga as etapas abaixo:
Etapa 1: Abra um módulo e escreva o subprocedimento como mostrado abaixo. Podemos usar qualquer nome para definir isso.
Código:
Sub VBA_Examples2 () End Sub
Etapa 2: escolha uma variável como um número inteiro. Podemos escolher a variável name como fizemos no exemplo-1.
Código:
Sub VBA_Examples2 () Dim A como número inteiro End Sub
Etapa 3: Abra um loop For-Next, como mostrado abaixo.
Código:
Sub VBA_Examples2 () Dim A como número inteiro para o próximo A End Sub
Etapa 4: selecione a posição da célula de onde queremos ver os nomes das planilhas. Aqui, como não temos nenhuma referência de cabeçalho, podemos começar a partir da célula 1.
Código:
Sub VBA_Examples2 () Dim A como número inteiro para A = 1 em folhas.
Etapa 5: Agora atribuímos a variável A com a célula Value para ver o nome da planilha como mostrado abaixo.
Código:
Sub VBA_Examples2 () Dim A As Inteiro For A = 1 To Sheets.Count Cells (A, 1) .Value = Sheets (A) .Name Próximo A End Sub
Etapa 6: Agora execute o código pressionando a tecla F8 ou clicando no botão Play.
Veremos, como tínhamos três folhas, todas nomeadas como padrão, e o nome delas foi impresso da célula A1 para baixo até o número de folhas que temos.
Exemplo 3 do VBA
Neste exemplo, aprenderemos como imprimir os números. Esse processo é o mesmo que vimos no exemplo 2. Para isso, siga as etapas abaixo:
Etapa 1: Abra um módulo e escreva o subprocedimento.
Código:
Sub VBA_Examples3 () End Sub
Etapa 2: considere uma variável usando DIM como número inteiro. Como estamos usando os números para o tipo de dados Inteiro, deve ser usado.
Código:
Sub VBA_Examples3 () Dim A como número inteiro End Sub
Etapa 3: abra novamente um loop For-Next, como mostrado abaixo.
Código:
Sub VBA_Examples3 () Dim A como número inteiro para o próximo Sub End
Etapa 4: agora selecione o intervalo de células de onde queremos ver o número até o último na sintaxe For.
Código:
Sub VBA_Examples3 () Dim A como número inteiro Para A = 1 a 10 Próximo A End Sub
Etapa 5: Agora corrija a posição da célula com a variável A. Aqui, o vértice da segunda posição na célula mostra o número da coluna. Como escolhemos 1, esperamos ver os números começando na célula A1.
Código:
Sub VBA_Examples3 () Dim A como número inteiro para A = 1 a 10 células (A, 1) .Value = A Next A End Sub
Etapa 6: Agora execute o código pressionando a tecla F8 ou clicando no botão Play. Veremos que os números são gerados da célula A1 a A10, começando de 1 a 10 .
Etapa 7: E se tentarmos adicionar esses números na segunda coluna? Altere o vértice da coluna de 1 para 2. Ou adicione outra linha de código, como mostrado abaixo.
Código:
Sub VBA_Examples3 () Dim A como número inteiro para A = 1 a 10 células (A, 1) .Value = Células A (A, 2) .Value = A Próximo A End Sub
Etapa 8: execute novamente o código completo pressionando a tecla F8 ou clicando no botão Play. Veremos o mesmo número, começando de 1 a 10, impresso na coluna B e também da célula B1 a B10.
Exemplo 4 do VBA
Neste exemplo, veremos como alterar a cor das células em branco dos intervalos selecionados. Para isso, usamos o mesmo número do exemplo acima, mas excluímos algumas das células para obter a saída.
Etapa 1: Abra um módulo, escreva o subprocedimento como mostrado abaixo.
Código:
Sub VBA_Example4 () End Sub
Etapa 2: defina uma variável usando DIM como intervalo, pois estamos selecionando o intervalo de números existentes.
Código:
Sub VBA_Example4 () Dim A como intervalo End Sub
Etapa 3: Agora defina essa variável como Seleção
Código:
Sub VBA_Example4 () Dim A como intervalo definido A = Seleção End Sub
Etapa 4: Agora selecione o intervalo de números usando a variável definida A e escolha xlCellTypeBlanks para selecionar apenas as células em branco.
Código:
Sub VBA_Example4 () Dim A como intervalo Defina A = Seleção A.Cells.SpecialCells (xlCellTypeBlanks). End Sub
Etapa 5: Agora, para alterar a cor interna das células em branco, use Interior.Color e escolha a cor pela qual queremos destacar as células em branco. Use o tipo vbBlue ou vbGreen para definir a cor. O uso de vb é uma obrigação.
Código:
Sub VBA_Example4 () Dim A como intervalo Defina A = Seleção A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub
Etapa 6: Agora selecione o intervalo de células e execute o código pressionando a tecla F8 ou clicando no botão Play. Veremos que as células A4 e A7 que estavam em branco agora estão destacadas com a cor azul, como mostrado abaixo.
Prós e contras de exemplos de VBA do Excel
- O VBA aumenta a eficiência do trabalho.
- Com isso, queremos reduzir as tarefas repetitivas de uma só vez.
- Podemos criar qualquer tipo de macro que desejarmos.
- Também podemos gravar uma macro se a codificação não for fácil.
- Pessoas que não têm conhecimento ou idéia de codificação podem achar difícil usar a macro VBA.
Coisas para lembrar
- O iniciante no VBA deve ter em mente salvar o código no formato excel habilitado para macro. Isso nos permitirá manter o código no mesmo arquivo.
- Sempre compile o código completo, mesmo que o código seja de uma linha. Isso reduzirá nosso tempo na depuração se você enfrentar algum erro enquanto o código for executado.
- Sempre inicie o processo de aprendizado do VBA ou qualquer outra linguagem de codificação com código pequeno e fácil. Isso dará uma melhor compreensão e confiança.
Artigos recomendados
Este é um guia para exemplos de VBA no Excel. Aqui discutimos alguns exemplos úteis de código de macro VBA no Excel, juntamente com o modelo do Excel para download. Você também pode consultar nossos outros artigos sugeridos -
- Coleção VBA (exemplos)
- Instruções IF do VBA | Modelos do Excel
- Como usar a função de classificação Excel VBA?
- VBA While Loop (exemplos com modelo do Excel)
- Ambiente VBA