=E(A1>10;B1<20)

=OU(A1>10;B1<20)

Sub VerificaIdade()
    If Range("A1").Value >= 18 Then
        MsgBox "Maior de idade"
    End If
End Sub

Sub VerificaNota()
    If Range("B1").Value >= 7 Then
        MsgBox "Aprovado"
    Else
        MsgBox "Reprovado"
    End If
End Sub

Sub VerificaAprovacao()
    If Range("A1").Value >= 18 And Range("B1").Value >= 7 Then
        MsgBox "Aprovado com mérito"
    End If
End Sub

Sub VerificaCondicional()
    If Range("A1").Value >= 18 Or Range("B1").Value >= 7 Then
        MsgBox "Aprovado em uma das condições"
    End If
End Sub

Sub DestacarNota()
    If Range("B1").Value < 5 Then
        Range("B1").Interior.Color = vbRed
    End If
End Sub

Sub MensagemNota()
    If Range("B1").Value >= 9 Then
        MsgBox "Excelente!"
    ElseIf Range("B1").Value >= 7 Then
        MsgBox "Bom!"
    Else
        MsgBox "Precisa melhorar."
    End If
End Sub

Sub VerificaFaltas()
    If Range("C1").Value > 5 Or Range("B1").Value < 7 Then
        MsgBox "Reprovado por faltas ou nota"
    End If
End Sub

Sub AprovadoComCor()
    If Range("A1").Value >= 18 And Range("B1").Value >= 7 Then
        Range("D1").Value = "Aprovado"
        Range("D1").Interior.Color = vbGreen
    End If
End Sub

Sub EntradaNota()
    Dim nota As Double
    nota = InputBox("Digite a nota:")
    If nota >= 7 Then
        MsgBox "Aprovado"
    Else
        MsgBox "Reprovado"
    End If
End Sub

Sub EntradaCondicional()
    Dim idade As Integer
    idade = InputBox("Digite a idade:")
    If idade < 18 Or idade > 60 Then
        MsgBox "Idade fora do padrão"
    End If
End Sub

Sub VerificaVazio()
    If Range("A1").Value = "" Then
        MsgBox "Campo vazio!"
    End If
End Sub

Sub VerificaTexto()
    If Range("A1").Value = "João" Then
        MsgBox "Nome encontrado!"
    End If
End Sub

O post 🏆 Tutorial Completo de Excel com VBA Funções Lógicas E e OU e 12 Macros com IF e OR apareceu primeiro em Excel - Curso VBA - Aprender Programação.

• Como Usar a Função MODE() no Excel: Guia Completo com Exemplos
• MODE() no Excel: Encontre o Número Mais Frequente com Facilidade
• Função MODE no Excel Explicada: Casos Reais, Erros e Comparações
• MODE(), MODE.SNGL() e MODE.MULT(): Diferenças e Aplicações no Excel
• Tutorial MODE() no Excel: Estatísticas Rápidas com Fórmulas Inteligentes
• Excel MODE(): Descubra o Valor Mais Comum em Seus Dados
• MODE() no Excel com Exemplos Práticos e Dicas Profissionais
• Funções Estatísticas no Excel: MODE, MEDIAN, AVERAGE e COUNTIF
• MODE() no Excel: Como Evitar Erros e Usar com Dados Reais
• Aprenda MODE() no Excel: Ideal para Pesquisa, Estoque e Análise de Dados

Descubra qual é o valor mais comum nos seus dados. Aprenda a usar a função MODE() no Excel pra ter uma visão rápida das estatísticas. Aprenda os casos de uso básicos e avançados com exemplos bem claros.

Atualizado 8 de ago. de 2025 · 6 min lido

Conteúdo

• O que é a função MODE() no Excel?

• Entendendo como funciona a função MODE() no Excel

• Como usar MODE() com dados reais no Excel

• Problemas comuns e dicas no Excel

• MODE() vs. MODE.SNGL() e MODE.MULT()

• Funções estatísticas relacionadas no Excel

• Conclusão

• Perguntas frequentes

Treinar mais pessoas?

