Cells(Target.Row, 1) = Now()
的错误在于“ ,”
vba只识别英文状态的“ , ”
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 100 And _
Target.Column >= 2 And Target.Column <= 10 Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Now()
Application.EnableEvents = True
End If
End Sub
把上面的语句贴上去看看。
这段代码的意思是
在你所激活的单元格在 3行到100行, 2列到10列之间时
所选取当前单元格的第一列 = 当前时间 now()
希望能帮到你。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 100 And _
Target.Column >= 2 And Target.Column <= 10 Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Now()
Application.EnableEvents = True
End If
End Sub
逗号改为半角。程序作用:修改b3:j100范围内的数据时,所在行a列时间自动更新。
呵呵,你这一段貌似我给一个朋友解决问题的答案,看看是不是Chiefzjh写的?
一看就知道是标点错了,用半角符号,英文输入法才行的
有什么特殊的要求再联系我
一楼说得正确