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

2024-11-24 05:06:23
推荐回答(4个)
回答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()

希望能帮到你。

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

回答3:

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

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

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

回答4:

一楼说得正确