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 )

  A B C
1

4,75

15

 1+(1*0,25)*B1
2      

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

 

Buon lavoro.

prelevato sul sito www.ennius.altervista.org