Domanda.

da Luciano   lupanomade@libero.it

ciao Ennius  sapresti indicarmi un metodo per identificare  i numeri pari e dispari ?  Es: in una riga ho una serie di numeri  e di volta in volta vorrei evidenziare ora quelli pari ora quelli dispari.  Io ho provato con  i  cicli FOR  ma non funziona,  sapresti consigliarmi  un metodo?
Grazie  luciano
 

Risposta.

Luciano, devi usare l'operatore Mod, così:

Sub PariDispari()
Dim CC As Object
Set zona = Range("A1:H1")
For Each CC In zona
If CC.Value = "" Then GoTo 10
If CC.Value Mod 2 = 0 Then
CC.Select
MsgBox " il numero " & CC.Value & " è un numero pari"
End If
10:
Next
End Sub

Per avere i dispari basta fare un'altra macro dove cambia il termine di confronto, anzichè uguale a zero, diventerà: diverso da zero:
If CC.Value Mod 2 <> 0 Then
Ovviamente cambierai anche il "pari" con "dispari" nel messaggio.
Saluti, ennius