Guia do Instrutor: VBA Corporativo & Automação Office

Este guia foi elaborado para apoiar o professor na condução das aulas práticas no laboratório de informática, oferecendo estratégias de nivelamento para turmas com perfis heterogêneos, diagnóstico de erros frequentes de compilação no VBE e rubricas claras para correção das tarefas entregues no Microsoft Teams.

⏱️ Gestão do Tempo em Aula (Bloco de 50 minutos)

Para garantir que os alunos compreendam os conceitos de automação e tenham tempo suficiente para codificar e depurar no Excel:

flowchart LR
    A["1. Contexto & Cenário<br/>(10 min)<br/>Problema FastLog S.A."] --> B["2. Live Coding no Projetor<br/>(20 min)<br/>Construção no VBE com F8"]
    B --> C["3. Prática 2 & Desafio<br/>(15 - 20 min)<br/>Autonomia no Computador"]
    
    style A fill:#2980b9,stroke:#fff,stroke-width:2px,color:#fff
    style B fill:#217346,stroke:#fff,stroke-width:2px,color:#fff
    style C fill:#8e44ad,stroke:#fff,stroke-width:2px,color:#fff

• 10 min: Apresente a dor operacional da transportadora na lousa. Discuta por que fazer a tarefa manualmente é lento e passível de falha humana.
• 20 min: Abra o VBE (Alt + F11) no projetor e digite a Prática Obrigatória 1 com a turma, demonstrando a depuração passo a passo com a tecla F8 e a Janela de Verificação Imediata.
• 15 a 20 min: Deixe os alunos resolverem a Prática Obrigatória 2 e o Desafio de Fixação de forma individual, prestando atendimento às dúvidas de sintaxe.

🚀 Orientações Pedagógicas por Módulo

🧱 Módulo 1: O Ambiente VBE, Modelo de Objetos & Fundamentos (Cap 01 a 04)

• Capítulo 01 (VBE & Gravador de Macros):

  • Ponto de Atenção: Alunos salvando com extensão .xlsx comum em vez de .xlsm, perdendo o código ao fechar.
  • Dica Didática: Ensine que arquivos de macro exigem o “m” no final (Macro-Enabled). Mostre a diferença brutal entre macros gravadas cheias de Select e o bloco profissional With Range(...).
  • 🎓 Atividade Bônus: Personalizar um botão com cantos arredondados e sombra corporativa.

• Capítulo 02 (Tipagem Estática & Option Explicit):

  • Ponto de Atenção: Esquecer de digitar Option Explicit ou confundir o tipo Integer com Long.
  • Dica Didática: Explique que o Excel possui mais de 1 milhão de linhas, logo Integer (limitado a 32.767) causará Overflow 6. Sempre utilize Long para contadores e linhas.
  • 🎓 Atividade Bônus: Calcular a média de peso por eixo do caminhão na Janela Imediata (Ctrl + G).

• Capítulo 03 (Modelo de Objetos: Range vs Cells):

  • Ponto de Atenção: Inversão das coordenadas em Cells(coluna, linha). O correto é sempre Cells(linha, coluna)!
  • Dica Didática: Faça a analogia com a batalha naval ou com a leitura ocidental: primeiro você olha a linha horizontal, depois a coluna vertical.
  • 🎓 Atividade Bônus: Criar uma macro que colore cada aba com uma cor aleatória via RGB(Rnd*255, Rnd*255, Rnd*255).

• Capítulo 04 (Interação e Sanitização de Strings):

  • Ponto de Atenção: Não tratar o clique no botão “Cancelar” da InputBox, gerando erro de tipo quando o retorno é string vazia.
  • Dica Didática: Demonstre que Trim() remove apenas espaços das pontas, enquanto Replace(txt, " ", "") remove todos os espaços internos.
  • 🎓 Atividade Bônus: Criar um formatador de CEP no padrão 00000-000 usando Left e Right.

⚙️ Módulo 2: Estruturas de Decisão, Laços e Otimização (Cap 05 a 08)

• Capítulo 05 (Condicionais & Select Case):

  • Ponto de Atenção: Encadeamento excessivo de If em vez de Select Case.
  • Dica Didática: Mostre como o Select Case torna o código legível para quem lê regras de negócios fiscais e aduaneiras.
  • 🎓 Atividade Bônus: Adicionar categoria de carga viva com exigência de veterinário responsável.

• Capítulo 06 (For…Next & Varredura Reversa Step -1):

  • Ponto de Atenção: Alunos que tentam excluir linhas com laço de cima para baixo (For i = 2 To N), pulando linhas consecutivas.
  • Dica Didática: Simule com 4 alunos em pé na frente da sala: exclua o segundo aluno e observe o terceiro dar um passo à frente ocupando a vaga. O professor que olha para a cadeira 3 agora perdeu o aluno promovido!
  • 🎓 Atividade Bônus: Destacar em amarelo as linhas que não foram excluídas.

• Capítulo 07 (Do While / Do Until & Última Linha):

  • Ponto de Atenção: Esquecer de colocar lin = lin + 1, travando o Excel em looping infinito.
  • Dica Didática: Ensine imediatamente o atalho de emergência Ctrl + Pause Break ou Esc.
  • 🎓 Atividade Bônus: Parar o laço se o saldo acumulado ficar negativo (alerta de cheque especial).

• Capítulo 08 (For Each & Otimização de Performance):

  • Ponto de Atenção: Esquecer de religar ScreenUpdating = True no final, deixando a tela do Excel congelada.
  • Dica Didática: Faça um teste cronometrado na frente da turma com e sem ScreenUpdating, mostrando o ganho de 50x na velocidade.
  • 🎓 Atividade Bônus: Proteger todas as abas ocultando as fórmulas com a propriedade FormulaHidden = True.

