Como Listar Números Ímpares Com VBA

Hoje vamos usar o VBA para criar uma lista de 10 números ímpares, usando um simples código bem curto. Os números ímpares são aqueles onde dividimos por 2 e o resto da divisão é diferente de zero.

Qualquer número que dividimos por 2 e o resto for qualquer número diferente de zero, então aquele número é ímpar. No entanto, não entraremos muito nesses cálculos de divisão, pois nosso intuito é mostrar como o código do VBA funciona.

Sabendo como o código funciona, você aprenderá facilmente exibir os números ímpares em uma coluna.

Logo após, confira: Como Reexibir Todas as Linhas Ocultas Com VBA

Baixe a planilha para praticar o que foi ensinado neste tutorial:

Como Listar Números Ímpares Com VBA

Primeiramente, o código que utilizaremos para gerar uma lista de 10 números ímpares em uma coluna é esse:

Os números serão listados a partir da coluna “B2” do Excel.

Antes de colocar o código para funcionar, vamos entender como ele funciona:

Sub ímpar(): Inicialização do código, onde definimos o nome “ímpar” que pode se qualquer outro nome além desse;
For i = 1 To 10: Inicializa um loop contanto de 1 até 10. Caso pretenda aumentar a quantidade de números, mude o número 10;
Cells(i + 1, 2) = i * 2 – 2 + 1: A partir da célula “B2” os números serão listados. Multiplicamos “i” que vale 1, vezes 2 menos 2 + 1 para dar pulos, saltando de 1 em 1. Exemplo: 1, 3 , 5 , 7, então “Cells(i+1,2) = número ímpares”, cada célula partir de “B2”, receberá um número por vez;
Next i: Esse trecho faz parte do loop “For”. Tudo que tiver entre “For” e “Next”, será iniciado 10 vezes;
End Sub: Finaliza o código escrito.

Para executar o código dentro do VBA, pressione a tecla “F5”: