Pari e dispari con VBA

[Massimo]

Ciao ragazzi, c'è un istruzione VBA in Excel che mi possa
riconoscere in un numero più o meno lungo, le cifre pari
o dispari?
Grazie.

[ivano]

"Massimo" <***@discussions.microsoft.com> ha scritto nel messaggio news:1fad101c45842$1ce5bb00$***@phx.gbl...
Ciao ragazzi, c'è un istruzione VBA in Excel che mi possa
riconoscere in un numero più o meno lungo, le cifre pari
o dispari?
Grazie.


Non conosco VBA..ma la funzione
mod(numero;2)=0 ti dice VERO se pari


--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/progetto_rio.asp

[Massimo]

Scusa Ivano, mi puoi dire per favore come devo applicare
questa funzione se per esempio ho un numero tipo 234769?
Grazie per la pazienza.

-----Messaggio originale---
Ciao ragazzi, c'è un istruzione VBA in Excel che mi possa
riconoscere in un numero più o meno lungo, le cifre pari
o dispari?
Grazie.
Non conosco VBA..ma la funzione
mod(numero;2)=0 ti dice VERO se pari
--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/p

rogetto_rio.asp

.

[Giovanna]

"Massimo" <***@discussions.microsoft.com> ha scritto nel messaggio news:1f5a701c4584c$9311c2b0$***@phx.gbl...
Scusa Ivano, mi puoi dire per favore come devo applicare
questa funzione se per esempio ho un numero tipo 234769?
Grazie per la pazienza.
ciao
credo che la formula per l'operatore modulo suggerito da Ivano sia
=RESTO(numero;2)=0 al posto di "numero" tu devi inserire il tuo oppure il
riferimento di cella. (ti restituirà VERO se il numero è divisibile per 2
quindi pari)
...a me sembrava però tu chiedessi di poter riconoscere in un numero le
cifre pari e dispari, che è diverso dal riconoscere un numero pari o
dispari. Se è così, per ora non ti so aiutare! provo a pensarci.....ma????
ciaoo
giovanna

Post by Massimo
Ciao ragazzi, c'è un istruzione VBA in Excel che mi possa
riconoscere in un numero più o meno lungo, le cifre pari
o dispari?
Grazie.
Non conosco VBA..ma la funzione
mod(numero;2)=0 ti dice VERO se pari
--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/p

rogetto_rio.asp

Post by Massimo
.

[Massimo]

Grazie anche a te Giovanna.

-----Messaggio originale---
Scusa Ivano, mi puoi dire per favore come devo applicare
questa funzione se per esempio ho un numero tipo 234769?
Grazie per la pazienza.
ciao
credo che la formula per l'operatore modulo suggerito da

Ivano sia

=RESTO(numero;2)=0 al posto di "numero" tu devi inserire

il tuo oppure il

riferimento di cella. (ti restituirà VERO se il numero è

divisibile per 2

quindi pari)
....a me sembrava però tu chiedessi di poter

riconoscere in un numero le

cifre pari e dispari, che è diverso dal riconoscere un

numero pari o

dispari. Se è così, per ora non ti so aiutare! provo a

pensarci.....ma????

ciaoo
giovanna

Post by Massimo
Ciao ragazzi, c'è un istruzione VBA in Excel che mi

possa

Post by Massimo
riconoscere in un numero più o meno lungo, le cifre pari
o dispari?
Grazie.
Non conosco VBA..ma la funzione
mod(numero;2)=0 ti dice VERO se pari
--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/

p

rogetto_rio.asp

Post by Massimo
.

.

[ivano]

Post by Massimo
Scusa Ivano, mi puoi dire per favore come devo applicare
questa funzione se per esempio ho un numero tipo 234769?
Grazie per la pazienza.

Scusa per la risposta di prima...avevo letto male!

In VBA non so...forse con un ciclo for:
In Excel per sapere il numero delle cifre pari di un numero:

in G13 il numero

=SOMMA(--(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(
G13)));1));2)=0)) CTRL+MAIUSC+INVIO

per visualizare lo stesso numero con degli 1=cifra dispari....0=cifra pari
=TESTO(SOMMA(10^(LUNGHEZZA(G13)-RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(G13))))*1*
(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(G13)));1)
);2)=1));RIPETI("0";LUNGHEZZA(G13)))


--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/progetto_rio.asp

[Massimo]

MAMMA MIA che formula!!!Me la dovrò studiare un pò,
perchè la vorrei capire, ti farò sapere.
Grazie tante.

-----Messaggio originale---

Post by Massimo
Scusa Ivano, mi puoi dire per favore come devo applicare
questa funzione se per esempio ho un numero tipo 234769?
Grazie per la pazienza.

Scusa per la risposta di prima...avevo letto male!
In Excel per sapere il numero delle cifre pari di un
in G13 il numero
=SOMMA(--(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA

(INDIRETTO("1:"&LUNGHEZZA(

G13)));1));2)=0)) CTRL+MAIUSC+INVIO
per visualizare lo stesso numero con degli 1=cifra

dispari....0=cifra pari

=TESTO(SOMMA(10^(LUNGHEZZA(G13)-RIF.RIGA(INDIRETTO

("1:"&LUNGHEZZA(G13))))*1*

(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA(INDIRETTO

("1:"&LUNGHEZZA(G13)));1)

);2)=1));RIPETI("0";LUNGHEZZA(G13)))
--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/p

rogetto_rio.asp

.

[Massimo]

Ci sono riuscito in VBA applicando le funzioni Mid Len e
Mod 2.
Vi ringrazio per la disponibilità e soprattutto per la
pazienza, ciao e alla prossima.

-----Messaggio originale---
MAMMA MIA che formula!!!Me la dovrò studiare un pò,
perchè la vorrei capire, ti farò sapere.
Grazie tante.

-----Messaggio originale---

Post by Massimo
Scusa Ivano, mi puoi dire per favore come devo

applicare

Post by Massimo
questa funzione se per esempio ho un numero tipo

234769?

Post by Massimo
Grazie per la pazienza.

Scusa per la risposta di prima...avevo letto male!
In Excel per sapere il numero delle cifre pari di un
in G13 il numero
=SOMMA(--(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA

(INDIRETTO("1:"&LUNGHEZZA(

G13)));1));2)=0)) CTRL+MAIUSC+INVIO
per visualizare lo stesso numero con degli 1=cifra

dispari....0=cifra pari

=TESTO(SOMMA(10^(LUNGHEZZA(G13)-RIF.RIGA(INDIRETTO

("1:"&LUNGHEZZA(G13))))*1*

(RESTO(VALORE(STRINGA.ESTRAI(G13;RIF.RIGA(INDIRETTO

("1:"&LUNGHEZZA(G13)));1)

);2)=1));RIPETI("0";LUNGHEZZA(G13)))
--
Ivano - chiappaivano-chiocciola-hotmail.com
RIO - Risorse in Italiano per gli utenti di Office
www.microsoft.com/italy/informationworker/community/mvp/

p

rogetto_rio.asp

.

.

[Tiziano Marmiroli]

Post by Massimo
MAMMA MIA che formula!!!Me la dovrò studiare un pò,
perchè la vorrei capire, ti farò sapere.
Grazie tante.

Per favore quota correttamente lasciando solo le parti del
messaggio originale indispensabili per capire a cosa ti stai riferendo,
vedi ad esempio www.krisopea.it/mvp/Quoting.htm