Planilha Excel Celulas e Range AutoNumeracao Pares Impares Soma VBA

Marcondes — Sat, 24 May 2025 12:59:41 +0000

Excel VBA Planilha Celulas e Range AutoNumeracao Pares Impares Soma | M2 – Aula 085

Faça o Download do Exemplo de Planilha Excel VBA (Area de Membros)
MD2_Licao_85 Celulas e Range autonumeracao pares impares soma.xlsm

Nessa video aula Excel VBA com exemplo de planilha excel M2 – Aula 085 , aprenderemos como usar propriedade Cells e Range para Autonumer com Pares e Impares e Somar

Caros Alunos,

É com grande prazer que apresento a vídeo aula M2 – Aula 085 – Células e Range: Autonumerar com Pares e Ímpares e Somar.

Nesta aula, vamos aprender a utilizar as propriedades Cells e Range no Excel VBA para autonumerar linhas, identificar números pares e ímpares, e somar esses valores.

Nosso objetivo é aprimorar nossas habilidades de automação e organização de dados no Excel, facilitando a análise e manipulação das informações.

Fiz mais essa video aula Excel VBA, para seu treinamento, O que vamos aprender nesta aula:

Exemplo 1: Autonumerar linhas

Explicação: Este macro percorre todas as linhas da planilha e autonumera as linhas na coluna A, começando a partir da linha 2.

Sub AutonumerarLinhas()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 1).End(xlUp).Row
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊  
    MsgBox "Linhas autonumeradas com sucesso!"
End Sub

Exemplo 2: Identificar números pares e ímpares

vba

Sub IdentificarParesImpares()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    MsgBox "Números pares e ímpares identificados com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha, identifica os números pares e ímpares na coluna B, e preenche a coluna C com “Par” ou “Ímpar” conforme o caso.

Exemplo 3: Somar números pares

vba

Sub SomarPares()
    Dim ultimaLinha As Long
    Dim somaPares As Double
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
   MsgBox "A soma dos números pares é: " & somaPares
End Sub

Explicação: Este macro percorre todas as linhas da planilha, soma os números pares na coluna B e exibe o resultado em uma mensagem.

Exemplo 4: Somar números ímpares

vba

Sub SomarImpares()
    Dim ultimaLinha As Long
    Dim somaImpares As Double
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row

 🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "A soma dos números ímpares é: " & somaImpares
End Sub

Explicação: Este macro percorre todas as linhas da planilha, soma os números ímpares na coluna B e exibe o resultado em uma mensagem.

Exemplo 5: Destacar números pares e ímpares

vba

Sub DestacarParesImpares()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "Números pares e ímpares destacados com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha e destaca os números pares e ímpares na coluna B, colorindo as células de verde para pares e vermelho para ímpares.

Exemplo 6: Contar números pares

vba

Sub ContarPares()
    Dim ultimaLinha As Long
    Dim contPares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 CConteúdo na Área de Membros Excel VBA - Acessar Agora!

 MsgBox "O número de números pares é: " & contPares
End Sub

Explicação: Este macro percorre todas as linhas da planilha e conta o número de números pares na coluna B, exibindo o resultado em uma mensagem.

Exemplo 7: Contar números ímpares

vba

Sub ContarImpares()
    Dim ultimaLinha As Long
    Dim contImpares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "O número de números ímpares é: " & contImpares
End Sub

Explicação: Este macro percorre todas as linhas da planilha e conta o número de números ímpares na coluna B, exibindo o resultado em uma mensagem.

Exemplo 8: Calcular a média dos números pares

vba

Sub MediaPares()
    Dim ultimaLinha As Long
    Dim somaPares As Double
    Dim contPares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    If contPares > 0 Then
        'conteúdo na área de membros '  somaPares / contPares
    Else
        MsgBox "Não há números pares na coluna."
    End If
End Sub

Explicação: Este macro percorre todas as linhas da planilha, calcula a soma e a quantidade de números pares na coluna B, e exibe a média dos números pares em uma mensagem.

Exemplo 9: Calcular a média dos números ímpares

vba

Sub MediaImpares()
    Dim ultimaLinha As Long
    Dim somaImpares As Double
    Dim contImpares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To ultimaLinha

🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    Next i
    If contImpares > 0 Then
        MsgBox "A média dos números ímpares é: "  xxxxxx
    Else
        MsgBox "Não há números ímpares na coluna." xxxxxx

    End If
End Sub

Explicação: Este macro percorre todas as linhas da planilha, calcula a soma e a quantidade de números ímpares na coluna B, e exibe a média dos números ímpares em uma mensagem.

Exemplo 10: Criar gráfico de números pares e ímpares

vba

Sub GraficoParesImpares()
    Dim ultimaLinha As Long
    Dim grafico As ChartObject
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row

    ' Adiciona uma coluna para identificar pares e ímpares
    For i = 2 To ultimaLinha
        🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    Next i

    ' Cria o gráfico
    MsgBox "Gráfico de números pares e ímpares criado com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha, identifica os números pares e ímpares na coluna B, preenche a coluna C com “Par” ou “Ímpar” conforme o caso, e cria um gráfico de colunas na planilha “Planilha1” para visualizar os números pares e ímpares.

Espero que esses exemplos de macros ajudem você a autonumerar, identificar, somar e analisar números pares e ímpares de forma mais eficiente e prática. Vamos juntos nessa jornada de aprendizado e evolução!

Trechos Bíblicos sobre Sabedoria e Aprendizado com Conhecimento:

Provérbios 4:7 “A sabedoria é a coisa principal; adquire, pois, a sabedoria, sim, com tudo o que possuis adquire o entendimento.”
Tiago 1:5 “E, se algum de vós tem falta de sabedoria, peça-a a Deus, que a todos dá liberalmente e não censura, e ser-lhe-á dada.”
Provérbios 2:6 “Porque o Senhor é quem dá sabedoria; da sua boca é que vem o conhecimento e o entendimento.”
Colossenses 2:3 “Em quem estão escondidos todos os tesouros da sabedoria e da ciência.”
Salmos 119:66 “Ensina-me bom juízo e conhecimento, pois creio nos teus mandamentos.”
Provérbios 3:13 “Bem-aventurado o homem que acha sabedoria, e o homem que adquire conhecimento.”
Eclesiastes 7:12 “Porque a sabedoria serve de defesa, como de defesa serve o dinheiro; mas a excelência do conhecimento é que a sabedoria dá vida ao seu possuidor.”
Provérbios 24:14 “Assim será para a tua alma o conhecimento da sabedoria; se a achares, haverá para ti recompensa, e não será cortada a tua esperança.”
Daniel 2:21 “Ele muda os tempos e as estações; ele remove os reis e estabelece os reis; ele dá sabedoria aos sábios e conhecimento aos entendidos.”
2 Timóteo 2:7 “Considera o que digo, porque o Senhor te dará entendimento em tudo.”

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

🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

Se precisar de mais alguma informação ou tiver dúvidas, estou aqui para ajudar!

O post Planilha Excel Celulas e Range AutoNumeracao Pares Impares Soma VBA apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Arquivo de Excel Grátis - Excel - Curso VBA - Aprender Programação