Questionário de Excel VBA com Macros Prontas – Aprenda Fazendo
“E ensinava-lhes com autoridade…” – Marcos 1:22

Este questionário foi cuidadosamente elaborado para estudantes, autodidatas e profissionais que desejam dominar Excel VBA com clareza e propósito. Cada questão apresenta um exemplo real de macro, uma situação prática, e uma explicação objetiva que fortalece o entendimento passo a passo.

Além de testar o conhecimento, este material instiga o pensamento lógico, a capacidade analítica e o senso de automação — pilares fundamentais para quem deseja criar planilhas inteligentes, reduzir tarefas repetitivas e aumentar a produtividade em ambientes corporativos, acadêmicos e pessoais.

Aqui, aprender não é apenas decorar comandos, mas entender a lógica por trás da automação com planilhas inteligentes. Com cada macro, o aluno desenvolve segurança na linguagem VBA e amplia sua visão estratégica no uso do Excel.

Ao final, o estudante terá: • domínio das estruturas básicas e intermediárias do VBA • compreensão sobre loops, condições, interação com planilhas e mensagens ao usuário • exemplos aplicáveis ao cotidiano profissional — prontos para adaptar

Estude no seu ritmo. Copie, teste e aprenda com propósito. O conhecimento transforma — e este questionário pode ser o ponto de virada na sua jornada com o Excel. 

Questionário: Excel VBA – Lógica e Prática Profissional

1. Qual é o atalho para abrir o Editor VBA no Excel?
A) Alt + F11
B) Ctrl + F11
C) Shift + F11 D
) Alt + F12
Resposta: A) Alt + F11
Explicação: Esse atalho abre diretamente o ambiente de desenvolvimento do VBA.

2. Qual objeto no VBA é usado para referenciar uma célula específica em uma planilha?
A) Range
B) Cell
C) Worksheet
D) Workbook
Resposta: A) Range
Explicação: Range("A1") é a forma padrão de referenciar a célula A1.

3. Qual é a função do comando MsgBox no VBA?
A) Exibir mensagem
B) Criar caixa de texto
C) Salvar arquivo
D) Abrir VBA
Resposta: A) Exibir mensagem
Explicação: MsgBox exibe uma caixa de diálogo com texto ao usuário.

4. Qual é o tipo de variável usado para armazenar números inteiros no VBA?
A) Integer B) String C) Double  D) Boolean
Resposta: A) Integer
Explicação: Integer armazena números como 1, 2 ou -50. (até 32.676)

5. Qual método é usado para ativar uma planilha específica no VBA?
A) Activate B) Select C) Open D) Load
Resposta: A) Activate
Explicação: PlanilhaX.Activate torna a planilha ativa.

6. Qual é o propósito do comando Dim no VBA?
A) Declarar variável
B) Definir tamanho da célula
C) Criar planilha
D) Salvar arquivo
Resposta: A) Declarar variável
Explicação: Dim define o nome e o tipo de uma variável.

7. Qual é o operador usado para concatenar strings no VBA?
A)  &
B)  +
C)  *
D) #
Resposta:  A) usa o Caracter &
Explicação: "Olá!," & " Quer Aprender Excel VBA"
resulta em “Ola, Quer Aprender Excel VBA”.

8. Qual é o comando usado para criar um loop que repete enquanto uma condição é verdadeira?
A) Do While
B) For Each
C) If Then
D) Select Case
Resposta: A) Do While
Explicação: Executa o bloco até que a condição se torne falsa.

9. Qual é o evento que é acionado quando uma planilha é ativada?
A) Worksheet_Activate
B) Workbook_Open
C) Worksheet_Change
D) Workbook_BeforeClose
Resposta: A) Worksheet_Activate
Explicação: Esse evento dispara quando a aba da planilha recebe foco.

10. Qual é o comando usado para exibir o valor de uma variável durante a execução do código?
A) Debug.Print
B) MsgBox
C) Console.Write
D) Show.Value
Resposta: A) Debug.Print
Explicação: Exibe informações na janela de depuração.

11. Qual é o método usado para copiar um intervalo de células no VBA?
A) Copy
B) Paste
C) Cut
D) Move
Resposta: A) Copy
Explicação: Range("A1:A5").Copy faz a cópia do intervalo.
Exemplo de Macro:
'copia e colar 
Sub Copiar_Dados
  Range("A1:A5").Copy [d10]
End Sub

12. Qual é o comando usado para encerrar um loop prematuramente no VBA?
A) Exit For
B) Break
C) Stop Loop
D) End
Resposta: A) Exit For
Explicação: Interrompe o laço antes da condição final.

13. Qual é o tipo de variável para valores booleanos no VBA?
A) Boolean
B) Integer
C) String
D) Variant
Resposta: A) Boolean
Explicação: Armazena True ou False.

14. Qual é o comando usado para criar uma nova pasta de trabalho no VBA?
A) Workbooks.Add
B) Workbook.New
C) Worksheet.Create
D) File.New
Resposta: A) Workbooks.Add
Explicação: Cria um novo arquivo em branco.

15. Qual é o método usado para salvar uma pasta de trabalho?
A) Save
B) SaveAs
C) Export
D) Write
Resposta: A) Save
Explicação: Salva o arquivo atual. Para salvar com outro nome, usa-se SaveAs.

Sub ApagarConteudo()
    Range("A1:A10").ClearContents
End Sub

Sub InserirTexto()
    Range("B2").Value = "Bem-vindo ao curso SomaExcel VBA!"
End Sub

Sub OcultarColuna()
    Columns("C").Hidden = True
End Sub

Sub MudarCor()
    Range("A1").Interior.Color = vbYellow
End Sub

Sub ExibirMensagem()
    MsgBox "Curso iniciado com sucesso!"
End Sub

Sub SomaSimples()
    Range("A1").Value = 10 + 5
End Sub

Sub InserirNovaLinha()
    Rows(3).Insert
End Sub

Sub CongelarTela()
    Application.ScreenUpdating = False
End Sub

Sub CriarPlanilha()
    Sheets.Add
End Sub

Sub FecharArquivo()
    ThisWorkbook.Close SaveChanges:=True
End Sub

41. O que essa macro faz?

Sub ApagarLinhas()
    Rows("5:10").Delete
End Sub

A) Oculta as linhas 5 a 10
B) Exclui as linhas 5 a 10
C) Apaga o conteúdo das células nas linhas 5 a 10
D) Move as linhas 5 a 10 para o topo
Resposta: B
Explicação: Delete remove fisicamente as linhas indicadas.

42. Qual é o resultado da macro abaixo?

Sub CopiarValor()
    Range("A1").Copy Range("B1")
End Sub

A) Move o valor de A1 para B1
B) Copia o valor de A1 para B1
C) Transfere todos os valores da coluna A para B
D) Troca os valores de A1 e B1
Resposta: B
Explicação: .Copy destino copia o conteúdo da célula A1 para B1.

43. O que acontece ao rodar essa macro?

Sub ExibirData()
    MsgBox Date
End Sub

A) Insere a data na célula ativa
B) Abre o calendário
C) Exibe a data atual em uma caixa de mensagem
D) Solicita que o usuário insira uma data
Resposta: C
Explicação: Date retorna a data atual do sistema.

44. Qual é o efeito desta macro?

Sub SelecionarIntervalo()
    Range("B2:D5").Select
End Sub

A) Copia o intervalo B2 até D5
B) Seleciona o intervalo B2 até D5
C) Apaga o intervalo indicado
D) Move os valores do intervalo
Resposta: B
Explicação: O método .Select apenas destaca as células.

45. O que essa macro realiza?

Sub ContarLinhas()
    MsgBox Range("A1").CurrentRegion.Rows.Count
End Sub

A) Conta todas as linhas da planilha
B) Conta as linhas de A1 até o fim da planilha
C) Conta as linhas da região contínua começando em A1
D) Conta apenas células vazias
Resposta: C
Explicação: CurrentRegion pega o bloco de dados conectado a A1.

46. Qual é a finalidade desta macro?

Sub IrParaFim()
    Range("A1").End(xlDown).Select
End Sub

A) Seleciona a última célula usada na coluna A
B) Apaga a coluna A
C) Move os dados para o final da planilha
D) Insere uma nova célula
Resposta: A
Explicação: End(xlDown) vai até a última célula com valor contínuo abaixo de A1.

47. O que essa macro faz com a coluna C?

Sub CongelarColuna()
    ActiveWindow.FreezePanes = True
End Sub

A) Congela a coluna C automaticamente
B) Congela a célula ativa atual
C) Congela toda a planilha
D) Oculta a coluna C
Resposta: B
Explicação: Congela a visualização a partir da célula ativa.

48. Qual é o comportamento da macro abaixo?

Sub DesprotegerPlanilha()
    ActiveSheet.Unprotect Password:="1234"
End Sub

A) Cria senha na planilha
B) Ativa a proteção contra escrita
C) Remove a proteção da planilha se a senha estiver correta
D) Deleta todos os dados
Resposta: C
Explicação: .Unprotect remove a trava(proteção) usando a senha fornecida.

49. O que essa macro exibe ao rodar?

Sub MostrarHora()
    MsgBox Time
End Sub

A) A data e a hora
B) Apenas a hora atual do sistema
C) A hora da célula ativa
D) Abre o relógio do Windows
Resposta: B
Explicação: Time retorna somente a hora atual.

50. Qual o resultado desta macro?

Sub FormatarNegrito()
    Range("A1").Font.Bold = True
End Sub

A) Alinha o texto à esquerda
B) Aplica itálico à célula
C) Ativa negrito na célula A1
D) Muda a cor da fonte
Resposta: C
Explicação: .Font.Bold = True deixa o texto em negrito.

51. Qual será a mensagem exibida?

Sub ConcatenarTexto()
    Dim nome As String
    nome = "Prof.Expedito Marcondes"
    MsgBox "Olá, " & nome
End Sub

A) Olá,
B) Expedito
C) Olá, Prof.Expedito Marcondes
D) “Olá,” & nome
Resposta: C
Explicação: O operador & concatena os textos.

52. O que acontece ao executar essa macro?

Sub SalvarArquivo()
    ActiveWorkbook.Save
End Sub

A) Fecha o Excel
B) Salva o arquivo atual
C) Abre o gerenciador de arquivos
D) Exibe uma mensagem
Resposta: B
Explicação: .Save grava as alterações do arquivo aberto.

53. Qual é o efeito dessa macro em um formulário?

Sub LimparCampos()
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

A) Remove os campos
B) Fecha o formulário
C) Limpa os campos de texto
D) Muda o foco para TextBox2
Resposta: C
Explicação: Define os valores dos campos como vazios.

54. Qual é a saída dessa macro?

Sub MostrarContagem()
    Dim i As Integer
    For i = 1 To 3
        MsgBox i
    Next i
End Sub

A) Exibe 1
B) Exibe 1, 2, 3 em sequência
C) Mostra apenas o 3
D) Exibe um erro de loop
Resposta: B
Explicação: O loop For...Next mostra 3 caixas com os valores 1, 2 e 3.

55. O que essa macro faz?

Sub OcultarLinhasVazias()
    If IsEmpty(Range("A5").Value) Then Rows(5).Hidden = True
End If

A) Oculta a planilha inteira
B) Oculta a linha 5 se ela estiver vazia
C) Exibe um aviso
D) Salta a linha 5 Resposta:
B Explicação: Condicional If verifica se A5 está vazia e esconde a linha.

56. O que esta macro faz?

Sub ApagarLinhas()
    Rows("5:10").Delete
End Sub

A) Oculta as linhas 5 a 10
B) Exclui as linhas 5 a 10
C) Apaga o conteúdo das células
D) Move as linhas para o topo
Resposta: B
Explicação: O método Delete remove as linhas da planilha.

57. Qual será o resultado desta macro?

Sub CopiarValor()
    Range("A1").Copy Range("B1")
End Sub

A) Move A1 para B1
B) Copia A1 para B1
C) Transfere todas as colunas
D) Troca os valores
Resposta: B
Explicação: O conteúdo de A1 é copiado para B1.

58. O que esta macro exibe?

Sub ExibirData()
    MsgBox Date
End Sub

A) Data atual 
B) Hora atual
C) Célula ativa
D) Nada
Resposta: A Explicação: A função Date retorna a data do sistema.

59. O que esta macro realiza?

Sub SelecionarIntervalo()
    Range("B2:D5").Select
End Sub

A) Copia as células
B) Seleciona o intervalo
C) Apaga o conteúdo
D) Move os dados
Resposta: B
Explicação: Apenas seleciona o intervalo especificado.

60. Qual o propósito desta macro?

Sub ContarLinhas()
    MsgBox Range("A1").CurrentRegion.Rows.Count
End Sub

A) Conta todas as linhas da planilha
B) Conta a região contínua a partir de A1
C) Verifica linhas vazias
D) Nada
Resposta: B
Explicação: CurrentRegion abrange o bloco de dados conectado a A1.

