Excel VBA错误438“对象不支持该属性或方法”

Question

好吧，我在VBA肯定是个新手，但我正在学习。据我所知，我的代码没有理由不能正常运行，过去也是如此。尽管这个错误不断出现。我的目的是制作一个工作表，当你在主工作表中添加一个人时，它会自动更新其他工作表。代码看起来工作正常，但是它突然抛出这个错误，我不知道为什么。我四处看了看，但似乎没有一个解决方案与我的问题有丝毫关联。任何有助于找出错误所在的帮助都将不胜感激！

以下是调试器指出错误的位置：

Private Sub Worksheet_Activate()
    ThisWorkbook.UpdateSheets (Week2)
End sub

这是正在调用的函数：

Public Function UpdateSheets(ByRef w As Worksheet)
HowManyPeople
With w
    .Columns("A:W").HorizontalAlignment = xlCenter
    Dim i As Integer
    Dim j As Integer
    For i = 1 To x
        If IsEmpty(.Cells(i, 2)) Then
            For j = 2 To 12
                .Cells(i + 4, j).Borders.LineStyle = xlContinuous
                If j <> 12 Then
                    .Cells(i + 4, j).Interior.ColorIndex = 2
                    .Cells(i + 4, j).Locked = False
                Else
                    .Cells(i + 4, j).Interior.ColorIndex = 15
                    .Cells(i + 4, j).Locked = True
                End If
                If j = 2 Then
                    .Cells(i + 4, j).Value = Week1.Cells(i + 4, j)
                Else
                    .Cells(i + 4, j).Value = "0"
                End If
            Next j
        End If
    Next i
    i = x + 5
    Do
        For j = 2 To 12
            .Cells(i, j).Borders.LineStyle = xlNone
            .Cells(i, j).Interior.ColorIndex = 2
            .Cells(i, j).Locked = True
            .Cells(i, j).Value = ""
        Next j
        i = i + 1
    Loop Until IsEmpty(.Cells(i, j))
End With

End Function

HowManyPeople函数是一种基本的行计数方法。x是在HowManyPeople方法中给定值的公共工作簿变量。第一周和第二周是工作表的技术名称(未显示名称)

Answer 1

在sub中，更改以下内容:< br> ThisWorkbook。UpdateSheets (Week2)
对此< br> 调用UpdateSheets(ThisWorkbook。工作表(“第2周”)

请参见类似问题，SO
没有< code>ThisWorkbook对象的< code>UpdateSheets成员。