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 numeros aleatorios identificar par impar

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

Este exemplo de planilha com maacro do Aplicativo Microsoft Excel VBA(Visual Basic Application), Insere numeros aleatórios na coluna(A) depois verifica se esses números são pares ou impares, usando a função MOD a cada interação com Macro se for par, será escrito em na coluna(B) na linha corresponte (PAR) se for impar, será escrito na coluna(C)  -Impar. As cores das fontes também acompanham o critério (Pares e Impares) observe que inserí duas variaveis  que acumularão os valores (Pares x Impares) respectivamente, e retorna os os Totais (pares e impares)  no final da digitação, deslocando uma linha abaixo. veja que para a fonte ficar do tamanho 8 usei essa linha de código.
Range(Cells(1, "b"), Cells(vLin + 1, "c")).Font.Size = 8
"um bom exemplo para prática com programação excel vba" -
'//============='
Sub sbx_inserir_numero()
Dim i As Long
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
    Cells(i, "a").Value = Application.WorksheetFunction.RandBetween(1, 100)
Next i
End Sub
'//============='
Sub sbx_verificar_par_ou_impar()
Dim UL As Long
Dim tSoma As Double 'variável double poderá conter decimais
'identificar a ultima linha (usaremos a variavel 'UL'
UL = Cells(Rows.Count, 1).End(xlUp).Row + 2
Call sbx_inserir_numero 'chamar o macro com a wkf função aleatorio entre (VBA)
Range(Cells(1, "b"), Cells(UL, "c")).Clear

'Instrução For Next -- com a operador MOD para identificar num (divisivel por 2) (par e impar)
For vLin = 1 To UL - 2
    'Localiza o número da célula
   
    wBusca = Cells(vLin, 1).Value
    'if(Se) resultado OPERADOR MOD = 0 (resto divisão) então é par senão impar.
    If wBusca Mod 2 = 0 Then
        Cells(vLin, 2).Value = "Par"
        Cells(vLin, 2).Interior.ColorIndex = 4
        Cells(vLin, 2).Font.ColorIndex = 9
        Cells(vLin, 1).Font.ColorIndex = 9
        tSomaP = tSomaP + Cells(vLin, 1).Value
    Else
        Cells(vLin, 3).Value = "Impar"
        Cells(vLin, 3).Interior.ColorIndex = 44
        Cells(vLin, 3).Font.ColorIndex = 10
        Cells(vLin, 1).Font.ColorIndex = 10
        tSomaI = tSomaI + Cells(vLin, 1).Value
    End If
Next
'Cells(vLin + 1, "b").Value = "Total..."
Cells(vLin + 1, "b").Value = Format(tSomaP, "R$ ##,##0.00")
Cells(vLin + 1, "c").Value = Format(tSomaI, "R$ ##,##0.00")
Range(Cells(1, "b"), Cells(vLin + 1, "c")).Font.Size = 8
End Sub
'//============='

Veja o código abaixo. baixe o exemplo de planilha no final da página.
Feliz Ano Novo a Todos.
Desejo-lhes muita paz, saúde e Alegria de viver. ( 19/12/2013) - 

 


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.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon SBL Excel VBA numeros aleatorios identificar par impar (90.85 kB)
  

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Numeros SBL Excel VBA numeros aleatorios identificar par impar