Também agradeço por compartilhar seu conhecimento neste vídeo. Não sou iniciante no VBA e gostei muito de sua didática. Pra mim que sou professor de matemática, isto é muito relevante. Foi a melhor explicação que assisti sobre Array até agora. Sucesso pra você e pro canal!! Ganhou mais um escrito!
veja essa solução Sub ContarImpares() ' Definir o vetor com alguns valores vetor = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' Inicializa o contador contadorImpares = 0 ' Percorrer o vetor e verificar se o valor dividido por 2 tem resto For i = LBound(vetor) To UBound(vetor) If vetor(i) Mod 2 0 Then ' Verifica se tem resto (número ímpar) contadorImpares = contadorImpares + 1 End If Next i ' Exibir o resultado MsgBox "Quantidade de números ímpares: " & contadorImpares End Sub
Mais uma vez, agradeço a tua disposição em partilhar conhecimentos.👍
Também agradeço por compartilhar seu conhecimento neste vídeo. Não sou iniciante no VBA e gostei muito de sua didática. Pra mim que sou professor de matemática, isto é muito relevante. Foi a melhor explicação que assisti sobre Array até agora. Sucesso pra você e pro canal!! Ganhou mais um escrito!
Obrigado
Muito bom
Professor, e se eu usar o count para contar os valores dentro do array?
Me tira uma dúvida? Preciso contar as células ímpares de um mesmo vetor. Mas nao estou achando conteúdo sobre isso. Me ajuda ?
veja essa solução
Sub ContarImpares()
' Definir o vetor com alguns valores
vetor = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
' Inicializa o contador
contadorImpares = 0
' Percorrer o vetor e verificar se o valor dividido por 2 tem resto
For i = LBound(vetor) To UBound(vetor)
If vetor(i) Mod 2 0 Then ' Verifica se tem resto (número ímpar)
contadorImpares = contadorImpares + 1
End If
Next i
' Exibir o resultado
MsgBox "Quantidade de números ímpares: " & contadorImpares
End Sub