Manman,
tvoje resenje je ok, ako bas neces da koristis VBA. Ali ja stvarno ne vidim razlog za to. Shadowed je imao odlicnu ideju, koja se odnosi na koriscenje Script kontrole.
Stvar je krajnje jednostavna (bez pametovanja):
1. pritisnes Alt-F11 i uskocis u VBA editor,
2. Kliknes na Insert (meni) i izaberes Module,
3. Iskopiras par linija koda, navedenog u jednoj od prethodnih poruka,
4. Zatvoris VBA editor.
5. U radnoj svesci, recimo u celiji A1 upises famozno "(1+2)*3"
6. U celiji B2 upises "=Racunaj(A1)" i stvar je resena.
Da li radi?
Kod je sledeci:
Code:
Function Racunaj(a As Range) As Double
Dim Scr As New ScriptControl
Scr.Language = "VBScript"
izraz = Application.Range(a.Address).Value
racun = Scr.Eval(izraz)
Racunaj = racun
End Function
Razume se da je ovaj kod nekompletan, jer nema rukovanja greskama.
[Ovu poruku je menjao saler dana 07.11.2005. u 12:28 GMT+1]
[Shadowed: dodati [code] tagovi.]
[Ovu poruku je menjao Shadowed dana 08.11.2005. u 08:27 GMT+1]