Usare operatore aritmentico da elenco

[amax]

Buongiorno a tutti, sto cercando di creare all'interno di un foglio più complesso una calcolatrice. Mi spiego meglio per non stare a scrivere ogni volta la formula, vorrei creare una cella con elenco di tutti gli operatori (+,-,*,/) e due celle dove inserire i dati.

Quindi A1 (primo fattore), A2 (secondo fattore), B1 (elenco con operatori), A3 (risultato).

Ho provato con questa formula in A3 (ma non funziona)

Codice: Seleziona tutto

(A1&"B1"A2)

dove B1 dovrebbe essere "+" o "-" o "*" ecc
Mi potete aiutare?
Grazie

[patel]

allega il file

[amax]

ecco il file

[Gaetanopr]

Dai un'occhiata a questa discussione viewtopic.php?f=9&t=6034&hilit=invoke

[patel]

Non si potrebbe fare usando INDIRETTO ?

[amax]

No non mi sono spiegato forse, il mio è molto più semplice (forse).
Io vorrei fare semplicemente che nella cella A1 ci sia un valore numerico tipo "2" nella cella A2 "3" nella cella A3 "Il risultato" dato dall'operatore che scelgo dalla cella B1. Quindi se nella cella B1 c'è "+" il risultato sarà "5" se c'è "*" il risultato "6" se "-" sarà "-1" ecc...

[Gaetanopr]

Ti sei spiegato ma non è semplice come pensi, credo tu non abbia letto tutta la discussione che ti ho postato

Non si potrebbe fare usando INDIRETTO ?

Non credo, al massimo creare una funzione personalizzata specificatamente per questo caso che si potrebbe implementare per farla più dinamica tipo questa che allego

Codice: Seleziona tutto

Function Eval(Rng, Op) As Double
Eval = Rng(1, 1)

Select Case Op
Case "+" 
For n = LBound(Rng)+1 To Ubound(Rng)
     Eval = Eval + Rng(n, 1)
Next n
Case "-" 
For n = LBound(Rng)+1 To Ubound(Rng)
     Eval = Eval - Rng(n, 1)
Next n
Case "/" 
For n = LBound(Rng)+1 To Ubound(Rng)
     Eval = Eval / Rng(n, 1)
Next n
Case "*" 
For n = LBound(Rng)+1 To Ubound(Rng)
     Eval = Eval * Rng(n, 1)
Next n
End Select

End Function

Nella cella scrivere così

Codice: Seleziona tutto

=EVAL(A1:A2;B1)

Altrimenti se non vuoi usare una funzione definita puoi usare la funzione SE con 4 casi qualcosa del genere

Codice: Seleziona tutto

=SE(B1="+";A1+A2;SE(B1="-";A1-A2;SE(B1="/";A1/A2;SE(B1="*";A1*A2;""))))

[amax]

Grazie, come al solito quello che pensi sia una "semplice" operazione non è poi tanto semplice.
Forse a questo punto userò il Più.Se anche se leggendo la funzione, mi intriga ma non le ho mai usate, forse è il momento giusto per iniziare.

[gioh66]

Buondì! Con una formula si potrebbe fare così: in A1 e A2 i valori con cui fare le operazioni. In B1 un menù a tendina da cui scegliere l'operatore e in A3 la seguente formula

Codice: Seleziona tutto

=SCEGLI(SE(B1="+";1;SE(B1="-";2;SE(B1="/";3;4)));A1+A2;A1-A2;A1/A2;A1*A2)

[gioh66]

...o anche più semplicemente

Codice: Seleziona tutto

=SE(B1="+";A1+A2;SE(B1="-";A1-A2;SE(B1="*";A1*A2;A1/A2)))