Alt-F11
Insert->Module
Function szamolas(keplet As String)
szamolas = Evaluate(keplet)
End Function
Alt-Q
=szamolas(a2)
Vagy van valami külön oka, hogy érdemes ezt ennyire megbonyolítani? :)