Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA planihas verifica par impar operador mod

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

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.




 uProcedimentos de aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon SBL Excel VBA planihas verifica par impar operador mod (90.85 kB)

  

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Numeros SBL Excel VBA planihas verifica par impar operador mod