61. Qual o efeito desta macro?

Sub IrParaFim()
    Range("A1").End(xlDown).Select
End Sub

A) Seleciona A1
B) Desce até o fim dos dados na coluna A
C) Apaga coluna A
D) Duplica A1
Resposta: B
Explicação: Vai até a última célula preenchida verticalmente.

62. O que acontece ao rodar essa macro?

Sub CongelarVisual()
    ActiveWindow.FreezePanes = True
End Sub

A) Trava a edição
B) Congela a célula ativa
C) Fecha o arquivo
D) Nada Resposta: B
Explicação: Congela linhas/colunas a partir da célula ativa.

63. Qual a função da macro abaixo?

Sub Desproteger()
    ActiveSheet.Unprotect Password:="1234"
End Sub

A) Protege planilha
B) Mostra senha
C) Remove proteção
D) Apaga conteúdo
Resposta: C
Explicação: Se a senha for correta, a planilha é destravada.

64. O que esta macro exibe?

Sub MostrarHora()
    MsgBox Time
End Sub

A) Hora do Excel
B) Hora do sistema
C) Data
D) Nenhuma das anteriores
Resposta: B Explicação:
A função Time exibe a hora atual do computador.

65. Esta macro faz o quê?

Sub FormatarNegrito()
    Range("A1").Font.Bold = True
End Sub

A) Centraliza texto
B) Muda a cor C)
Aplica negrito na célula A1
D) Copia a fonte
Resposta: C
Explicação: Define o estilo da fonte como negrito.

66. Qual será a mensagem exibida?

Sub Saudacao()
    Dim nome As String
    nome = "Prof.Expedito Marcondes"
    MsgBox "Olá, " & nome
End Sub

A) Ola, Prof.Expedito Marcondes
B) Olá
C) “Olá,” & nome
D) Expedito
Resposta: A
Explicação: Usa concatenação para criar a saudação.

67. O que esta macro faz?

Sub SalvarAtivo()
    ActiveWorkbook.Save
End Sub

A) Salva o arquivo atual
B) Fecha sem salvar
C) Abre novo arquivo
D) Mostra o caminho do arquivo
Resposta: A
Explicação: .Save grava as alterações no arquivo.

68. Qual o efeito desta macro em um formulário?

Sub LimparTexto()
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

A) Fecha o formulário
B) Limpa os campos de texto
C) Remove os controles
D) Exibe alerta
Resposta: B
Explicação: Define os campos como vazios, limpando-os.

69. Esta macro exibe quais valores?

Sub MostrarNumeros()
    Dim i As Integer
    For i = 1 To 3
        MsgBox i
    Next i
End Sub

A) Apenas 3
B) 1, 2 e 3 em janelas diferentes
C) 1 somado com 3
D) Nenhum valor
Resposta: B
Explicação: O loop exibe uma caixa com cada valor de i.

70. Esta macro executa qual ação?

Sub OcultarSeVazio()
    If IsEmpty(Range("A5").Value) Then Rows(5).Hidden = True
End If

A) Oculta planilha
B) Oculta linha 5 se A5 for vazio
C) Apaga Linhas 5 e A5
D) Limpa as Linha 5 e A5
Resposta B
Explicação:  A função IsEmpty informa vazio

Questionário: Excel VBA – Planilhas, Loops, Condições e Lógica de Negócios
“O entendimento bem conduzido traz bom êxito.” – Provérbios 16:20

1. Criar nova planilha com nome personalizado

Sub CriarRelatorio()
    Worksheets.Add.Name = "Relatório"
End Sub

Pergunta: Qual é o propósito desta macro?
Resposta correta: Criar uma nova planilha chamada “Relatório”
Explicação: Worksheets.Add cria a planilha, e .Name define o nome.

71. Somar todos os valores preenchidos na Coluna A

Sub SomarColunaA()
    Dim cel As Range, total As Double
    For Each cel In Range("A1:A10")
        total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Pergunta: O que esta macro faz?
Resposta correta: Soma os valores da coluna A e exibe o total
Explicação: Usa For Each para somar cada célula do intervalo.

72. Somar apenas valores maiores que 10 na Coluna B

Sub SomarMaiores()
    Dim cel As Range, total As Double
    For Each cel In Range("B1:B10")
        If cel.Value > 10 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Pergunta: Qual será o resultado?
