使用自定义对象作为参数从 Worksheet_Change 调用函数答案

【问题标题】：Calling function from Worksheet_Change with custom object as parameter使用自定义对象作为参数从 Worksheet_Change 调用函数
【发布时间】：2014-02-14 13:18:00
【问题描述】：

下面的代码在HelperFunctions.updatecontractlist (PC) 中给了我一个Object doesn't support this property or method

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim PCName As String, BU, PC As Variant
    If Target.Address = "$B$1" Then
        PCName = Target.value
        For Each BU In TotalBook.GetBUs
            For Each PC In BU.GetPCs
                If PC.Name = PCName Then HelperFunctions.updatecontractlist (PC)
        Next PC, BU
    End If
End Sub

updatecontractlist 在哪里：

Public Sub updatecontractlist(PC As Variant)

 whatever

End Sub

而PC 是自定义对象，在代码的许多其他部分都可以正常工作，我可以在我的Watches 窗口中看到，当错误发生时它已正确加载。

我错过了什么？

【问题讨论】：

标签： excel worksheet-function custom-object vba

【解决方案1】：

你应该改变：

If PC.Name = PCName Then HelperFunctions.updatecontractlist (PC)

到

If PC.Name = PCName Then Call HelperFunctions.updatecontractlist (PC)

或

If PC.Name = PCName Then HelperFunctions.updatecontractlist PC

【讨论】：