Office中国论坛/Access中国论坛

标题: 这段程序 [打印本页]

作者: pauwel 时间: 2007-3-4 03:54
标题: 这段程序
以下这段程序咋不能在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 时间: 2007-3-14 17:53
我已回复了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)