0

以下のコードは私Object doesn't support this property or methodにHelperFunctions.updatecontractlist (PC)

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ウィンドウで、バグが発生したときに適切にロードされていることがわかります。

私は何が欠けていますか？

4

1 に答える 1

0

変更する必要があります：

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

于 2014-02-14T13:30:07.000 に答える