VBA中的回调函数如何处理

/pig流云

最近因为需要用到一个表达式计算的功能，所以自己花了一些精力完成了，但目前遇到的问题想请教下各位大佬。
第一：回调函数目前是通过事件来完成的，但因为通过事件就限定了使用场景只能在窗体的对象模块中使用，不能在公共模块中使用。所以想知道有没有什么办法处理回调函数。
目前我是这样做的如下图。


在窗体初始的时候添加函数及常量

Private Sub UserForm_Initialize()
    iRow = 2
    Set F = New cFormulan
    '添加常量
    Call F.AddUserConstant("Pi", "3.1415926535897932385")
    Call F.AddUserConstant("true", "1")
    Call F.AddUserConstant("false", "0")
    Call F.AddUserConstant("亿", "100000000")

    '添加函数
    Call F.AddUserFunction("abs", 1)
    Call F.AddUserFunction("sqr", 1)
    Call F.AddUserFunction("sqrt", 1)
    Call F.AddUserFunction("round", 2)
    Call F.AddUserFunction("left", 2)
    Call F.AddUserFunction("right", 2)
    Call F.AddUserFunction("sin", 1)
End Sub


通过事件处理变量及函数，虽然目前来看是没有什么问题，也比较容易扩展函数功能。目前唯一遗憾的想知道有没有回调函数可以避开使用事件。

Private Sub F_FunctionCallback(ByVal fName As String, ByVal Args As Variant, ByVal aIndex As Long, result As Variant)
    Select Case fName
        Case "ABS"
            result = Abs(Args(aIndex))
        Case "RIGHT"
            result = Right(Args(aIndex), Args(aIndex + 1))
        Case "LEFT"
            result = Left(Args(aIndex), Args(aIndex + 1))
        Case "SQR", "SQRT"
            result = VBA.Sqr(Args(aIndex))
        Case "ROUND"
            If Args(aIndex + 1) > 0 Then
                result = Round(Args(aIndex), Args(aIndex + 1))
            Else
                result = Round(Args(aIndex) * 10 ^ (Args(aIndex + 1)), 0) * 10 ^ Abs(Args(aIndex + 1))
            End If
        Case "SIN"
            result = Sin(Args(aIndex))
    End Select
End Sub

Private Sub F_SetVariableVal(ByVal vName As Variant, vVal As Variant)
    Select Case vName
        Case "i"
            vVal = i
            Sheet1.Cells(iRow, 4).value = i
        Case "j"
            vVal = J
            Sheet1.Cells(iRow, 5).value = J
        Case "X" '
            vVal = Round(Rnd() * (100 - 1) + 1, 2)
            Sheet1.Cells(iRow, 6).value = vVal
        Case "Y"
            vVal = Round(Rnd() * (100 - 1) + 1, 2)
            Sheet1.Cells(iRow, 7).value = vVal
    End Select
    Debug.Print vName, vVal
End Sub


第二：效率问题，本来想提升效率，想用内存操作业操作数据，想着即可节约空间又可提高效率，结果发现CopyMemory 反而效率更慢，不知道那位大佬知道是什么原因，最后没办法只好改为了字符串组合，为了性能牺牲空间了。
Sub storedbl(ByVal s As String, value As Variant)
    Dim v As Currency
    Dim iOffset As Long
    Dim T As Currency
    Dim SS As String
    s = s & value & ChrW(0)
    'iOffset = LenB(s)
    'SS = String$(LenB(v) / 2, 100)
    'CopyMemory StrPtr(SS) + iOffset, StrPtr(SS), 8
End Sub



希望能得到帮助，谢谢！

ggmmlol

自己添加函数？为什么不利用Excel的内置函数公式进行计算。

“我们不生产水，我们只是大自然的搬运工”。使用正则表达式，把计算式中的特定字符进行转换和清洗过滤，然后借用Excel强大的函数公式及名称定义的功能，拥有无穷的扩展能力。

请参考我的帖子：
单元格小工具之九——工程量计算式 求值与字体格式化
http://club.excelhome.net/thread-1517833-1-1.html
(出处: ExcelHome技术论坛)

/pig流云

ggmmlol 发表于 2021-4-14 21:33
自己添加函数？为什么不利用Excel的内置函数公式进行计算。

“我们不生产水，我们只是大自然的搬运工” ...

应用场景不一样，有时候需要从很多其它外部得到数据，并对它些数据计算处理，所以需要用到表达式计算。如果不用表达式，用内置函数，那就得把所有数据读取到数据表中，再写公式这样运算量太大了。并不是我想要的。

ggmmlol

你既然强调应用场景，却不上附件，别人谁能了解你的应用场景？
你自己认为只有自定义回调函数才是最好的解决办法，在我看来，这也许是根本的方向错误。
就求助方式来说，你不上附件，做为一个新人，不了解附件在求助中的关键作用，可以理解。但是，在被提示上附件之后，如果你仍坚持所谓的通用函数不需要用附件测试，我赌一包82年的辣条，你不可能得到满意的解答！

/pig流云

ggmmlol 发表于 2021-4-15 08:06
你既然强调应用场景，却不上附件，别人谁能了解你的应用场景？
你自己认为只有自定义回调函数才是最好的解 ...

谢谢你的回复，其实也知道可能根本没有答案，毕竟VBA有很多局限，在别的编程语言中回调函数真的是非常基础的，但VBA以我的认知只能用事件来实现。另外说到的第二个问题内存操作，同样的代码copymemory在VB中则效率很高，在VBA中则效率非常低，这也是让我困惑的地方。如果操作内存能高效也可以补VBA很多短板，特别是自己构造数据结构这些特殊需求的场景。