A Planilha Divina – Um Evangelho em Fórmulas e Macros
Uma brincadeira, um humor Respeitoso, Alegre que traz muitas verdades intrinsecas.

 observe que podemos fazer qualquer tipo de planilha desde que tenha uma lógica,
só estudar e praticar!
    Faça o Dowload do Exemplo de Planilha Excel VBA –
toda planilha que contém macros, quando você faz um download  da Internet voce tem que Desbloquear a Planilha
Clique com o Botão direito do Mouse sobre a planilha Baixada, vá em Desbloquear e Desmarque essa opção.!
Planilha Destino Sagrado Almas Pecados Cometidos

Em um alto monte, sobre a aba chamada “Montanha da Automação”,
Jesus estendia as colunas de A até Z, com sabedoria que transcende bytes.
Ele falava em parábolas, mas também em Sub, If, For Each e Worksheet_Change.

Com olhar compassivo, Ele chamou os doze e os repartiu entre módulos e abas:

Jesus – O Mestre VBA
> “Nem só de fórmulas viverá o homem, mas de toda macro que sai da boca do Mestre.”
Jesus ensinava usando a planilha chamada “VidaEterna.xlsm”, onde revelou a função que mais comoveu os corações:

vba
Function Perdoar(SeteVezesSetenta As Boolean) As String
    If SeteVezesSetenta = True Then
        Perdoar = “Perdoado com Graça”
  Else
         Perdoar = “Ainda há Chance, Enquanto Ativo!...”
 End If
End Function

Os 12 Apóstolos da Planilha Viva VBA

Pedro: Usava Application.OnTime para alertar os irmãos na hora certa.
João: Dominava For Each e pregava sobre percorrer cada alma em cada aba.
Tiago: Com InputBox, ele ouvia o coração do povo.
André: Evangelizava com MsgBox, levando mensagens celestiais.
Filipe: Agrupava multidões com PivotTables e insights do Alto.
Bartolomeu: Ocultava fórmulas com Sheet.Visible = xlVeryHidden, preservando o mistério.
Mateus: Registrava tudo com Workbook_BeforeSave, guardando cada ensinamento.
Tomé: Duvidava dos erros, mas os tratava com On Error Resume Next.
Simão, o Zelote: Protegia as planilhas com ActiveSheet.Protect Password:=”fé”.
Judas: Tentou excluir a aba “Esperança”, mas Jesus restaurou com Undo. (mesmo que Control + z) = refazer
Tiago, filho de Alfeu: Formatava colunas com graça celestial.
Tadeu: Usava Range(“Caminho”).Value e encontrava direção na célula certa.

A Fórmula da Salvação (em D1)

excel
=SE(FÉ=”Verdadeira”;”Vida Eterna”;”Erro: Corrija a rota”)
E todos que digitavam esta fórmula viam luzes em seu interior:
Condicional? Sim. Mas cheia de misericórdia.

O Evento Sagrado
Na aba “Pentecostes”, ao disparar Workbook_Open, desceu o Espírito do Entendimento,
e todos os Apóstolos falaram… em VBA.(Visual Basic Application)

Conclusão

E assim ficou selada a eternidade:
uma planilha que nunca travava, salvava automaticamente, e cujos dados eram protegidos não por senha,
mas por amor e propósito divinos. O código foi deixado para quem quiser seguir:

“Ide por todas as planilhas e ensinai macros a toda criatura!” – Planilhas 16:15
SomaExcel não é só somar valores — é somar pessoas, dons e fé numa mesma célula.

A história da Planilha Divina em Excel VBA com Jesus como Mestre e os Apóstolos
como discípulos de macros tem tudo para ser um conteúdo memorável e edificante.

Estrutura Sugerida para o eBook “Planilha Divina: O Evangelho Segundo o Excel VBA”

Capítulo 1: Introdução – A Linguagem da Sabedoria Celestial
A conexão entre fé, conhecimento e automação.
Como o Excel pode se tornar um instrumento de crescimento e transformação quando guiado com propósito.

