注册 登录
编程论坛 Excel/VBA论坛

利用vba让某一列的时间根据那一行任意一个单元格的数据变动而更新到的当时的时间,且保存后下次改变表格单元格里的东西仍可以时间改变

YSJXLLLC 发布于 2024-07-30 11:12, 107 次点击
然后CHATJPT给了这一段
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRow As Long
    changedRow = Target.Row
    Dim changedCol As Long
    changedCol = Target.Column

    Dim updateCol As Long
    updateCol = 5 '设要更新到第 5 列,您可以根据实际需求修改

    If Intersect(Target, Me.UsedRange) IsNot Nothing Then
        If changedCol <> updateCol Then
            Cells(changedRow, updateCol).NumberFormat = "yyyy/mm/dd hh:mm:ss"
            Cells(changedRow, updateCol) = Now()
        End If
    End If
End Sub

结果就是说第二句有语法错误,VBA小白求大佬指点啊啊啊啊啊啊啊啊啊
1 回复
#2
yiyanxiyin2024-07-30 12:18
If Intersect(Target, Me.UsedRange) IsNot Nothing Then   ====>   If not Intersect(Target, Me.UsedRange) Is Nothing Then
1