Resposta correta: Exibe a soma dos valores maiores que 10 na Coluna B
Explicação: Usa If para aplicar a condição dentro do loop.

73. Criar 5 novas planilhas automaticamente

Sub CriarPlanilhas()
    Dim i As Integer
    For i = 1 To 5
        Worksheets.Add.Name = "Planilha" & i
    Next i
End Sub

Pergunta: O que esta macro realiza?
Resposta correta: Cria 5 planilhas chamadas “Planilha1” até “Planilha5”
Explicação: Loop For com concatenação para nomear dinamicamente.

74. Ocultar todas as planilhas exceto a ativa

Sub OcultarOutras()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
End Sub

Pergunta: Qual o efeito? Resposta correta: Oculta todas as planilhas exceto a ativa Explicação: Verifica se a planilha não é a ativa e aplica Visible.

75. Mostrar o nome da planilha ativa

Sub NomeDaPlanilha()
    MsgBox ActiveSheet.Name
End Sub

Pergunta: O que esta macro faz? Resposta correta: Exibe o nome da planilha ativa Explicação: Usa ActiveSheet.Name com MsgBox.

76. Somar valores da célula A1 de todas as planilhas

Sub SomarTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("A1").Value
    Next ws
    MsgBox total
End Sub

Pergunta: Qual será o resultado?
Resposta correta: Exibe a soma dos valores na célula A1 de todas as planilhas
Explicação: Loop percorre todas as abas com .Range("A1").Value.

77. Excluir todas as planilhas exceto a ativa

Sub ExcluirOutras()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Delete
    Next ws
    Application.DisplayAlerts = True
End Sub

Pergunta: O que esta macro realiza?
Resposta correta: Exclui todas as planilhas exceto a ativa
Explicação: Usa .Delete com DisplayAlerts = False para não pedir confirmação.

78. Contar número total de planilhas no arquivo

Sub ContarPlanilhas()
    MsgBox Worksheets.Count
End Sub

Pergunta: Qual o propósito desta macro?
Resposta correta: Exibe o número total de planilhas no arquivo
Explicação: A propriedade .Count retorna a quantidade.

Sub SomarA1Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("A1").Value
    Next ws
    MsgBox total
End Sub

Pergunta: Qual será o resultado desta macro?
Resposta correta: Exibe a soma dos valores da célula A1 em todas as planilhas
Explicação: Este padrão é fundamental para entender como interagir com múltiplas guias no VBA — o loop For Each percorre as planilhas, somando A1 de cada uma.

80. Filtrar e somar somente valores maiores que 10 na Coluna C

Sub SomarMaioresQue10()
    Dim cel As Range, total As Double
    For Each cel In Range("C1:C20")
        If IsNumeric(cel.Value) And cel.Value > 10 Then
            total = total + cel.Value
        End If
    Next cel
    MsgBox "Total dos valores > 10: " & total
End Sub

Pergunta: O que esta macro faz?
Resposta correta: Soma apenas os valores numéricos maiores que 10 na Coluna C
Explicação: A instrução If com IsNumeric assegura que somente números acima de 10 sejam considerados. O loop percorre as células, somando conforme o critério.

Sub CriarComData()
    Worksheets.Add.Name = Format(Date, "dd-mm-yyyy")
End Sub

Sub SomarAcimaDe50()
    Dim cel As Range, total As Double
    For Each cel In Range("C1:C20")
        If IsNumeric(cel.Value) And cel.Value > 50 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub SomarAbaixoDe20()
    Dim cel As Range, total As Double
    For Each cel In Range("D1:D20")
        If IsNumeric(cel.Value) And cel.Value < 20 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub Criar10Planilhas()
    Dim i As Integer
    For i = 1 To 10
        Worksheets.Add.Name = "Planilha" & i
    Next i
End Sub

Sub MostrarRelatorios()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = (InStr(ws.Name, "Relatório") > 0)
    Next ws
End Sub

Sub NomeUltimaPlanilha()
    MsgBox Worksheets(Worksheets.Count).Name
End Sub

Sub SomarB2Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("B2").Value
    Next ws
    MsgBox total
End Sub

Sub ManterSomenteDados()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If InStr(ws.Name, "Dados") = 0 Then ws.Delete
    Next ws
    Application.DisplayAlerts = True
End Sub

Sub ContarPreenchidos()
    Dim cel As Range, cont As Integer
    For Each cel In Range("E1:E100")
        If Not IsEmpty(cel) Then cont = cont + 1
    Next cel
    MsgBox cont
