Planilha Excel Celulas e Range AutoNumeracao Pares Impares Soma VBA

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

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

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

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

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

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

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!</spa📊n>

 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

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

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

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