作者:乔山办公网日期:
返回目录: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、最后时间显示方权式就被改了,这样就可以了。