capovolgere o invertire numeri
comtrex
invertire i numeri esempio: 18 in 8.
Saluti
Comtrex
Norman Jones
'-------------
vi pongo un quesito riguarda i numeri, Voi sapete come
invertire i numeri esempio: 18 in 8.
'-------------
Non capisco in che modo 8 sia ottento da 18.
Forse potresti spiegare l'interpretazione dei termini
'capovolgere' e 'invertire' in questo contesto. Forse
alcuni esempi supplementari chiarirebbero il concetto.
---
Regards,
Norman
Microsoft Excel MVP
comtrex
"Norman Jones" wrote:
> Grazie norman per la tempestività e complimenti per Microsoft Excel MVP , in parte ti invidio perchè sei cosi approfodito nella materia che e giusto il titolo sopra riportato.
Comunque non pensare che sia un ruffiano, ma nei post del forum sei quello
che risponde più solertemente, sono i fatti che lo dimostrano.
Per il problema che ho posto, 18 in 81 e non 18 in 8, ho dimenticato un 1.
Saluti
Comtrex
ivano
"comtrex" <com...@discussions.microsoft.com> ha scritto nel messaggio
news:9E308482-44B4-4F36...@microsoft.com...
Ciao,
prova la seguente formula:
=SOMMA(STRINGA.ESTRAI(A1;RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)));1)*10^(RIF.RIGA(INDIRETTO("1:"&LUNGHEZZA(A1)))-1))
da inserire con ctrl+maiusc+invio
ivano
Norman Jones
'--------------
[...]
Per il problema che ho posto, 18 in 81 e non 18 in 8,
ho dimenticato un 1.
'--------------
Allora, tutto e chiaro!
In un modulo standard (vedi di sotto), prova:
'=============>>
Function Reverse(Stringa As String) As String
Dim i As Long
For i = Len(Stringa) To 1 Step -1
Reverse = Reverse & Mid(Stringa, i, 1)
Next i
End Function
'<<=============
Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incolla il suddetto codice
Alt-F11 per tornare in Excel
Alt-F8
Si userebbe questa funzione cosě:
A1: 18
B1: =Reverse(A1) ==> 81
A2: 123456789
B2: =Reverse(A1) ==> 987654321
A3: COMTREX
B3: =Reverse(A1) ==> XERTMOC
Norman Jones
> B2: =Reverse(A1) ==> 987654321
e
> B3: =Reverse(A1) ==> XERTMOC
erano intese come:
B2: =Reverse(A2) ==> 987654321
e
B3: =Reverse(A3) ==> XERTMOC
comtrex
"Norman Jones" wrote:
> Ciao Comtrex,
>
> > B2: =Reverse(A1) ==> 987654321
> e
> > B3: =Reverse(A1) ==> XERTMOC
>
Ottimo grazie per la risposta.
Saluti
Comtrex
Norman Jones
> Ottimo grazie per la risposta
Benissimo, ma prova anche la formula matriciale fornita
da Ivano: le formule matriciale sono utilissime e possono
essere molto potenti.
Franz Verga
*Norman Jones* ha scritto:
> Ciao Comtrex,
>
>> Ottimo grazie per la risposta
>
> Benissimo, ma prova anche la formula matriciale fornita
> da Ivano: le formule matriciale sono utilissime e possono
> essere molto potenti.
>
Ciao Norman,
ho provato la formula di Ivano, che ovviamente funziona, ma va bene solo per
i numeri (che era quanto richiesto da Comtrex), mentre la tua macro va bene
anche con il testo (invece la formula di Ivano con il testo da l'errore
#VALORE!).
--
Ciao
Franz Verga
Norman Jones
'---------------
ho provato la formula di Ivano, che ovviamente funziona, ma va bene solo per
i numeri (che era quanto richiesto da Comtrex), mentre la tua macro va bene
anche con il testo (invece la formula di Ivano con il testo da l'errore
#VALORE!).
'---------------
Hai ragione, ma nel caso di Comtrex. si tratta unicamente
dei numeri.
Io avevo dato un esempio del uso della funzione per invertire
un valore testo soltanto per qualcun altro che avesse un tal
requisito:
.otisiuqer lat nu esseva ehc ortla nuclauq rep otnatlos otset
erolav nu eritrevni rep enoiznuf alled osu led oipmese nu otad
oveva oI
Franz Verga
*Norman Jones* ha scritto:
> Ciao Franz,
>
Ciao Norman.
Ogni tanto dimentico le buone maniere... :-)
--
Ciao
Franz Verga
Franz Verga
*Norman Jones* ha scritto:
> Ciao Franz,
>
> '---------------
> ho provato la formula di Ivano, che ovviamente funziona, ma va bene
> solo per i numeri (che era quanto richiesto da Comtrex), mentre la
> tua macro va bene anche con il testo (invece la formula di Ivano con
> il testo da l'errore #VALORE!).
> '---------------
>
> Hai ragione, ma nel caso di Comtrex. si tratta unicamente
> dei numeri.
>
> Io avevo dato un esempio del uso
N.B.: del uso NO!
dell'uso SIII!
Norman Jones
'-------------
> Io avevo dato un esempio del uso
N.B.: del uso NO!
dell'uso SIII!
:-)
'-------------
Credo sia la stanchezza!
In ogni caso, ti ringrazio per la correzione.
Pippo
wrote:
> Ciao Comtrex,
>
> '--------------
> [...]
> Per il problema che ho posto, 18 in 81 e non 18 in 8,
> ho dimenticato un 1.
> '--------------
>
> Allora, tutto e chiaro!
>
> In un modulo standard (vedi di sotto), prova:
>
> '=============>>
> Function Reverse(Stringa As String) As String
> Dim i As Long
> For i = Len(Stringa) To 1 Step -1
> Reverse = Reverse & Mid(Stringa, i, 1)
> Next i
> End Function
> '<<=============
[cut]
Interessante,... mi chiedevo pero', quale puo' essere l'applicazione
in cui sia necessario invertire una stringa...
Conosci qualche caso pratico in cui puo' tornare utile la suddetta
funzione ?
Ciao
Pippo
Pippo
>
> '--------------
> [...]
> Per il problema che ho posto, 18 in 81 e non 18 in 8,
> ho dimenticato un 1.
> '--------------
>
> Allora, tutto e chiaro!
>
> In un modulo standard (vedi di sotto), prova:
>
> '=============>>
> Function Reverse(Stringa As String) As String
> Dim i As Long
> For i = Len(Stringa) To 1 Step -1
> Reverse = Reverse & Mid(Stringa, i, 1)
> Next i
> End Function
> '<<=============
Interessante, ... potresti pero', spiegarmi, quale puo' essere
l'utilita' della suddetta funzione?
Ciao
pippo
Norman Jones
'--------------
Interessante,... mi chiedevo pero', quale puo' essere l'applicazione
in cui sia necessario invertire una stringa...
Conosci qualche caso pratico in cui puo' tornare utile la suddetta
funzione ?
'--------------
Credo che ci siano due strade principale nello sviluppo
dei nuovi strumenti: la prima strada sarebbe di sviluppare lo
strumento in risposta ad un esigenza precisa - la necessità
è la madre dell'invenzione; viaggando sulla seconda strada,
non si preoccupa di un eventuale applicazion - le applicazioni
saranno scoperte in seguito all'invenzione dello strumento!.
Per illustrare la seconda strada ti darei l'esempio della
geometria N-dimensionale. Nell'anno 1795, un matematico
scozzese, John Playfair, ha enunciato il suo quinto postulato
di Euclide:
"Data una retta ed un punto esterno ad essa esiste un'unica
retta parallela passante per detto punto"
In seguito, alcuni hanno chiesti: ma perche' mai soltano *una*
retta, perche' non zero o due, tre o, addiritura, un numero
infinito di rette? Cosi. sono nate le geometre non euclidea.
elittica, parabolica e il concetto dello spazio N-dimensionale.
Per vedere l'utilita' di questo salto, sarebbe sufficiente guardare
il lavoro di Einstein.
Comunque, per un'utilita' immediata, credo che debba rivolgerti
a Comtrex.
Norman Jones
chiesto
fernando cinquegrani
http://www.google.it/groups?threadm=1176638369.5...@b75g2000hsg.googlegroups.com
> [cut]
>
> Interessante,... mi chiedevo pero', quale puo' essere l'applicazione
> in cui sia necessario invertire una stringa...
>
> Conosci qualche caso pratico in cui puo' tornare utile la suddetta
> funzione ?
palindromi?
(più pratico di così solo
http://www.prodomosua.eu/java/Hvall.html
richiede vm java)
.f
Norman Jones
Oltre ai palindromi suggeriti da Fernando, in Ingilterra,
piu' di cento anni fa, c'era una lingua 'Backslang', nella
quale le parole sono state parlati in modo invertito.
Questa lingua era estremamente popolare fra la classe
criminale di Londra al tempo della regina Victoria,
Vedi:
http://people.scs.fsu.edu/~burkardt/fun/wordplay/back_slang.html
Comunque, non vorrei suggeire che Comtrex frequenti
un tale confraternita o che sia di quella epoca! :-)
comtrex
"ivano" wrote:
> Grazie anche ad ivano, comunque quando ho scritto "OTTIMO GRAZIE PER LA RISPOSTA", era riferito atutti e due, rigrazio anche glia altri per il loro intervento, la mia rischiesta e solo per i numeri, io sono cattolico praticante quindi la richiesta e solo per la matematica, l'esoterismo non c'entra.
Saluti
Comtrex
comtrex
"Pippo" wrote:
fernando cinquegrani
http://www.google.it/groups?threadm=eoinp82f...@TK2MSFTNGP03.phx.gbl
> Vedi:
> http://people.scs.fsu.edu/~burkardt/fun/wordplay/back_slang.html
>
chissà perchè
see :: yes
mi fa pensare che possano esserci state anche altre influenze
all'origine dello slang della 'confraternita criminale'. :-)
.f
eliano
"comtrex" ha scritto:
Ciao comtrex.
Fortunatamente hai chiarito che la richiesta non ha niente a che vedere con
l'esoterismo, altrimenti potevamo cominciare a preoccuparci.
Saluto anche Norman, Fernando, il todesco Franz ed il poeta Pippo e lancio
la mia proposta, nela speranza che gli "omini di bona voluntade" non la
prendano troppo sul serio.
Macchè matriciali, macchè UDF (che funzionano benissimo), ma tu caro
Comtrex, visto che ti interessano solo i numeri da 1 a 90, prova questa
formula che contiene al suo interno tutti gli auspici esoterici per
realizzare finalmente un buon terno:
=SE(LUNGHEZZA(A1)=2;CONCATENA(DESTRA(A1;1);SINISTRA(A1;1));CONCATENA("0";A1))
Se come penso dovesse funzionare, un 10% sarebbe gradito.
Cordialmente,
Eliano
ivano
> Comtrex, visto che ti interessano solo i numeri da 1 a 90, prova questa
> formula che contiene al suo interno tutti gli auspici esoterici per
> realizzare finalmente un buon terno:
> =SE(LUNGHEZZA(A1)=2;CONCATENA(DESTRA(A1;1);SINISTRA(A1;1));CONCATENA("0";A1))
Ciao Eliano,
io direi anche:
=DESTRA(TESTO(A1;"00");1)&SINISTRA(TESTO(A1;"00");1)
...che non è una epistola parcondicio preelettorale...
ivano
eliano
"ivano" ha scritto:
> > Macchè matriciali, macchè UDF (che funzionano benissimo), ma tu caro
> > Comtrex, visto che ti interessano solo i numeri da 1 a 90, prova questa
> > formula che contiene al suo interno tutti gli auspici esoterici per
> > realizzare finalmente un buon terno:
> > =SE(LUNGHEZZA(A1)=2;CONCATENA(DESTRA(A1;1);SINISTRA(A1;1));CONCATENA("0";A1))
>
> Ciao Eliano,
> io direi anche:
> =DESTRA(TESTO(A1;"00");1)&SINISTRA(TESTO(A1;"00");1)
>
> ....che non è una epistola parcondicio preelettorale...
> ivano
>
LOL
Grazie, Ivano.
Eliano