Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Estrai formula di Fausto (utente non iscritto) data: 29/07/2009
Ciao a tutti
avrei un quesito da sottoporvi:
in un foglio di excel nella cella a1 viene inserita la seguente formula: =(2+3)*5/2
il risultato che compare nella cella è quindi 12,5.
chiedo se è possibile estrarre e quindi visualizzare la formula in una cella adiacente (=(2+3)*5/2), e che la visualizzazione si aggiorni automaticamente al variare della formula in a1?
grazie
di Baz (utente non iscritto) data: 29/07/2009
Ciao,
a seguito il codice da inserire nel foglio dove vuoi venga eseguita la tua operazione
fai sapere
ciao
Private Sub Worksheet_Calculate()
Range("b1") = "(" & Range("a1").FormulaR1C1Local & ")"
End Sub
di Riccardo (utente non iscritto) data: 29/07/2009
Sulla scorta dell'indicazione precedente di baz, suggerisco la seguente funzione che è identica, ma può essere richiasmata in qualsiasi cella e non solo in una cella fissa (nell'esempio era "b1".
cioè se in a2, a3, a4 ci sono svariate formule, scrivendo rispettivamente in b2, b3, b4 la formula: =estraiformula(a2), ecc. ecc. si ottengono a fianco le formule in f.to testo, che si auto-aggiornano al variare delle formule stesse, come desideravi tu.
ciao
riccardo
Function EstraiFormula(Cella As Range)
EstraiFormula = Cella.FormulaR1C1Local
End Function
di Baz (utente non iscritto) data: 30/07/2009
Bella soluzione riccardo, sicuramente funzionale
io ho solamente "risolto" nel modo in cui è stato richiesto, diciamo accademico.