PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos
Planilha Excel VBA números aleatórios identificar par impar 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.
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.
| 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 números aleatórios identificar par impar |
| Planilha Excel VBA números aleatórios identificar par impar |
Planilha Excel VBA números aleatórios identificar par impar
