Io ho due celle adiacenti: A1 e B1

In A1 l'utente deve immettere dei calcoli parziali sottoforma di stringa
In B1 deve apparire il risultato.


esempio:

2*3+4*5     26

Questo è quello che deve apparire (ed essere stampato)

Fermo restando che A1 è una stringa ('2*3+4*5), ho provato:

scrivere in B1 la formula: =A1
ma ovviamente, trattandosi di una stringa, la riporta tal quale senza calcolarla.

scrivere in B1 la formula: = "=" & A1
ma anche in questo caso non la calcola e riporta la stringa
= 2*3+4*5

Insomma pare non ci sia modo di calcolare quella stringa...

Ho pensato a questo punto di creare una nuova funzione da utilizzare nella cella B1 in questo modo:
 = CalcolaStringa(A1)

ovvero:

Function Calcola_stringa(sInput as string) as double

'ma tutto quello che ho provato ad inserire
' qui in mezzzo, nella migliore delle ipotesi mi
' restituisce la solita stringa nella cella B2

End Function

In pratica non riesco a calcolare quella stringa! :-(

Qualche idea?

grazie

Bart

PS
Ho trovato una funzione per excel analoga che suona così:

Function calcola (C As range)
calcola = Application.Evaluate(C.Value)
End Function

(Funziona...)

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Rispondere a