Sostituzioni multiple...

[Lady of the Rings]

Curiosità! Ho una bella formula "sostituisci" che contempla sette
possibilità, copiata in colonna:

=SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI('nomefoglio'!nomecella;"RADDOPPIA";"TRIPLICA");"DOPPIO";"TRIPLO");"DOPPIE";"TRIPLE");"DOPPIA";"TRIPLA");"2x1";"3x1");"RADDOPPI";"TRIPLICHI");"DOPPI";"TRIPLI")

Devo contemplare altre cinque ipotesi intese come testo:

20--->30
40--->60
60--->90
80--->120
100-->150

Non posso annidarle ulteriormente. Non posso usare & e ripartire con i
sostituisci per le cinque ipotesi perché mi copierebbe due volte la
cellula...

=SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI('nomefoglio'!nomecella;"RADDOPPIA";"TRIPLICA");"DOPPIO";"TRIPLO");"DOPPIE";"TRIPLE");"DOPPIA";"TRIPLA");"2x1";"3x1");"RADDOPPI";"TRIPLICHI");"DOPPI";"TRIPLI")&SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI(SOSTITUISCI('nomefoglio'!nomecella;"20";"30");"40";"60");"60";"90");"80";"120");"100";"150")

Mentre

=AND(prima serie di sostituisci;secondaserie di sostituisci)

non mi funziona (excel 2003 in inglese)

in questo caso, e solo in questo caso, potrei forse provare a usare il
VBA (di cui continuo ad avere paura), visto che nei file che trasferirò
poi passerò del solo testo. A quel punto mi piacerebbe anche che il
foglio che ho uscisse in solo testo. Ricapitolando:

foglio 1: tutti i miei dati su "n" righe
foglio 2: copia della cella in foglio uno con tutta la sostituzione di
cui sopra (DEVONO stare in fogli diversi)
foglio 3 - o foglio 2 altra colonna: se comparisse il copiato in solo
testo sarebbe carino....

finora sostituisco nel foglio due con la formula precedente, poi
converto manualmente tutto in solo testo e inoltro quello. La strada
più comoda è capire come posso annidare altre sostituzioni. Ho provato
anche a inserire l'AND nell'istruzione centrale, ma con risultati
pessimi...

[r]

Curiosità! ...
in questo caso, e solo in questo caso, potrei forse provare a usare il
VBA

:-)

Function SostModificata(testo As String) As String
Dim a1, a2, l As Long, T As String

T = testo
a1 = Array("RADDOPPIA", "DOPPIO", "DOPPIE", "DOPPIA", "2x1", "RADDOPPI",
"DOPPI", _
"20", "40", "60", "80", "100")
a2 = Array("TRIPLICA", "TRIPLO", "TRIPLE", "TRIPLA", "3x1", "TRIPLICHI",
"TRIPLI", _
"30", "60", "90", "120", "150")

For l = 0 To UBound(a1)
T = Replace(T, a1(l), a2(l))
Next
SostModificata = T
End Function

puoi usarla anche come udf

(di cui continuo ad avere paura)

e perchè mai?

saluti
r

[Lady of the Rings]

Post by r

Post by Lady of the Rings
(di cui continuo ad avere paura)

e perchè mai?

perché, come sospettavo, non riesco a farla andare... e non ho il tempo
di mettermi a capire perché non va :(

[Lady of the Rings]

Post by r

Post by Lady of the Rings
(di cui continuo ad avere paura)

e perchè mai?

perché, come sospettavo, non riesco a farla andare... e non ho il tempo
di mettermi a capire perché non va :(

[eliano]

On 11 Gen, 02:29, Lady of the Rings

Post by Lady of the Rings

Post by r

Post by Lady of the Rings
(di cui continuo ad avere paura)

e perchè mai?

perché, come sospettavo, non riesco a farla andare... e non ho il tempo
di mettermi a capire perché non va :(
--
Lady of the Rings
Il sedano ha un conto calorico negativo. Ci vuole piu' energia a
masticarlo di quella che il sedano contiene. Stavo pensando, dunque: se
uno mangiasse trenta libbre di sedano in una settimana, sparisce. Al
settimo giorno e' li' che mastica, diventa trasparente, poi un alone
verdastro e poi "Puf!". (Tim Bedore)

Ciao MyLady.
A parte il fatto che a noi i sedani non interessano ed a parte il
fatto che l'UDF proposta da Mr. r è una delle più "indolori" che Roby
ci ha presentato, invece di correre tutti e due come dannati (alla
Milanese), provate a darvi una calmata, :-))

Per prima cosa quella UDF deve essere copiata in un Modulo Standard,
ad esempio Modulo1 che trovi nel VBE premendo contemporaneamente CTRL
+F11.
(Se non vedi il Modulo, dopo CTRL+F11 clicca su Inserisci-->Modulo e
vedi che ti appare un bel foglio bianco che sembra lavato con Omo,
pronto per l'incolla)
Quindi, chiudi il Vbe e torna ad Excel, sul Foglio1.

Nel Foglio1, in A1, inserisci il tuo testo:
RADDOPPIA 20 DOPPIE 120 2x1 DOPPIO
Nel Foglio2 la formula: =SOSTMODIFICATA(Foglio1!A1)
Ti restituisce il testo: TRIPLICA 30 TRIPLE 130 3x1 TRIPLO

A questo punto, beviti velocemente un caffè e riparti di corsa.
Cordialmente
Eliano

[eliano]

Post by eliano
On 11 Gen, 02:29, Lady of the Rings

Post by Lady of the Rings

Post by r

Post by Lady of the Rings
(di cui continuo ad avere paura)

e perchè mai?

perché, come sospettavo, non riesco a farla andare... e non ho il tempo
di mettermi a capire perché non va :(
--
Lady of the Rings
Il sedano ha un conto calorico negativo. Ci vuole piu' energia a
masticarlo di quella che il sedano contiene. Stavo pensando, dunque: se
uno mangiasse trenta libbre di sedano in una settimana, sparisce. Al
settimo giorno e' li' che mastica, diventa trasparente, poi un alone
verdastro e poi "Puf!". (Tim Bedore)

Ciao MyLady.
A parte il fatto che a noi i sedani non interessano ed a parte il
fatto che l'UDF proposta da Mr. r è una delle più "indolori" che Roby
ci ha presentato, invece di correre tutti e due come dannati (alla
Milanese), provate a darvi una calmata, :-))
Per prima cosa quella UDF deve essere copiata in un Modulo Standard,
ad esempio Modulo1 che trovi nel VBE premendo contemporaneamente CTRL
+F11.
(Se non vedi il Modulo, dopo CTRL+F11 clicca su Inserisci-->Modulo e
vedi che ti appare un bel foglio bianco che sembra lavato con Omo,
pronto per l'incolla)
Quindi, chiudi il Vbe e torna ad Excel, sul Foglio1.
RADDOPPIA 20 DOPPIE 120 2x1 DOPPIO
Nel Foglio2 la formula: =SOSTMODIFICATA(Foglio1!A1)
Ti restituisce il testo: TRIPLICA 30 TRIPLE 130 3x1 TRIPLO
A questo punto, beviti velocemente un caffè e riparti di corsa.
Cordialmente
Eliano- Nascondi testo citato
- Mostra testo citato -

Nel Foglio2, sempre in A1, ovviamente.

[Lady of the Rings]

Il 11/01/2009, eliano ha detto :
SNIP

Post by eliano

Post by eliano
Ciao MyLady.
A parte il fatto che a noi i sedani non interessano ed a parte il
fatto che l'UDF proposta da Mr. r è una delle più "indolori" che Roby
ci ha presentato, invece di correre tutti e due come dannati (alla
Milanese), provate a darvi una calmata, :-))

In effetti, pensandoci a freddo, una soluzione alternativa - poco
pratica, ma almeno chiara per me - l'ho trovata...

Post by eliano

Post by eliano
Per prima cosa quella UDF deve essere copiata in un Modulo Standard,
ad esempio Modulo1 che trovi nel VBE premendo contemporaneamente CTRL
+F11.
(Se non vedi il Modulo, dopo CTRL+F11 clicca su Inserisci-->Modulo e
vedi che ti appare un bel foglio bianco che sembra lavato con Omo,
pronto per l'incolla)
Quindi, chiudi il Vbe e torna ad Excel, sul Foglio1.
RADDOPPIA 20 DOPPIE 120 2x1 DOPPIO
Nel Foglio2 la formula: =SOSTMODIFICATA(Foglio1!A1)
Ti restituisce il testo: TRIPLICA 30 TRIPLE 130 3x1 TRIPLO
A questo punto, beviti velocemente un caffè e riparti di corsa.
Cordialmente
Eliano- Nascondi testo citato
- Mostra testo citato -

Nel Foglio2, sempre in A1, ovviamente.

Come dicevo a cucchiaino, la soluzione di mr r. (che ringrazio) non so
perché, ma non mi va...=SostModificata mi dà errore...

avevo comunque già provato a inserire la formula nel foglio bianco... E
nisba... :(

ho risolto il mio problema con un foglio ponte, che fisicamente
nasconderò solo per mantenere un'aura di mistero con i miei colleghi :P

Tanto quello che alla fin fine ci serve è solo il testo da rielaborare,
quindi...

Però adesso - e senza assolutamente più nessuna fretta - vorrei capire
un po' più che con le parole, "che cos'è" la VBA di mr r., nel senso
del perché è strutturata così, e anche il perché non funziona.

Se funzionasse la userei, perché ho capito cosa fa. Ma mi scoccerebbe
non aver capito il perchè, lo fa...

Non so se mi sono spiegata!

Grazie comunque a tutti!

[eliano]

On 11 Gen, 18:29, Lady of the Rings

Post by Lady of the Rings
SNIP

Post by eliano

Post by eliano
Ciao MyLady.
A parte il fatto che a noi i sedani non interessano ed a parte il
fatto che l'UDF proposta da Mr. r è una delle più "indolori" che Roby
ci ha presentato, invece di correre tutti e due come dannati (alla
Milanese), provate a darvi una calmata, :-))

In effetti, pensandoci a freddo, una soluzione alternativa - poco
pratica, ma almeno chiara per me - l'ho trovata...

Post by eliano

Post by eliano
Per prima cosa quella UDF deve essere copiata in un Modulo Standard,
ad esempio Modulo1 che trovi nel VBE premendo contemporaneamente CTRL
+F11.
(Se non vedi il Modulo, dopo CTRL+F11 clicca su Inserisci-->Modulo e
vedi che ti appare un bel foglio bianco che sembra lavato con Omo,
pronto per l'incolla)
Quindi, chiudi il Vbe e torna ad Excel, sul Foglio1.
RADDOPPIA 20 DOPPIE 120 2x1 DOPPIO
Nel Foglio2 la formula: =SOSTMODIFICATA(Foglio1!A1)
Ti restituisce il testo: TRIPLICA 30 TRIPLE 130 3x1 TRIPLO
A questo punto, beviti velocemente un caffè e riparti di corsa.
Cordialmente
Eliano- Nascondi testo citato
- Mostra testo citato -

Nel Foglio2, sempre in A1, ovviamente.

Come dicevo a cucchiaino, la soluzione di mr r. (che ringrazio) non so
perché, ma non mi va...=SostModificata mi dà errore...
avevo comunque già provato a inserire la formula nel foglio bianco... E
nisba... :(
ho risolto il mio problema con un foglio ponte, che fisicamente
nasconderò solo per mantenere un'aura di mistero con i miei colleghi :P
Tanto quello che alla fin fine ci serve è solo il testo da rielaborare,
quindi...
Però adesso - e senza assolutamente più nessuna fretta - vorrei capire
un po' più che con le parole, "che cos'è" la VBA di mr r., nel senso
del perché è strutturata così, e anche il perché non funziona.
Se funzionasse la userei, perché ho capito cosa fa. Ma mi scoccerebbe
non aver capito il perchè, lo fa...
Non so se mi sono spiegata!
Grazie comunque a tutti!
--
Lady of the Rings
Legge di Murphy-Groover: - Ronaldinho (seconda punta o trequartista); -
Kakà (seconda punta o trequartista); - Pato (prima punta o largo in
fascia): alla fine la mette *Inzaghi*.- Nascondi testo citato
- Mostra testo citato -

Ciao MyLady.
Ti sei spiegata benissimo, ma penso che sarebbe il caso di procedere
per gradi,
Per prima cosa verifichiamo cosa c'è che non va; sul mio disco remoto
http://mio.discoremoto.alice.it/falinieliano/ scarica il file
sostituiscitestidiversiconschiereByR.xls
e verificane il funzionamento.
Oltre alla eccezione di cucchiaino (ciao), ci possono essere svariati
motivi per un mancato funzionamento; testi in caratteri minuscoli non
vengono convertiti, nomi composti tipo DOPPIONE che dovrebbe
sostituire con TRIPLONE :-)), altri ed eventuali da verificare in fase
di test.
Per il funzionamento, le cui spiegazioni sarebbero di competenza di
Mister. r, risulta abbastanza semplice: usa il Replace, cioè il
sostituisci e dichiara due schiere, la prima contenente i testi da
sostituire, la seconda i testi con i quali viene effettuata la
sostituzione.
Per adesso, comunque, scarica il file e verificane il funzionamento.
Aspettando....un generale di vent'anni, biondo e con gli occhi blu ,
non gradito a "macchia" :-8), un saluto.
Eliano

[Lady of the Rings]

Post by eliano
Ciao MyLady.
Ti sei spiegata benissimo, ma penso che sarebbe il caso di procedere
per gradi,
Per prima cosa verifichiamo cosa c'è che non va; sul mio disco remoto
http://mio.discoremoto.alice.it/falinieliano/ scarica il file
sostituiscitestidiversiconschiereByR.xls
e verificane il funzionamento.

Va. Fa Esattamente quello che voglio che faccia. Ma se passo al mio
file, verifico che in Modulo1 ci sia la funzione

Loading Image...

e adatto ovviamente la cella a cui punta la funzione
(=SostModificata(Storyboard2x1!B3)

ecco il risultato che emerge:

Loading Image...

non vedo un motivo razionale per cui debba dare errore...

In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Post by eliano
Oltre alla eccezione di cucchiaino (ciao), ci possono essere svariati
motivi per un mancato funzionamento; testi in caratteri minuscoli non
vengono convertiti, nomi composti tipo DOPPIONE che dovrebbe
sostituire con TRIPLONE :-)), altri ed eventuali da verificare in fase
di test.

naturalmente un triplone non mi creerebbe nessun problema del tipo "è
errore", ci riderei e basta! E' l'unico motivo per cui non faccio
sostituire DOPPI con TRIPL, che sarebbe buono per Doppia, Doppio,
Doppie, ma non Doppi :D

E per cui uso Raddoppia prima di Doppia ;)

Post by eliano
Per il funzionamento, le cui spiegazioni sarebbero di competenza di
Mister. r, risulta abbastanza semplice: usa il Replace, cioè il
sostituisci e dichiara due schiere, la prima contenente i testi da
sostituire, la seconda i testi con i quali viene effettuata la
sostituzione.

Fino

Post by eliano
Per adesso, comunque, scarica il file e verificane il funzionamento.
Aspettando....un generale di vent'anni, biondo e con gli occhi blu ,

pilota biondo, camicia di seta
cappello di Volpe, sorriso d’atleta

Post by eliano
non gradito a "macchia" :-8), un saluto.

uh, che cattivi :D

[eliano]

On 12 Gen, 22:48, Lady of the Rings

Post by Lady of the Rings

Post by eliano
Ciao MyLady.
Ti sei spiegata benissimo, ma penso che sarebbe il caso di procedere
per gradi,
Per prima cosa verifichiamo cosa c'è che non va; sul mio disco remoto
http://mio.discoremoto.alice.it/falinieliano/ scarica il file
sostituiscitestidiversiconschiereByR.xls
e verificane il funzionamento.

Va. Fa Esattamente quello che voglio che faccia. Ma se passo al mio
file, verifico che in Modulo1 ci sia la funzione
http://i42.tinypic.com/2q40280.jpg
e adatto ovviamente la cella a cui punta la funzione
(=SostModificata(Storyboard2x1!B3)
http://i42.tinypic.com/2kltw6.jpg
non vedo un motivo razionale per cui debba dare errore...
In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Post by eliano
Oltre alla eccezione di cucchiaino (ciao), ci possono essere svariati
motivi per un mancato funzionamento; testi in caratteri minuscoli non
vengono convertiti, nomi composti tipo DOPPIONE che dovrebbe
sostituire con TRIPLONE :-)), altri ed eventuali da verificare in fase
di test.

naturalmente un triplone non mi creerebbe nessun problema del tipo "è
errore", ci riderei e basta! E' l'unico motivo per cui non faccio
sostituire DOPPI con TRIPL, che sarebbe buono per Doppia, Doppio,
Doppie, ma non Doppi :D
E per cui uso Raddoppia prima di Doppia ;)

Post by eliano
Per il funzionamento, le cui spiegazioni sarebbero di competenza di
Mister. r, risulta abbastanza semplice: usa il Replace, cioè il
sostituisci e dichiara due schiere, la prima contenente i testi da
sostituire, la seconda i testi con i quali viene effettuata la
sostituzione.

Fino

Post by eliano
Per adesso, comunque, scarica il file e verificane il funzionamento.
Aspettando....un generale di vent'anni, biondo e con gli occhi blu ,

pilota biondo, camicia di seta
 cappello di Volpe, sorriso d’atleta

Post by eliano
non gradito a "macchia" :-8), un saluto.

uh, che cattivi :D
--
Lady of the Rings
- "Il dottore mi ha detto che devo smettere di giocare a pallone!"
-  "Ti ha trovato qualcosa?"
- "No, mi ha visto giocare!"

Ciao MyLady.
Per l'errore #NOME? non so che dirti; succede certe volte se non viene
chiuso e riaperto il file dopo l'inserimento di una macro o di una
funzione, prima del suo utilizzo; prova e dacci conferma.

Post by Lady of the Rings
In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Questa non l'ho capita, ma non credo sia importante.

Per quanto riguarda il giovane generale biondo con gli occhi del
colore della sua divisa, mi riferivo al generale Custer, oggetto di un
tuo passaggio in altro NG.
Per quanto ne so io "pilotava" solo un ronzino di colore talmente
incerto che risultò (anche lui) sgradito agli indiani, che non ebbero
remore ad abbatterlo.:-))

Saluti
Eliano

[Lady of the 22 Rings]

Post by eliano
Ciao MyLady.
Per l'errore #NOME? non so che dirti; succede certe volte se non viene
chiuso e riaperto il file dopo l'inserimento di una macro o di una
funzione, prima del suo utilizzo; prova e dacci conferma.

Post by Lady of the Rings
In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Questa non l'ho capita, ma non credo sia importante.

Nix, non va, non c'è verso di farla girare... :(
Non può essere qualche impostazione che si porta dietro il file creato
sul pc con la versione in inglese, quello che non mi lascia creare le
macro?

Post by eliano
Per quanto riguarda il giovane generale biondo con gli occhi del
colore della sua divisa, mi riferivo al generale Custer, oggetto di un
tuo passaggio in altro NG.
Per quanto ne so io "pilotava" solo un ronzino di colore talmente
incerto che risultò (anche lui) sgradito agli indiani, che non ebbero
remore ad abbatterlo.:-))

