numero pari dispari

Hai un problema con Excel?

Nuova discussione

numero pari dispari
di salvoturu (utente non iscritto) data: 30/11/2013 18:27:23
Se ho un numero qualsiasi in una cella come faccio a far riconoscere in vba se è pari o dispari.

inoltre se è dispari vorrei che mi ridasse in un'altra cella lo stesso numero moltiplicato per -1 .....

come si fa?????
di patel data: 30/11/2013 19:02:07
ammettiamo di avere dei numeri da A1 a A3
Sub a() For r = 1 To 3 If Cells(r, 1).Value And 1 Then Cells(r, 2).Value = -Cells(r, 1).Value End If Next End Sub

di patel data: 30/11/2013 19:05:00
oppure

Sub b()
For r = 1 To 3
  If Cells(r, 1).Value Mod 2 = 1 Then
    Cells(r, 2).Value = -Cells(r, 1).Value
  End If
Next
End Sub

di salvoturu (utente non iscritto) data: 30/11/2013 19:10:26
GRAZIEEEEEEEEEEEE
di patel data: 30/11/2013 19:18:47
potevi arrivarci anche tu semplicemente cercando con Google "vba pari dispari"
di Vecchio Frac data: 30/11/2013 20:08:34
Meno male che, invece, si è rivolto a noi... ExcelVBA wins ^_^

di Grograman (utente non iscritto) data: 02/12/2013 11:55:38
Curiosità personale, mi sembrava strano non esistesse una proprietà/metodo innato di VBA, e ovviamente c'è!

Option Explicit

Sub Demo()
  With WorksheetFunction
    Debug.Print .IsOdd(2)
    Debug.Print .IsEven(2)
    
    Debug.Print .IsOdd(1)
    Debug.Print .IsEven(1)
  End With
End Sub

di Vecchio Frac data: 02/12/2013 13:47:25
cit. "mi sembrava strano non esistesse una proprietà/metodo innato di VBA"
---> E infatti non c'è... IsEven e IsOdd sono funzioni proprie di Excel che richiami riferendoti alle omonime proprietà dell'oggetto Worksheetfunction :P

Vuoi Approfondire?