Excel VBA：将类方法名称传递至其他子例程以调用该方法

嘿，我来帮你搞定这个VBA里传递类方法调用的需求！针对你在MyFunctions.xlam加载项里的ChemicalRelease类，要把它的affectedArea方法传递给其他子例程来完成求解，最稳妥且易维护的方式是用**接口（Interface）**来标准化方法调用，下面是具体的实现步骤和代码示例：

1. 先确认你的类模块基础代码 #

首先确保ChemicalRelease类的massRate属性和affectedArea方法是Public的（你已经提到是public函数，没问题），类模块代码大概是这样：

' 位于ChemicalRelease类模块中
Private pMassRate As Double

' massRate属性的读写方法
Public Property Get massRate() As Double
    massRate = pMassRate
End Property

Public Property Let massRate(value As Double)
    pMassRate = value
End Property

' 计算影响区域的核心方法
Public Function affectedArea() As Double
    ' 这里替换成你实际的计算逻辑：结合massRate和其他因素计算区域
    ' 示例简化计算，仅作演示
    affectedArea = pMassRate * 0.8
End Function

2. 创建接口来标准化方法调用 #

接口可以让你的求解子例程不用关心具体是哪个类的方法，只要实现了这个接口的类都能被调用，灵活性拉满。

步骤2.1 新建接口模块 #

插入一个新的类模块，命名为IAreaCalculator，然后定义一个统一的方法名：

' 位于IAreaCalculator接口模块中
Public Function calculateArea() As Double
End Function

步骤2.2 修改ChemicalRelease类实现接口 #

在ChemicalRelease类的最顶部添加Implements语句，然后实现接口的方法：

' 位于ChemicalRelease类模块顶部
Implements IAreaCalculator

' 实现接口的calculateArea方法，直接复用现有的affectedArea
Private Function IAreaCalculator_calculateArea() As Double
    IAreaCalculator_calculateArea = Me.affectedArea
End Function

' 保留你原来的massRate属性和affectedArea方法...

3. 编写接收方法引用的求解子例程 #

现在你可以写一个通用的求解子例程，接收IAreaCalculator类型的参数，调用它的calculateArea方法来匹配目标影响区域：

' 位于标准模块中（比如MyFunctions.xlam里的标准模块）
Sub SolveForTargetArea(targetArea As Double, calculator As IAreaCalculator)
    Dim currentArea As Double
    Dim trialMassRate As Double
    Dim tolerance As Double: tolerance = 0.01 ' 设定允许的计算误差
    
    ' 这里替换成你的自定义求解逻辑（比如二分法、牛顿迭代，或者调用你的自定义求解器）
    ' 示例简化求解流程，仅作演示
    trialMassRate = 10 ' 初始尝试的质量速率值
    calculator.massRate = trialMassRate
    currentArea = calculator.calculateArea
    
    ' 循环调整massRate，直到接近目标区域
    Do While Abs(currentArea - targetArea) > tolerance
        If currentArea < targetArea Then
            trialMassRate = trialMassRate * 1.1 ' 区域不够，增大速率
        Else
            trialMassRate = trialMassRate * 0.9 ' 区域过大，减小速率
        End If
        calculator.massRate = trialMassRate
        currentArea = calculator.calculateArea
    Loop
    
    MsgBox "达到目标区域" & targetArea & "所需的质量速率为: " & Round(trialMassRate, 2)
End Sub

4. 测试调用示例 #

在标准模块里写一个测试子例程，创建ChemicalRelease实例，传递给求解子例程即可：

' 位于标准模块中
Sub TestChemicalReleaseSolver()
    Dim chemRelease As New ChemicalRelease
    Dim targetArea As Double: targetArea = 50 ' 替换成你的目标影响区域大小
    
    ' 把类实例传递给求解子例程，自动调用affectedArea方法
    SolveForTargetArea targetArea, chemRelease
End Sub

补充：关于AddressOf的注意事项 #

如果你想尝试用AddressOf传递方法指针，要注意VBA的AddressOf只能用于标准模块的函数，不能直接指向类模块的方法。如果一定要用这种方式，需要把affectedArea的逻辑重构到标准模块的函数里，再传递函数指针，但这种方式代码复杂度更高，不如接口方案直观易维护，所以更推荐前面的接口实现。

内容的提问来源于stack exchange，提问作者Michael James