Rimossi... Ma grazie ;)

[eliano]

Post by Lady of the 22 Rings

Post by eliano
Ciao MyLady.
Per l'errore #NOME? non so che dirti; succede certe volte se non viene
chiuso e riaperto il file dopo l'inserimento di una macro o di una
funzione, prima del suo utilizzo; prova e dacci conferma.

Post by Lady of the Rings
In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Questa non l'ho capita, ma non credo sia importante.

Nix, non va, non c'è verso di farla girare... :(
Non può essere qualche impostazione che si porta dietro il file creato
sul pc con la versione in inglese, quello che non mi lascia creare le
macro?

Ciao MyLady.
Che significa: non mi lascia attivare le macro ?
Ci sono altre macro nel file ? il VBE è protetto con Password ?
Se hai scaricato il mio file di prova, quello funziona ?
Facci sapere, eventualmente aprendo un nuovo thread, grazie.
Saluti
Eliano

[eliano]

On 12 Gen, 22:48, Lady of the Rings

Post by Lady of the Rings

Post by eliano
Ciao MyLady.
Ti sei spiegata benissimo, ma penso che sarebbe il caso di procedere
per gradi,
Per prima cosa verifichiamo cosa c'è che non va; sul mio disco remoto
http://mio.discoremoto.alice.it/falinieliano/ scarica il file
sostituiscitestidiversiconschiereByR.xls
e verificane il funzionamento.

Va. Fa Esattamente quello che voglio che faccia. Ma se passo al mio
file, verifico che in Modulo1 ci sia la funzione
http://i42.tinypic.com/2q40280.jpg
e adatto ovviamente la cella a cui punta la funzione
(=SostModificata(Storyboard2x1!B3)
http://i42.tinypic.com/2kltw6.jpg
non vedo un motivo razionale per cui debba dare errore...
In ogni caso ho verificato che in ufficio non lascia attivare le macro,
ma lì non mi servono più, fortunatamente...

Post by eliano
Oltre alla eccezione di cucchiaino (ciao), ci possono essere svariati
motivi per un mancato funzionamento; testi in caratteri minuscoli non
vengono convertiti, nomi composti tipo DOPPIONE che dovrebbe
sostituire con TRIPLONE :-)), altri ed eventuali da verificare in fase
di test.

naturalmente un triplone non mi creerebbe nessun problema del tipo "è
errore", ci riderei e basta! E' l'unico motivo per cui non faccio
sostituire DOPPI con TRIPL, che sarebbe buono per Doppia, Doppio,
Doppie, ma non Doppi :D
E per cui uso Raddoppia prima di Doppia ;)

Post by eliano
Per il funzionamento, le cui spiegazioni sarebbero di competenza di
Mister. r, risulta abbastanza semplice: usa il Replace, cioè il
sostituisci e dichiara due schiere, la prima contenente i testi da
sostituire, la seconda i testi con i quali viene effettuata la
sostituzione.

Fino

Post by eliano
Per adesso, comunque, scarica il file e verificane il funzionamento.
Aspettando....un generale di vent'anni, biondo e con gli occhi blu ,

pilota biondo, camicia di seta
 cappello di Volpe, sorriso d’atleta

Post by eliano
non gradito a "macchia" :-8), un saluto.

uh, che cattivi :D
--
Lady of the Rings
- "Il dottore mi ha detto che devo smettere di giocare a pallone!"
-  "Ti ha trovato qualcosa?"
- "No, mi ha visto giocare!"

Dimenticavo:
Prova ad convertire:
La mia Bmw ha una cilindrata di 1800 cm3, la tua solo di 3200
Il pareggio di bilancio potrà essere realizzato solo nel 2040

[Lady of the 22 Rings]

Post by eliano
La mia Bmw ha una cilindrata di 1800 cm3, la tua solo di 3200
Il pareggio di bilancio potrà essere realizzato solo nel 2040