End Sub

Sub SomarC3Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("C3").Value
    Next ws
    MsgBox "Total: " & total
End Sub

Sub SomarMaioresQue30()
    Dim cel As Range, total As Double
    For Each cel In Range("F1:F100")
        If IsNumeric(cel.Value) And cel.Value > 30 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub CriarResumo()
    Worksheets.Add.Name = "Resumo"
End Sub

Sub MostrarAnalises()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = (InStr(ws.Name, "Análise") > 0)
    Next ws
End Sub

Sub MostrarPrimeiraPlanilha()
    MsgBox Worksheets(1).Name
End Sub

Sub SomaD4EmTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("D4").Value
    Next ws
    MsgBox total
End Sub

Sub CopiarColunaAparaB()
    Dim i As Long
    For i = 1 To 100
        Cells(i, 2).Value = Cells(i, 1).Value
    Next i
End Sub

Sub BoasVindas()
    MsgBox "Bem-vindo ao mundo do Excel VBA!"
End Sub

Sub DeclararVariavel()
    Dim idade As Integer
    idade = 30
    MsgBox idade
End Sub

Sub SomarColunaC()
    Dim cel As Range, soma As Double
    For Each cel In Range("C1:C50")
        If IsNumeric(cel.Value) Then soma = soma + cel.Value
    Next cel
    MsgBox "Soma: " & soma
End Sub

Sub ProtegerPlanilha()
    ActiveSheet.Protect Password:="1234"
End Sub

Sub RenomearAba()
    ActiveSheet.Name = "ResumoFinanceiro"
End Sub

Sub CriarGrafico()
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("A1:B5")
End Sub

Sub DesligarAtualizacao()
    Application.ScreenUpdating = False
    ' tarefas longas aqui
    Application.ScreenUpdating = True
End Sub

Sub AbrirArquivo()
    Workbooks.Open "C:\Planilhas\relatorio.xlsx"
End Sub

Sub SomarC3Todas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("C3").Value
    Next ws
    MsgBox "Soma de C3: " & total
End Sub

Sub CancelarSeVazio()
    If IsEmpty(Range("A1")) Then
        MsgBox "Célula A1 está vazia. Macro cancelada."
        Exit Sub
    End If
    MsgBox "A1 tem valor: " & Range("A1").Value
End Sub

Sub PerguntarNome()
    Dim nome As String
    nome = InputBox("Digite seu nome:")
    MsgBox "Olá, " & nome
End Sub

Sub ContarPreenchidas()
    Dim cel As Range, total As Integer
    For Each cel In Range("B1:B20")
        If Not IsEmpty(cel) Then total = total + 1
    Next cel
    MsgBox "Preenchidas: " & total
End Sub

Sub MostrarNomePlanilha()
    MsgBox "Planilha ativa: " & ActiveSheet.Name
End Sub

Sub SomaD4EmTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("D4").Value
    Next ws
    MsgBox total
End Sub

 “O entendimento do justo é fonte de vida.” – Provérbios 10:11

O post Questionário Excel VBA Planilha – Treinamento Curso Excel VBA SomaExcel 1 apareceu primeiro em Excel - Curso VBA - Aprender Programação.

  Excel VBA Criativo Treine com Dados Gerados Automaticamente |  Sabedoria  um “Dom de Deus”

Aprenda Excel VBA Criando um Banco de Dados com Flores, Frutas e Criatividade!

Faça o Download do Exemplo de Planilha Excel VBA.
           Excel VBA Criativo Treine com Dados Gerados Automaticamente e Sabedoria Bíblica.xlsm

Se você está em busca de uma forma prática e interessante de treinar Excel VBA, esta lição é para você. Vamos automatizar a criação de um banco de dados com 1.500 registros fictícios, recheados de nomes, endereços florais e bairros frutados. E ainda com um hiperlink direto para um curso gratuito no final de cada linha!

Além de divertido, o projeto mostra como você pode usar criatividade para ensinar ou treinar pessoas com dados dinâmicos.

O Que Você Vai Aprender

• Como automatizar a geração de dados com VBA usando arrays
• Como preencher células com CPF, RG, telefone, data e observações
• Como aplicar formatação adequada nos dados
• Como adicionar links automáticos em células via VBA
• E o mais importante: como usar o Excel de forma criativa e útil!

Benefícios Dessa Atividade