📊 Módulo 3: Vetores, Matrizes e Funções UDF (Cap 09 a 12)

• Capítulo 09 (Vetores Dinâmicos & ReDim Preserve):

  • Ponto de Atenção: Esquecer a palavra Preserve, apagando os dados anteriores do vetor.
  • Dica Didática: Mostre que ReDim comum é como comprar uma estante nova jogando fora todos os livros da antiga; ReDim Preserve transfere os livros para a estante maior.
  • 🎓 Atividade Bônus: Inverter a ordem do vetor (do último para o primeiro).

• Capítulo 10 (Matrizes 2D em Memória & Big Data):

  • Ponto de Atenção: Confundir os índices de dimensão em UBound(matriz, 1) (linhas) e UBound(matriz, 2) (colunas).
  • Dica Didática: Destaque que carregar a matriz com var = Range.Value cria um array de base 1 (e não base 0).
  • 🎓 Atividade Bônus: Calcular o desvio padrão do consumo da frota na memória RAM.

• Capítulo 11 (Modularização ByVal & ByRef):

  • Ponto de Atenção: Não saber que o padrão do VBA é ByRef, o que pode causar efeitos colaterais indesejados.
  • Dica Didática: Mostre que ByVal é enviar uma cópia em xerox de um documento; ByRef é entregar a certidão original para a outra pessoa rabiscar.
  • 🎓 Atividade Bônus: Criar uma sub-rotina utilitária que exporta qualquer aba para PDF.

• Capítulo 12 (Funções Personalizadas UDF):

  • Ponto de Atenção: Tentar mudar a cor de uma célula ou deletar linhas dentro de uma UDF chamada por fórmula.
  • Dica Didática: Explique a regra de ouro: “UDF em célula calcula e retorna; não mexe na mobília da casa!”.
  • 🎓 Atividade Bônus: Criar a fórmula =DIASUTEISLOGISTICA(dataIni, dataFim).

🖥️ Módulo 4: Interfaces Gráficas e Eventos (Cap 13 a 16)

• Capítulo 13 (UserForms & Controles Básicos):

  • Ponto de Atenção: Não renomear os controles, deixando nomes padrão como TextBox1, CommandButton2.
  • Dica Didática: Exija o padrão corporativo húngaro: txtPlaca, cmdGravar, lblTitulo.
  • 🎓 Atividade Bônus: Adicionar máscara de placa veicular durante a digitação.

• Capítulo 14 (ComboBox & ListBox Multicolunas):

  • Ponto de Atenção: ListBox em branco por esquecer de configurar ColumnCount e ColumnWidths.
  • Dica Didática: Mostre o poder da linha lst.List = ws.Range("A2:D20").Value, que carrega tudo em 1 comando.
  • 🎓 Atividade Bônus: Adicionar filtro de busca que atualiza a ListBox enquanto o usuário digita.

• Capítulo 15 (Automação Orientada a Eventos):

  • Ponto de Atenção: Recursão infinita no Worksheet_Change por esquecer Application.EnableEvents = False.
  • Dica Didática: Mostre que sem desligar os eventos, a célula alterada chama a macro, que altera a célula, que chama a macro novamente até travar o Excel.
  • 🎓 Atividade Bônus: Criar um som de bip (Beep) toda vez que uma placa for carimbada.

• Capítulo 16 (Tratamento de Exceções & Logs):

  • Ponto de Atenção: Esquecer o comando Exit Sub antes do rótulo TratarErro:, fazendo com que a mensagem de erro apareça mesmo quando a macro funciona perfeitamente!
  • Dica Didática: Mostre como a janela amarela “Depurar” assusta o cliente e expõe a empresa a falhas de segurança.
  • 🎓 Atividade Bônus: Gravar o log de erro em um arquivo .txt no disco local com data e hora.

🌐 Módulo 5: Interoperabilidade e Projeto Final (Cap 17 a 20)

• Capítulo 17 (FileSystemObject):

  • Ponto de Atenção: Esquecer de fechar o arquivo com arq.Close.
  • Dica Didática: Demonstre que arquivos não fechados ficam bloqueados pelo Windows impedindo exclusões futuras.
  • 🎓 Atividade Bônus: Ler um arquivo .txt externo e listar os arquivos de uma pasta em uma aba.

• Capítulo 18 (Automação Outlook):

  • Ponto de Atenção: Computador do aluno sem o Outlook configurado.
  • Dica Didática: Se o aluno não tiver conta no Outlook configurada, utilize o método .Display em vez de .Send; a tela abrirá sem enviar, validando o código perfeitamente!
  • 🎓 Atividade Bônus: Formatar o corpo do e-mail com uma tabela HTML zebrada.

• Capítulo 19 (Conexão ADODB e SQL):

  • Ponto de Atenção: Erro na Connection String por caminho incorreto do arquivo .accdb.
  • Dica Didática: Utilize ThisWorkbook.Path & "\banco.accdb" para que o código funcione em qualquer máquina.
  • 🎓 Atividade Bônus: Executar um comando SQL INSERT INTO adicionando uma nova peça ao estoque.

• Capítulo 20 (FastLog RPA Enterprise 1.0):

  • Ponto de Atenção: Integração de ponta a ponta e alinhamento visual do Dashboard.
  • Dica Didática: Conduza uma sessão de “Go-Live” onde cada aluno apresenta seu robô operando e recebe a certificação de conclusão.
  • 🎓 Atividade Bônus: Criar um atalho de teclado oficial (ex: Ctrl + Shift + R) para disparar o robô.

📊 Rubrica de Avaliação para Entregas no Microsoft Teams