Li fa già la formuletta, pure troppo ;)

Ho rischiato di spedire il file con dicembre 3008 ;)

[eliano]

Post by Lady of the 22 Rings

Post by eliano
La mia Bmw ha una cilindrata di 1800 cm3, la tua solo di 3200
Il pareggio di bilancio potrà essere realizzato solo nel 2040

Li fa già la formuletta, pure troppo ;)
Ho rischiato di spedire il file con dicembre 3008 ;)
--
Lady of the Rings #22#
Non tutti ingrassano per le stesse cause. Per esempio, ciò che ingrassa
l'uomo è la pasta, il pane, l'alcool, mentre la donna la ingrassa il
vestito, un paio di pantaloni, una camicetta. (Mauroemme)

LOL

Lo avevo notato subito, ma pensavo che Mister r sarebbe intervenuto con una
rettifica.
Per questo tipo di inconvenienti basta modificare gli elementi della
schiera, ad esempio inserendo un blank iniziale e finale agli elementi
numerici, ripetendo i termini alfanumerici in minuscolo o con solo una
maiuscola iniziale, ma allora forse conviene cambiare approccio.
Aspettando God.. no, Mister r, ti saluto.
Eliano
P.S. All'Eliano grasso gli sembra di ricordare che esistono anche altre cose
che fanno ingrassare le donne, con buona pace di Mauroemme. :-))

[cucchiaino]

Post by r
Function SostModificata(testo As String) As String
Dim a1, a2, l As Long, T As String
T = testo
a1 = Array("RADDOPPIA", "DOPPIO", "DOPPIE", "DOPPIA", "2x1", "RADDOPPI",
"DOPPI", _
"20", "40", "60", "80", "100")
a2 = Array("TRIPLICA", "TRIPLO", "TRIPLE", "TRIPLA", "3x1", "TRIPLICHI",
"TRIPLI", _
"30", "60", "90", "120", "150")
For l = 0 To UBound(a1)
T = Replace(T, a1(l), a2(l))
Next
SostModificata = T
End Function
puoi usarla anche come udf

ciao r(!),
una piccola considerazione:

se nel testo originale è presente la scritta 40,
la tua funzione in un primo step la trasforma in 60 e
un secondo step la ritrasforma in 90.

Dico giusto Lady? (ciao)



()---cucchiaino
www.riolab

[Lady of the Rings]

Post by cucchiaino

Post by r
Function SostModificata(testo As String) As String
Dim a1, a2, l As Long, T As String
T = testo
a1 = Array("RADDOPPIA", "DOPPIO", "DOPPIE", "DOPPIA", "2x1", "RADDOPPI",
"DOPPI", _
"20", "40", "60", "80", "100")
a2 = Array("TRIPLICA", "TRIPLO", "TRIPLE", "TRIPLA", "3x1", "TRIPLICHI",
"TRIPLI", _
"30", "60", "90", "120", "150")
For l = 0 To UBound(a1)
T = Replace(T, a1(l), a2(l))
Next
SostModificata = T
End Function
puoi usarla anche come udf

ciao r(!),
se nel testo originale è presente la scritta 40,
la tua funzione in un primo step la trasforma in 60 e
un secondo step la ritrasforma in 90.
Dico giusto Lady? (ciao)

Quello sarebbe solo un problema di logica quasi irrilevante e
risolvibile!


Invertendo l'ordine dei fattori il prodotto cambia eccome, in questo
caso, ma vale anche per le sostituzioni con sostituisci... :P

Il fatto è che non va (so fare ctrl+f11, per carità, eliano... niubba
sì, ma non così tanto). Metto le mie belle paroline da cambiare in
Foglio1!A1, la tua formula in Foglio2!A1: mi continua a ribadire in
Foglio2!A1 #Nome? e verificando mi dice: errore di nome non valido.

Il problema, fisicamente, l'ho già risolto (adesso adesso, non che
fosse grave). Ma perché non mi va il VBA?