Видове процедури във VBA. Предаване/получаване на аргументи от една процедура на друга: оператори ByRef и ByVal

Q: Как да предадем аргумент-функция?

А ето и по-прост начин 'G - "главна" функция, Fnc е функция, изпратена като стринг Function G(ByVal Fnc As String, ByVal x As Double) As Double Dim FncRep As String 'замествам "x" със стойността на променливата х: FncRep = Replace(Fnc, "x", Str(x)) ' ...и изчислявам G = Evaluate(FncRep) End Function 'тест Sub test() Dim f1, f2 As String Dim res As Double 'тук дефинирам функциите - аргументи като стрингове: f1 = "sin(x)" f2 = "cos(x)" res = G(f1, Application.Pi() / 3) MsgBox ("sin(pi/3)=" + Str(res)) res = G(f2, Application.Pi() / 4) MsgBox ("cos(pi/4)=" + Str(res)) End Sub