这段程序

pauwel

以下这段程序咋不能在sheet中运行呢?

请各位朋友指点;

Private Sub wordsheet_change(ByVal target As Range)
    Dim s As Integer
    s = Application.WorksheetFunction.CountA([a1:a65536])
    If Cells(s + 1, 3) <> "" Then
    Cells(s + 1, 1) = s
    Cells(s + 1, 2) = Date
    End If
End Sub

z2117s

我已回复了