Se você está resumindo respostas de pesquisas, acompanhando quantidades de produtos populares ou analisando entradas repetidas em qualquer conjunto de dados, a função “ MODE() ” no Excel mostra qual número aparece com mais frequência — algo que muitas vezes é mais relevante do que uma média ou mediana quando você está procurando padrões.

Neste guia, vamos mostrar como usar a função “ MODE() ” de forma eficaz, incluindo como ela é diferente das outras funções relacionadas ao modo do Excel. Você vai aprender como usar isso em situações reais, evitar erros comuns e melhorar suas habilidades com ferramentas relacionadas. Vamos começar com o básico.

O que é a função MODE() no Excel?

Aprenda tudo sobre a função MODE() no Excel e descubra como encontrar o número mais frequente em seus dados. Este guia completo ensina desde o uso básico até aplicações avançadas com MODE.SNGL() e MODE.MULT(), incluindo exemplos práticos, dicas para evitar erros e comparações com outras funções estatísticas como MEDIAN(), AVERAGE() e COUNTIF(). Ideal para quem trabalha com análise de dados, pesquisas, controle de estoque ou planilhas complexas no Excel.

Antes de mergulhar na prática, vamos começar com o básico: a função “ MODE() ” no Excel é a ferramenta ideal para encontrar o número que aparece com mais frequência em um intervalo de valores. Sempre que você se deparar com uma lista e quiser descobrir rapidamente qual número aparece mais vezes, o site MODE() oferece uma solução simples.

Essa função é super útil quando você precisa resumir dados, identificar tendências ou verificar se tem entradas repetidas. Se você está analisando respostas de pesquisas, revisando números de estoque ou lidando com qualquer situação em que o valor mais comum é importante, o MODE() torna o processo bem simples.

Aqui tá a sintaxe básica:

=MODE(number1, [number2], …)

number1, [number2], … Aqui, os números representam os números ou intervalos onde você quer verificar a moda.

É importante lembrar que MODE() só funciona com números. Se seus dados tiverem texto ou células vazias, o Excel vai simplesmente ignorar essas entradas.

Entendendo como funciona a função MODE() no Excel

Agora que você já sabe o que é MODE(), vamos ver como funciona na prática. Nesta seção, você vai saber como o MODE() processa seus dados e o que esperar dos resultados.

MODE() dá uma olhada na sua lista, conta quantas vezes cada número aparece e mostra o que aparece mais vezes. Se dois ou mais números estiverem empatados como os mais frequentes, o Excel vai mostrar o primeiro que encontrar no intervalo de dados.

Como usar MODE() com dados reais no Excel

Agora que você já entendeu como funciona o MODE() e como ele se compara aos outros sites parecidos, vamos colocar isso em prática com exemplos reais. Nesta seção, você vai ver como usar a função “ MODE() ” para encontrar os valores mais comuns em vários cenários.

Exemplo 1: Encontrando a nota mais comum no teste

Digamos que você tem as notas dos alunos nas células A2 a A11:

Para encontrar a pontuação mais comum, digite:

=MODE(B2:B11)

Você vai conseguir 85 ou 90, dependendo do que aparecer primeiro, já que os dois valores aparecem várias vezes. Lembre-se de que MODE() só mostra o primeiro modo que ele encontra. Se você quiser ver todos os modos em caso de empate, é aí que o MODE.MULT() entra em cena.

Exemplo 2: Usando MODE() com intervalos não contíguos

E se seus dados não estiverem em um único bloco contínuo? Sem problema! O comando “ MODE() ” permite usar vários argumentos. Por exemplo:

=MODE(A1:A5, C1:C5)

O Excel vai procurar o número mais frequente nos dois intervalos.

Exemplo 3: E se não tiver valores repetidos?

Você pode estar se perguntando o que acontece quando não tem nenhum valor repetido no método ” MODE() “. Se todos os valores no seu intervalo forem únicos, MODE() vai mostrar um erro “ #N/A ”.

Digamos que A1:A5 tem 10, 20, 30, 40:

=MODE(A2:A5)

Como nenhum número se repete, você vai ver “ #N/A ” como resultado.

Com esses exemplos, dá pra ver como o MODE() se adapta a diferentes formatos de dados e situações. Sei que ainda tem umas nuances nisso tudo, então vou colocar alguns desses e outros cenários comuns numa tabela:

Problemas comuns e dicas no Excel

Você pode se deparar com alguns cenários comuns. Nesta seção, vamos ver como lidar com erros, dados que não são números e trabalhar de forma eficiente com conjuntos de dados grandes.

Erros de manuseio

Se você receber um erro “ #N/A ”, como nós recebemos acima, isso significa que não há nenhum modo nos seus dados. Para tornar suas fórmulas mais fáceis de usar, você pode colocar MODE() dentro de IFERROR():

=IFERROR(MODE(A1:A10), “No mode”)

Assim, você vai ver “Sem modo” em vez de um erro, que pode ser meio chato.

Lidando com dados não numéricos

MODE() leva em conta só os números. Ignora texto, células em branco e valores lógicos. Se o seu intervalo misturar números e texto (como entradas “N/A” em dados de pesquisa), o MODE() simplesmente vai ignorar os itens que não são numéricos.

Usando MODE() para conjuntos de dados grandes

MODE() Funciona bem mesmo com grandes intervalos de números. Só não esquece: se seus dados tiverem vários modos, MODE() só vai mostrar o primeiro que encontrar. Para ver uma lista completa de todos os modos, principalmente em conjuntos de dados maiores, dá uma olhada em MODE.MULT().

Ao lidar com esses cenários, você vai garantir que os resultados do seu MODE() sejam precisos e suas fórmulas sejam robustas. Agora, vamos ver como fica “ MODE() ” numa planilha de verdade.

MODE() vs. MODE.SNGL() e MODE.MULT()

Com o básico na mão, você pode estar se perguntando: qual é a diferença entre MODE(), MODE.SNGL() e MODE.MULT()? Nesta seção, vamos comparar essas funções relacionadas para que você possa escolher a mais adequada às suas necessidades.

• MODE(): Essa é a função original, mantida por compatibilidade. Nas versões mais recentes do Excel, você vai ver mais o MODE.SNGL(), mas os dois fazem a mesma coisa: devolvem um único valor de modo.
• MODE.SNGL(): Funciona igual ao MODE(), mostrando o primeiro modo que encontra nos seus dados.
• MODE.MULT(): Vai um pouco mais longe, retornando uma matriz com todos os modos quando há um empate. Para usá-la, você precisa colocá-la como uma fórmula de matriz (usando Ctrl+Shift+Enter no Excel antigo).

Na maioria das vezes, basta acessar MODE() ou MODE.SNGL() para obter respostas rápidas. Mas se o seu conjunto de dados puder ter vários valores igualmente frequentes e você quiser ver todos eles, use a função “ MODE.MULT() ”.

Funções estatísticas relacionadas no Excel

À medida que você vai criando seu kit de ferramentas do Excel, vai perceber que a função “ MODE() ” aparece junto com outras funções de estatísticas resumidas. Vamos destacar alguns que combinam bem com um MODE():

• MEDIAN() – retorna o valor do meio em um conjunto de dados
• AVERAGE() – calcula a média aritmética
• COUNTIF() – conta quantas vezes um valor específico aparece, útil para verificar frequências manualmente

E se você estiver trabalhando com dados que podem ter mais de um modo, não se esqueça de usar o comando MODE.MULT().

Conclusão

Como vimos, MODE() é uma ferramenta útil e simples para encontrar o número mais comum em qualquer lista. Seja pra resumir resultados de pesquisas, acompanhar vendas ou analisar entradas repetidas, o MODE() dá uma visão rápida com só uma fórmula.

Para melhorar ainda mais suas habilidades no Excel, dá uma olhada em outras funções estatísticas, como MEDIAN(), AVERAGE() e COUNTIF(). Usar essas ferramentas juntas vai te ajudar a resumir, analisar e entender de verdade seus dados de todos os ângulos. E não esquece de se inscrever no nosso curso Análise de dados no Excel pra continuar aprimorando suas habilidades.

Perguntas frequentes

E se tiver vários modos?

O MODE() funciona com texto?

E se não tiver nenhum modo?

O post Função MODE no Excel Encontre o número mais frequente 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.