乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何在excel中自动生成修改时间-excel修改时间,excel显示最后修改时间

如何在excel中自动生成修改时间-excel修改时间,excel显示最后修改时间

作者:乔山办公网日期:

返回目录:excel表格制作




用VBA可以做到

右键工作表标签,选择查看代码

粘贴以下代码并保存

Private Sub Worksheet_Change(ByVal Target As Range)
'______说明↓___________________________________
'某列单元格发生变化
'若变化值不为空,对应列添加变化时间点日期时间
'若变化值为空,删除对应单元格数据
'示例为A列第2行发生变化,对应的B列添加或删除日期
'______说明↑___________________________________
Application.ScreenUpdating = False '关闭屏幕刷新
Dim cA, cB, startRG As String
Dim offsetc As Long
Dim rg As Range
'______设置参数↓_________________
cA = "A" '变化区域所在列
cB = "H" '日期生成列
startRG = "A2" '变化区域首单元格(防止改动表头触发事件)
'______设置参数↑_________________
offsetc = Columns(cB).Column - Columns(cA).Column
If Not Application.Intersect(Target, Columns(cA), Range(startRG, ActiveCell.SpecialCells(xlLastCell))) Is Nothing Then
    For Each rg In Intersect(Target, Columns(cA), Range(startRG, ActiveCell.SpecialCells(xlLastCell)))
        If rg <> "" Then
            With rg.Offset(0, offsetc)
                .Value = Now
                .NumberFormatLocal = "yyyy/m/d h:mm:ss;@"
            End With
        Else
            rg.Offset(0, offsetc).Clear
        End If
    Next rg
End If
Application.ScreenUpdating = True '恢复e79fa5e98193e78988e69d83331屏幕刷新
End Sub

然后将工作簿另存为启用宏的工作簿(xlsm格式)


1、需要记录更改跟踪的表单,然后打开审阅菜单栏。

2、打开查看菜单栏,单击修订菜zhidao单,选择突出显示修订,然后在第一个空格中选择开始时间。

3、在“修订者”选项中选择“所有人”或“除我之外的所有人”,然后单击“确定”。

4、突出显示屏幕上的选择或创建一个新选项以显示它。可根据需要选择。

5、接下来,让我们尝试修改单元格的公式。例如,我修改了3个单元格。

6、鼠标放到C3格后,修改日期内容显示如下。



1、首先我们需要zd单击选中单元格

2、然后我们需要在右键单击选择设置单元格格式

3、然后我们需要在在分类下选择日期

4、这时我们需要在类型下面选择一种样式

5、这时我们在点击确定按钮,这一点很重要。

6、最后时间显示方式就被改了,这样就可以了。

相关阅读

关键词不能为空

ppt怎么做_excel表格制作_office365_word文档_365办公网