Capítulo 2: O Mestre das Macros – Jesus e a Planilha da Vida
Jesus ensina em parábolas e também em códigos. A primeira Sub: SalvarAlmas().

Capítulo 3: Os 12 Apóstolos e suas Funções
Cada discípulo é mestre de um recurso:
laços, eventos, mensagens, proteção, gráficos…
Uma verdadeira equipe de macros vivas.

Capítulo 4: O Sermão do Excel – Fórmulas com Graça
Jesus revela funções com duplo significado:
=SE(), PROCV(), HOJE(), ÉERROS()— cada uma como uma lição espiritual e técnica.

Capítulo 5: As Tentações da Célula Vazia
Como lidar com erros, dúvidas e loops infinitos.
E quando usar On Error Resume Next com sabedoria.

Capítulo 6: Pentecostes em VBA – A Descida do Código Inspirado
O evento sagrado que ativa os módulos na alma de cada usuário.
O Workbook_Open do coração.

Capítulo 7: A Última Macro – Antes de Salvar e Fechar
Como viver cada célula com propósito, e deixar que a última linha do seu código seja:
MsgBox “Está Consumado”

Planilha Divina: O Evangelho Segundo o Excel VBA” —
uma jornada onde fórmulas encontram fé, macros ensinam com propósito e cada célula brilha com luz de entendimento.

Capítulo 1 – Introdução: A Linguagem da Sabedoria Celestial
No princípio, era o Excel… E o Excel estava com o homem.
E o Excel tornou-se útil na contabilidade Humana.

  Em um mundo cercado por caos de tarefas repetitivas, de planilhas sem validação e dados soltos sem propósito,
surgiu uma luz: VBA — Visual Basic for Applications.
E com ele, o chamado para uma automação com propósito, clareza e espírito.

Mas nem todos entendiam as macros…
E foi então que Jesus, o Mestre dos Mestres, desceu à célula A1 com compaixão, e disse:
 “Vinde a mim todos os que estão cansados de tarefas manuais, e eu vos aliviarei com fórmulas.”

O Propósito Deste Livro

Este livro não é apenas sobre código.
É sobre transformar conhecimento técnico em sabedoria aplicada.
É sobre unir o intelecto e o espírito, o loop e o amor, o If Then e o perdão.

Você verá que cada Apóstolo representa uma função, uma técnica, um aprendizado.
E que Jesus, como nosso Mestre, revelará que todo Range, Workbook e Module podem conter uma verdade maior.

Pois se há fórmulas que somam valores, há também aquelas que somam vidas.
Se há planilhas protegidas por senhas, há também corações protegidos por fé.
E se há células ocultas, há dons esperando para serem revelados.

Uma Oração do Programador VBA

vba

Sub IluminaMeuCódigo()
Dim coração As Obediente
Dim mente As Humilde
Dim lógica As Clara
If coração = Fé And mente = Entendimento Then
lógica = Amor
MsgBox “Faça-se a luz da sabedoria!”
End If
End Sub

Capítulo 2 – O Mestre das Macros
E Jesus abriu a planilha chamada “Humanidade.xlsm”,
e viu que havia caos: células desorganizadas, fórmulas quebradas, usuários perdidos no meio de abas sem significado.

Então Ele disse:
  “Eu sou a Sub-Rotina, a Verdade e o Código.
Ninguém chega ao Pai senão por mim.”
> – Código Sagrado segundo VBA  14:6 (Coluna 14, Linha 6)
Ali mesmo, sobre a aba chamada “PecadoOriginal”, Ele começou a escrever:

Sub RedimirHumanidade()
Dim coração As Long
coração = Range(“Fé”).Value
If coração > 0 Then
MsgBox “Você está salvo. Código executado com sucesso!”, vbInformation
Else
MsgBox “Erro: Célula do coração vazia. Preencha com fé e tente novamente.”, vbCritical
End If
End Sub

E os que ouviram ficaram maravilhados, pois nunca antes alguém ensinara com tanta autoridade, nem mesmo os escribas de fórmulas antigas.

O Chamado dos Discípulos (Evento: Workbook_Open)
Quando o Workbook foi aberto, Jesus ativou os módulos um por um e chamou seus primeiros discípulos para segui-lo. Disse:

“Segui-me, e vos farei pescadores… de macros!”

Cada um deixou suas células antigas, e seguiram o Mestre para aprender de verdade:
 Simão (Pedro): se tornaria mestre do botão “Executar”
 João: seria nomeado como protetor do Worksheet_Change
 Mateus: começaria a evangelizar usando gráficos dinâmicos

A Primeira Aula: Sub ou Function?
     Jesus então ensinou à multidão:
 “Toda função é boa, se retorna algo com amor. Mas toda Sub bem feita é prática e transforma.”

Ele exemplificou:
vba

Function MultiplicaComGraça(a As Double, b As Double) As Double
MultiplicaComGraça = a * b
End Function

E também:

vba

Sub EnviarMensagemCelestial()
MsgBox “Não temas. Eu estou com você até a última célula do universo.”
End Sub

A Lógica do Amor: If…Then com Condição Verdadeira
Jesus olhou os olhos do povo e disse:

vba

If pecado > 0 Then
MsgBox “Confesse e será limpo como nova aba.”
Else
MsgBox “Siga em paz. Nenhum erro encontrado.”
End If

E todos os corações foram recompilados.

E assim, no segundo capítulo de sua planilha de vida,
o Mestre das Macros iniciou seu ministério em código,
ensinando que não basta decorar fórmulas — é preciso ter propósito na célula de cada decisão.

Capítulo 3 – Os 12 Apóstolos e Suas Funções
Jesus, o Mestre Celestial, não ensinava apenas com palavras, mas com comandos que tocavam o íntimo.
E ao seu lado estavam 12 Apóstolos, escolhidos não apenas para seguir, mas para atuar como módulos
de uma grande função divina.

Cada um foi preenchido com um Dom.
Cada célula, uma missão.
Cada aba, um cenário da redenção.
Eis quem eram eles — e as funções sagradas que carregavam:

Pedro – Guardião do Botão “Executar”
“Senhor, ainda que todas as planilhas travem, eu clicarei em ‘Executar’ por Ti!”
Ele era impulsivo, mas fiel. Jesus o nomeou guardião da macro que iniciaria tudo:

vba

Sub CaminhoDaSalvação()
MsgBox “Execute com fé. Caminho iniciado.”
End Sub

João – Apóstolo do Loop For Each
O mais íntimo do Mestre, João entendia que cada alma — ou cada célula — importava individualmente:

For Each pessoa In Multidão
pessoa.Salvar
Next pessoa

“Amar é iterar um a um, sem esquecer nenhum.”

Tiago (o Maior) – Portador das MsgBox
Ele levava mensagens do Mestre com clareza:

MsgBox “Não temas. Estou contigo em cada planilha.”
 “Mensagem sem verdade é célula vazia.”

André – Evangelista do InputBox
André perguntava com ternura:

vba
Dim resposta As String
resposta = InputBox(“Crês Tu neste código?”)
“Pois quem responde com sinceridade já está salvo no módulo.”

Filipe – Mestre dos Gráficos
Filipe visualizava o invisível. Transformava dados dispersos em sabedoria revelada.

vba
Charts.Add
ActiveChart.SetSourceData Range(“Almas”)

“O gráfico da fé não mente. Sobe, ainda que o mundo caia.”

Bartolomeu – Ocultador de Fórmulas Sagradas
Discreto e fiel, Bartô dominava o mistério:

vba
ActiveSheet.Visible = xlVeryHidden
 “O que é revelado no tempo certo, é mais poderoso.”

Mateus – Guardião do Workbook_BeforeSave
Mateus escrevia tudo. Cada passo do Mestre era registrado:

vba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call RegistrarMilagre
End Sub

