Riportare elementi di una formula in formato testo

by sal, 03/04/2019 15.28:

---

Ciao nella cella gialla scrivi:

=Testo.Formula(D3)

e trascina in basso.

Ciao By Sal

---

dodo47, 03/04/2019 19.40:

---

ciao Mario

'mbè, se si volesse gestire "tutto" perbene come credo tu voglia fare, non credo che si riesca, prendi ad esempio:
=Magazzino!B3+Magazzino!B1+CERCA.VERT("Mele";Magazzino!$A$1:$B$5;2;FALSO)

Solo nel caso che quanto riportato dal ns. amico corrisponda al vero, cioè:
=NomeFoglio!Cella1+NomeFoglio!Cella2...etc...etc

mFormula = Range("D3").Formula
mArr = Split(mFormula, "+")
For i = 0 To UBound(mArr)
    cella = Mid(mArr(i), InStrRev(mArr(i), "!") + 1, Len(mArr(i)))
    giacenza = Worksheets("Magazzino").Range(cella)
    prodotto = Worksheets("Magazzino").Range(cella).Offset(, -1)
    MsgBox giacenza & " - " & prodotto
Next

Ma è ovviamente qualcosa di estremamente limitato

Un caro saluto

---

federico460, 03/04/2019 19.46:

---

ciao

prova a vedere se ti va bene

in cella E3 scrivi
la formula come testo


Magazzino!B3+Magazzino!B1

in F3 metti

---

=SE.ERRORE(INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI($E3;"+";RIPETI(" ";LUNGHEZZA($E3)));(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1;LUNGHEZZA($E3))))&" "&INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI(SOSTITUISCI($E3;"+";RIPETI(" ";LUNGHEZZA($E3)));"B";"A");(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1; LUNGHEZZA($E3))));"")

---

e tirala a destra
nb
nel 2010 non esiste ancora la funzione TESTO.FORMULA()

---

federico460, 03/04/2019 20.50:

---

ciao
se usi il 2013
=SOSTITUISCI(TESTO.FORMULA(D3);"=";"")
e hai risolto
per il 2010

in un modulo

---

Public Function FormulaEstrai(Range As Range)
FormulaEstrai = Range(1, 1).FormulaLocal
End Function

---

in E3
=SOSTITUISCI(FormulaEstrai(D3);"=";"")
da tirare in giù

per il resto come prima

---

federico460, 03/04/2019 22.42:

---

ciao
intanto cambiamo formula
non sapevo potesse esserci il meno

---

=SE.ERRORE(INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI($E3;"+";RIPETI(" ";LUNGHEZZA($E3)));(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1;LUNGHEZZA($E3))))&" "&INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI(SOSTITUISCI($E3;"+";RIPETI(" ";LUNGHEZZA($E3)));"B";"A");(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1; LUNGHEZZA($E3))));INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI($E3;"-";RIPETI(" ";LUNGHEZZA($E3)));(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1;LUNGHEZZA($E3))))&" "&INDIRETTO(ANNULLA.SPAZI(STRINGA.ESTRAI(SOSTITUISCI(SOSTITUISCI($E3;"-";RIPETI(" ";LUNGHEZZA($E3)));"B";"A");(RIF.COLONNA(A$1)-1)*LUNGHEZZA($E3)+1; LUNGHEZZA($E3)))))

---

ora vedo
per estrapolare il segno
ma la vedo dura

---

dodo47, 04/04/2019 12.30:

---

Ciao a tutti

"credo" che il risultato che vuole Phisical, non sia il testo dell formula riportata in col. D, bensì il testo del risultato; per esempio:
in D3 = Magazzino!B1-Negozio!B1 (80)
il risultato voluto in E3 dovrebbe essere:

+ 150 Mele - 70 Mele

L'allegato, considera solo i "+" o i "-" presenti nella formula. Ovviamente la formula deve essere una sommatoria (+ - ) di celle non derivanti da formule complesse ....

Saluti

(Nota: è ovviamente possibile creare una udf...ma vedi tu)

---