• Redução de tempo com tarefas repetitivas
• Formação de base de teste para desenvolvimento de sistemas
• Exercício prático para entrevistas ou portfólio
• Inspiração para construir planilhas com identidade própria
• Inserção de links didáticos para estimular o aprendizado

Código VBA Completo

Sub sbx_gerar_banco_dados_automaticamente()
    Dim i As Long
    Dim nomes As Variant, cidades As Variant, ddds As Variant
    Dim flores As Variant, frutas As Variant
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BaseDeDados")

    nomes = Array("Ana Clara", "Lucas Silva", "Paulo Souza", _
        "Carla Mendes", "Fernanda Lima", "João Pedro", "Mariana Oliveira")
    cidades = Array("São Paulo", "Rio de Janeiro", "Salvador", _
        "Belo Horizonte", "Fortaleza")
    cab = Array("ID", "NOME", "ENDEREÇO", "BAIRRO", "CIDADE", "CPF", _
        "CEP", "TELEFONE", "STATUS", "DATA", "OBSERVAÇÕES")

    For i = 1 To UBound(cab)
        Cells(1, i) = cab(i - 1)
    Next i

    ddds = Array("11", "21", "71", "31", "85")
    flores = Array("Rosa", "Orquídea", "Violeta", "Lírio", "Tulipa", _
            "Girassol", "Jasmim", "Dália")
    frutas = Array("Macieira", "Bananeiras", "Abacaxis", "Laranjeiras", _
            "Videira", "Mangueira", "Cajueiro", "Pereira")

    For i = 2 To 1501
        ws.Cells(i, 1).Value = i - 1
        ws.Cells(i, 2).Value = nomes(Int(Rnd * UBound(nomes) + 1))
        ws.Cells(i, 3).Value = "Rua: " & _
           flores(Int(Rnd * UBound(flores) + 1)) & ", nº " & Int(Rnd * 999 + 1)
        ws.Cells(i, 4).Value = "Bairro: " & _
            frutas(Int(Rnd * UBound(frutas) + 1))

        Dim idx As Integer: idx = Int(Rnd * UBound(cidades) + 1)
        ws.Cells(i, 5).Value = cidades(idx)
        ws.Cells(i, 6).Value = _
           Format(Int(Rnd * 900000000 + 100000000), "000\.000\.000\-00")
        ws.Cells(i, 7).Value = _
           Format(Int(Rnd * 90000000 + 10000000), "00\.000\.000\-0")
        ws.Cells(i, 8).Value = _
            "(" & ddds(idx) & ") 9" & _
               Int(Rnd * 9000 + 1000) & "-" & Int(Rnd * 9000 + 1000)
        ws.Cells(i, 9).Value = Choose(Int(Rnd * 3 + 1), _
                "Ativo", "Inativo", "Pendente")
        ws.Cells(i, 10).Value = _
                DateSerial(2023, Int(Rnd * 12 + 1), Int(Rnd * 28 + 1))
        ws.Cells(i, 11).Value = Choose(Int(Rnd * 3 + 1), _
               "Aguardando retorno", "Contato recente", "Sem observações")

        ws.Hyperlinks.Add _
            Anchor:=Cells(i, 12), _
            Address:="https://somaexcel.com.br/cursos/curso-excel-vba/", _
            TextToDisplay:="Curso Excel VBA - SomaExcel"
    Next i

    MsgBox "Banco de dados Florido e Fruteiras gerado com sucesso! 🌷🍊"
End Sub

Inspiração Bíblica Para Aprendizado e Evolução

> “O coração sábio busca o conhecimento, mas a boca dos tolos se alimenta de insensatez.” — Provérbios 15:14 > > “Ensina-nos a contar os nossos dias, para que alcancemos coração sábio.” — Salmo 90:12 > > “Melhor é o sábio do que o forte, e o homem de conhecimento do que o poderoso.” — Provérbios 24:5

Agradecimento e Contato

Muito obrigado por acompanhar esta lição. Espero que ela inspire você a criar, praticar e evoluir com Excel VBA de forma leve e criativa. Deus abençoe sua jornada de aprendizado!

Fico à disposição para dúvidas e sugestões:

  Prof. Expedito Marcondes
Tire-Dúvidas: suportecursovba@gmail.com

O post Excel VBA Criativo Treine com Dados Gerados Automaticamente apareceu primeiro em Excel - Curso VBA - Aprender Programação.