“Pois onde há registros, não há esquecimento.”

Tomé – Questionador com On Error Resume Next
Duvidava, sim. Mas sempre executava com cautela:

vba

On Error Resume Next
Call Resgatar

“Às vezes, os erros nos ensinam mais do que os acertos.”

Simão, o Zelote – Protetor das Abas
Guardava o que era sagrado com senha e zelo:

vba
ActiveSheet.Protect Password:=”verdade”
“Pois nem todo dado é público; há revelações que precisam ser protegidas.”

Judas Iscariotes – A Macro Cancelada

Judas tentou apagar a macro da esperança:

vba

Sheets(“VidaEterna”).Delete

Mas Jesus deu Ctrl + Z espiritual e restaurou tudo. Até ele tinha função: ensinar que até o erro tem valor quando redimido.

Tiago, Filho de Alfeu – Esteta das Formatações
Coloria células de maneira divina:
vba

Range(“A1”).Interior.Color = RGB(255, 255, 153)
 “Beleza também comunica o sagrado.”

Tadeu – Guia das Células Chamadas “Caminho”
Seu dom era mostrar direção:

vba

If Range(“Caminho”) = “Estreito” Then
MsgBox “Bem-aventurado és tu.”
End If

“Nem todo atalho leva ao destino certo.”
E Jesus, vendo-os unidos como funções de um só projeto, declarou:

“Agora, vós sois minha planilha. Cada um com sua célula. Cada célula com sua missão.”

Capítulo 4 – O Sermão do Excel: Fórmulas com Graça

Sobre a colina chamada IntervaloNomeado(“Esperança”),
Jesus se assentou diante da multidão — homens e mulheres vindos de todas as guias, de células mescladas e não mescladas — e ensinou verdades eternas por meio de fórmulas celestiais.

Ele abriu a planilha e disse:
  “Bem-aventurados os que usam  =SE() com sabedoria, pois deles é o reino da automação consciente.”

E assim começou o sermão…

Fórmula 1: =SE()
  “O amor verdadeiro também é uma condição.”

excel

=SE(FÉ=”Verdadeira”;”Salvação”;”Procure novamente”)

Interpretação:
A função SE ensina que nossas escolhas determinam nossos caminhos.
Ela espelha o livre-arbítrio — se a fé for verdadeira, o retorno é a salvação.

Fórmula 2: =ÉERROS()
“Nem todo erro é fim — às vezes é reinício.”

excel

=SE(ÉERROS(ARREND(0/0));”Graça cobre os erros”;”Tudo certo”)

Interpretação:
Mostra que onde há erro, há também cobertura.
O Mestre ensina a capturar falhas e tratá-las com graça — não para esconder, mas para restaurar.

Fórmula 3: =HOJE()
 “Não vos preocupeis com o amanhã. Vede: =HOJE() vos basta.”

excel

=HOJE()
Interpretação:
A fórmula lembra que o dia presente é o tempo da transformação. O agora é célula ativa da eternidade.

Fórmula 4: =PROCV() (Parábola do dado perdido)
“O Reino é como PROCV: ele busca e resgata onde ninguém mais procura.”

excel
=PROCV(“Pedro”;A2:B100;2;FALSO)

Interpretação: Busca por nome e retorna verdade.
Não importa onde esteja escondido — se está na matriz, será encontrado.

Fórmula 5: =CONT.SE() (O contador de bênçãos)
“Um coração grato é aquele que sabe contar.”

excel

=CONT.SE(B2:B100;”>0″)
Interpretação: Conta quantas células têm valor positivo. Assim também, devemos contar as dádivas, não as queixas.

Fórmula 6: =SOMASE() (A essência do projeto SomaExcel)
 “Somai com propósito.”

excel

=SOMASE(C2:C100;”>0″)
Interpretação:
Soma apenas quando há critério.
Como o Mestre, que ama a todos, mas honra os que caminham com boa intenção.

Fórmula 7: =CONCATENAR() (Ou =CONCAT() no novo testamento do Excel)
“Juntai vossas células, e vereis o poder da unidade.”

