Question

如何用VBA让excel中的时间随着录入操作的动作而自动更新时间

我想做一个可以随着我每次打开操作excel时，当前的表格比如sheet1能够随着我录入数据，然后自动更新时间。网上有一个例子，就是我想问的，只是他给的解决办法，有一条语句在编辑器中是错误语句，我不懂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
第五行Cells(Target.Row， 1) = Now()
总是在VBA编辑器中显示为错误语句，请帮忙更正，谢谢~

Answer 1

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()

希望能帮到你。

Answer 2

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列时间自动更新。

Answer 3

呵呵，你这一段貌似我给一个朋友解决问题的答案，看看是不是Chiefzjh写的？

一看就知道是标点错了，用半角符号，英文输入法才行的

有什么特殊的要求再联系我

Answer 4

一楼说得正确