Funzione FORMUL - Funzione Utente (personalizzata). - dal 04/09/04 pagina vista: volte

Una veloce funzione utente (vedi articolo "Funzioni Utente (vba)" sull'altro sito) utile per ottenere in una cella la formula contenuta in un'altra cella.

Mi viene spesso richiesto come visualizzare le formule contenute in altre celle; necessità spesso legata a lavori dove si voglia illustrare visivamente sul foglio la sequenza dei calcoli che restituiscono un risultato di una cella.

La funzione è semplice, va inserita in un modulo standard, e potrà essere richiamata sul foglio di lavoro oppure in routine vba; la sintassi:

•  FORMUL(cella)  dove FORMUL è il nome della funzione e "cella" è l'argomento della funzione, che sarà un riferimento ad una cella del foglio di lavoro.

Non ho nominato la funzione "FORMULA" in quanto, se la funzione viene richiamata in vba, può generare confusione visto che per il vba è una parola chiave, ma ognuno potrà nominarla col nome che crede.

Questa l'istruzione:

• Function FORMUL(cella) As String
  ipso = Mid(cella.Formula, 2)
  FORMUL = ipso
  End Function

Con Mid prendiamo della formula contenuta in "cella", tutta la formula SENZA il segno di uguale (=).

Esempio:

• in B1 ad esempio avremo 15

• in A1 la formula : =1+(1*0,25)*B1 (che restituisce : 4,75 )

• in C1 la funzione :  FORMUL(A1) (che restituisce : 1+(1*0,25)*B1 )

In C1 vediamo la formula contenuta in A1 come "testo", senza il segno di uguale.

Buon lavoro.

prelevato sul sito www.ennius.altervista.org