Planilha Excel VBA planilhas verifica par impar operador mod
Planilha Excel VBA planilhas verifica par impar operador mod
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) usando a instrução For Next e condição IF, verifica se um número se é Par ou Impar, usando o Operador Mod(Resto Divisão)) para identificar os pares.
Os números serão incrementados aleatóriamente para realização dos testes. Espero que o exemplo possa lhe ser útil. Assine nosso site e acesse todos nosso material didáticos, observem nossos códigos a simplicidade e eficacia. É o que ensinamos em nossas vídeo-aulas treinamento excel vba, escrever menos e fazer mais.
Fique com Deus, Expedito Marcondes.
‘//==================’
Sub sbx_id_par_impar()
Dim vLinha As Long
Dim e, b As Single
copiar_valores ‘ copia um número gerado aleatóriamente.
‘Identificando Ultima Linha
UL = Saber1.Cells(Rows.Count, 1).End(xlUp).Row
s = 0
b = 0
‘faremos laço nos itens coluna(A) – instrução For …Next
For vLinha = 1 To UL
‘var (r) pega o número da célula
r = Cells(vLinha, 1)
‘(se Operador Mod(Resto Divisão)) for igual a zero é par senão impar
If r Mod 2 = 0 Then
Cells(vLinha, 3).Value = ” [” & Cells(vLinha, 1) & “] é Par”
Cells(vLinha, 3).Interior.ColorIndex = 44
Cells(vLinha, 3).Font.ColorIndex = 51
Cells(vLinha, 3).Font.Bold = False
s = s + 1
Else
Cells(vLinha, 3).Value = ” [” & Cells(vLinha, 1) & “] é Impar”
Cells(vLinha, 3).Interior.ColorIndex = 43
Cells(vLinha, 3).Font.ColorIndex = 3
Cells(vLinha, 3).Font.Bold = True
b = b + 1
End If
Next
[E2].Value = s
[f2].Value = b
[e4].Interior.ColorIndex = s
[f4].Interior.ColorIndex = b
End Sub
‘//===============’
Sub copiar_valores()
For i = 1 To Cells(Rows.Count, “k”).End(xlUp).Row
Cells(i, “a”).Value = Cells(i, “k”).Value
Next i
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA planilhas verifica par impar operador mod |
| <<Verifique sua Caixa Email, Itens Excluídos caso não estiver na Caixa de Entrada >> |