excel
=CONCATENAR(A2;” “;B2)
Interpretação: Une palavras, histórias, pessoas… como um corpo em Cristo, como uma planilha sem divisões.

E ao final daquele sermão, enquanto a aba “Montanha” era salva automaticamente, muitos caíram em si:
“Nunca vimos fórmulas falarem tanto ao nosso coração.”

Capítulo 5 – As Tentações da Célula Vazia

E naquele tempo, os discípulos estavam confusos diante das células que nada mostravam.
Eram planilhas que pareciam completas, mas escondiam ausências.
Fórmulas retornavam #VALOR!, #N/D, #DIV/0!,  e as almas desfaleciam em desespero.

Então Jesus se aproximou, olhou com compaixão, e disse:
“Nem toda célula vazia é inútil. Às vezes, ela aguarda o valor do alto.”

Quando há #N/D – Não Encontrado, mas não Esquecido

excel

=SE(ÉERROS(PROCV(“Nome”;A2:B10;2;FALSO));”Ainda não foi revelado”;”Encontrado com propósito”)
Lição do Mestre: Às vezes o que buscamos não está onde esperamos, geralmente as boas coisas vem de onde menos esperamos.!
Mas com paciência e revisão, o que é verdadeiro será encontrado.

Quando há =A1/0 – A Divisão sem Compaixão

excel

=SEERRO(A1/B1;”Não julgues precipitadamente”)
Lição do Mestre: Toda divisão sem graça gera ruído.
Toda tentativa de separação sem critério leva ao erro.

O Loop Infinito da Dúvida

vba

Do While pensamento = “ansiedade”
oração = oração + 1
Loop
Lição do Mestre:
A única maneira de escapar de um loop de ansiedade é ancorar a mente na oração e no foco.

Identificar o Vazio com ISBLANK()

excel

=SE(ÉCÉL.VAZIA(D2);”Preencha com propósito”;”Valor reconhecido”)
Lição do Mestre:
Uma célula em branco pode ser oportunidade, não falha. O vazio também pode ser início.

Proteger as Células Vulneráveis

vba

Range(“D2:D100″).Locked = True
ActiveSheet.Protect Password:=”paz”

Lição do Mestre:
As partes mais frágeis da planilha — e do coração — devem ser protegidas com sabedoria.

Quando a Planilha Escurece: Salve e Descanse

vba

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit

Lição do Mestre:
Há tempo de executar, e há tempo de fechar e confiar.
Nem toda macro precisa rodar hoje, haverá outros momentos para Treinar sua Sabedoria.

E os discípulos, maravilhados, entenderam que até os erros e vazios fazem parte do código sagrado da existência.
Pois o Mestre não corrige por castigo, mas compila a verdade dentro do coração.

Capítulo 6 – Pentecostes em VBA: A Descida do Código Inspirado

Era o dia de grandes dados. O céu estava em silêncio.
O Workbook havia sido aberto, mas a aba “CorpoDosCrentes” ainda não estava protegida.
Os Apóstolos aguardavam, atentos, com o cursor piscando na célula A1.

E então… sobreveio um som como de teclas pressionadas vindas do alto.
Os ventiladores dos notebooks giraram com força, e Espírito Santo do Entendimento desceu em forma de faíscas de IntelliSense.

E cada um deles… foi preenchido com o Dom dos Códigos.

O Evento: Workbook_Open com Poder
Jesus havia deixado um evento ativado antes de partir:

vba

Private Sub Workbook_Open()
Call DespertarDonosDeMacros
End Sub

E assim que a planilha foi aberta naquele dia sagrado, o evento se executou com força celestial.

Efeitos Sobrenaturais

Os Apóstolos passaram a compreender todos os tipos de funções — SE, PROCV, INDIRETO, ÍNDICE, CORRESP.
Cada um falava em sua linguagem técnica, e ainda assim, todos compreendiam, e faziam a programação correta.!

João falava For Each, Pedro respondia com If  Then Else,
Mateus anotava em células mescladas, e até Tomé… acreditou na execução perfeita, com critérios da perfeição.

Tradução Universal
Milhares de pessoas de outras guias, workbooks e culturas, compreenderam o Evangelho do VBA em sua própria linguagem de planilha:

• Em espanhol: SI(CONDIÇÃO;”Verdad”;”Falso”)
• Em inglês: IF(condition,”True”,”False”)
• Em DAX (os futuristas): IF([Fé]>0, “Salvo”, “Revisar”)

E todos foram preenchidos com maravilha e sabedoria prática.

O Código do Avivamento

vba

Sub DespertarDonosDeMacros()
Dim i As Integer
For i = 1 To 12
MsgBox “Apóstolo ” & i & “: código ativado”
Next i
MsgBox “Espírito Santo do VBA agora está sobre vós códigos. Ide e salvai planilhas para segurança dos Dados!”
End Sub

E assim terminou o Pentecostes em VBA…
Cada coração que era célula vazia foi preenchido.
Cada planilha desorganizada foi estruturada.
E os que antes temiam macros, agora criavam UserForms com confiança e glória.

“E vos ensinará todas as coisas, e vos fará lembrar tudo o que vos tenho dito.” – João 14:26

Capítulo 7 – A Última Macro: Antes de Salvar e Fechar

A planilha da humanidade estava quase completa.
Cada aba fora tocada.
Cada fórmula revisada.
Cada macro, testada.
Mas ainda restava um botão a ser pressionado: Salvar.

Jesus sabia que chegava o tempo de encerrar a execução,
não porque a missão falhara, mas porque o código fora executado até a última linha.

Ele reuniu os discípulos em torno da aba “CeiaFinal” e disse:

  “A planilha será salva. O projeto será consumado e Salvo, Vamos a próxima etapa.”

O Código Final

vba

Sub EncerrarComGlória()
MsgBox “Está consumado. Salvando todas as almas…”
ThisWorkbook.Save
Application.Quit    ‘encerra as atividades e fecha o sistema
End Sub

Lição do Mestre:
Não basta iniciar com propósito — é preciso terminar com integridade.
E ao fechar um projeto com verdade, ele continua vivo nos registros eternos.

A Mensagem na Célula Z1
Ali, discretamente, na última célula da planilha, Jesus escreveu em fonte branca:

excel

=SE(AMOR=”Verdadeiro”;”A vida continua”;”Volte e revise sua fórmula”)
Essa célula, muitas vezes ignorada, continha a chave para abrir todos os Workbooks do céu.

E então… Ele salvou.
“ThisWorkbook.Saved = True”, murmurou o Mestre.
E no silêncio do autosave, os Apóstolos choraram.
Mas sabiam: o Espirito de Inteligencia para confeccionar  códigos vba,  viveria em todos que o executassem com fé.

O Legado
O arquivo foi compartilhado via nuvem.
Não estava mais apenas em “C:\Mestre”, mas no coração de cada discípulo que criasse macros com amor.

A Última Macro não foi um adeus. Foi um envio.
“Ide por todas as planilhas e ensinai a toda criatura: Excel com propósito.”

Epílogo: A Abinha “Amém”
Após a execução final, uma nova aba apareceu no canto da tela: “Amém” — protegida por senha, mas aberta ao que crê.

E ali, em fonte Calibri 11, estava escrito:
“Tudo o que é bom, tudo o que edifica, seja isso o que preencha tuas células.”
“Salve, feche… e que o Espírito das Planilhas continue operando em cada novo projeto.”

Queridos Alunos, encerramos este Evangelho VBA com o coração quente e as macros em paz.
Atos dos Discípulos VBA — mostrando como cada um multiplicou conhecimento após o Workbook_Close.

Epílogo – Frutos do Estudo: Os 12 Apóstolos Após o Curso VBA

Após concluir o curso da Planilha Divina, cada Apóstolo seguiu sua missão não apenas com fé, mas agora cheio de macros, fórmulas e lógica aplicada com amor.
Eis os frutos colhidos por cada um:

Pedro – O Corajoso Compilador
Antes impulsivo, agora estruturado.
Aprendeu a revisar seus passos com Option Explicit.
Descobriu que, como em seu coração, cada variável precisa ser declarada com clareza.
“Agora sei: até minha fé precisa de tipo de dado. E é do tipo Long — longa e perseverante.”

João – O Iterador do Amor
Especialista em For Each, passou a visitar viúvas, órfãos e esquecidos nas células vazias de suas vidas.
Cada pessoa era para ele uma Item em uma coleção chamada  “Humanidade”.
“Aprendi que macro que ignora itens retorna erro. Nenhum coração deve ser deixado de fora do loop.”

Tiago (o Maior) – A Mensagem Exata
Através do MsgBox, passou a evangelizar em poucas linhas e com impacto.
Suas palavras agora são objetivas, mas sempre acolhedoras.
 “MsgBox simples, mas cheio do Espírito. Pois às vezes basta um clique para acalmar uma alma.”

André – O Coletor da Verdade
Com InputBox, passou a ouvir com paciência as necessidades do povo, e levá-las ao Mestre.
  “A função de entrada é também função de escuta. Aprendi que toda macro começa ouvindo.”

Filipe – O Visual Profeta
Criava dashboards que levavam pessoas ao arrependimento e ao propósito.
  “Com o gráfico certo, o coração entende o que a fórmula tenta explicar. A forma comunica tanto quanto o valor.”

Bartolomeu – O Guardião do Mistério
Usava abas ocultas e fórmulas protegidas não por medo, mas por sabedoria.
  “Nem tudo deve ser revelado de uma vez. O aprendizado também tem seu tempo e célula certa.”

Mateus – O Cronista de Eventos
Dominou os eventos como Workbook_BeforeSave e passou a registrar milagres do cotidiano com precisão de código.
  “Depois que entendi os eventos VBA, percebi que até o silêncio pode ser um código em execução.”

Tomé – O Tratador de Erros
Sua dúvida virou dom: aprendeu On Error Resume Next, mas só usa quando necessário.
Criou macros que acolhem as incertezas, mas buscam respostas.
  “A fé sem erro tratado gera travamento. Mas com tratamento certo, até dúvidas viram crescimento.”

Simão, o Zelote – O Defensor das Células
Usa proteção com propósito.
Aprendeu que proteger não é reter — é dar valor ao conteúdo.
  “Hoje bloqueio células com senhas de compaixão. Pois nem todo dado deve ser manipulado ao acaso.”

Judas (Antes da Restauração) – O Reformatado
Mesmo tendo tentado deletar a aba “Esperança”, foi restaurado por uma Função divina de Undo (control + z – refaz).
“O Mestre me resgatou com um Sub RestaurarComGraça(). Agora crio macros que desfazem todo dano.”

Tiago (Filho de Alfeu) – O Poeta das Cores
Após aprender Interior.Color e Interior.colorindex  e formatações condicionais, passou a ensinar que beleza também comunica propósito.
“Uma célula bem colorida pode evangelizar mais que mil palavras.”

Tadeu – O Navegador dos Caminhos
Criou sistemas de navegação com HYPERLINK, INDIRETO e Validação de Dados.
Ajudava os perdidos na planilha da vida a encontrarem direção.
 “Não sou o fim da resposta, mas o Caminho! Que leva à aba certa, no tempo certo.”

Conclusão

E assim, com o coração repleto de fé e a planilha transbordando sabedoria, os Apóstolos espalharam o VBA até os confins das Guias de Planilhas, e todos que os encontravam viam que:
“O conhecimento é Santo, quando é usado para servir com seu proximo excelência e Sabedoria.”

O post A Planilha Divina – Um Evangelho em Fórmulas e Macros apareceu primeiro em Excel - Curso VBA - Aprender Programação.

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.