Par ou Impar

Exercício Básico

Enunciado

Neste exercício você deverá classificar os números presentes na coluna "A" como pares ou ímpares na coluna "B".

Conceitos Sugeridos:

Dim - Declara variáveis.
For Next - Repete um grupo de instruções um determinado número de vezes.
Mod - Operador aritmético usado para dividir dois números e retornar somente o resto.
If Then Else - Executa uma instrução caso uma condição seja atendida, e outra instrução caso a condição não seja atendida.
Cells - Permite a interação do VBA com células da planilha.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Lembre-se que números pares divididos por 2 não possuem resto.

Exercício Resolvido

Resolvendo o Problema

Declaramos as variáveis e encontramos o último dado da planilha.

Dim UltLinha As Long
Dim ValCel As Long
Dim i As Integer

UltLinha = 20

Criamos um loop For Next até a ultima linha. Com o condicional If determinamos com uma divisão (Mod) por 2 se o número é par (caso não tenha resto) ou ímpar.

For i = 3 To UltLinha
    ValCel = Cells(i, 1).Value
    If ValCel Mod 2 = 1 Then
        Cells(i, 2).Value = "Ímpar"
    Else
        Cells(i, 2).Value = "Par"
    End If
Next i

Código Consolidado

    Sub Resolucao()

    Dim UltLinha As Long
    Dim ValCel As Long
    Dim i As Integer

    UltLinha = 20

    For i = 3 To UltLinha
        ValCel = Cells(i, 1).Value
        If ValCel Mod 2 = 1 Then
            Cells(i, 2).Value = "Ímpar"
        Else
            Cells(i, 2).Value = "Par"
        End If
    Next i

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO