如何在excel中自动生成修改时间
问题补充说明:例A1修改内容H1自显示修改间
用VBA可以做到
右键工作来自表标签,选择查看代码
粘贴以下代码并保存
Private Sub Worksheet_Change(ByVal Target As Range)'______说明↓_________________盟争卫著__________________
'某列单元格发生变化
'若临强些没笑步二乙变化值不为空,对应列添加变化时速一温假等侵预间点日期时间
'若变化值围青化千除就有为空,删除对应单元360问答格数据
'示例为A列第2行发生变化,对应的B列添加或删除日期
'______说明↑___________________________________
***.screenupdating = False '关闭屏幕刷新
Dim cA, cB, startRG As String
Dim offsetc As Long
Dim r罪占攻践向全毫镇演述g As Range
'______设置参数↓_________________
cA = "A" '变化区域所在列
cB = "H" '日师罪期生成列
startRG = "A2" '变化区域首单元格(防止改动表头触发肉随事件)
'______设置参数↑_________________
offsetc = Co关优财鲁但呀谓否沙言lumns(cB).Column - Columns(cA).Column
If Not ***.intersect(Target, Columns(cA), Range(startRG, ***.specialcells(xlLastCell))) Is Nothing Then
For Each rg In Intersect(Target, Columns(cA), Range(startRG, ***.specialcells(xlLas思培乙全会印士法亮味与tCell)))
If rg <> "" Then
With ***.offset(0, offsetc)
.Value = Now
.NumberFormatLocal = "yyy那理各钱y/m/d h:mm:ss;@"
E怀伯侵沉儿通树里胞nd With
Else
*镇握汽省果足传下电操**.offset(0, offsetc).Clear
End If
Next rg
End If
***.screenupdating = True '恢复屏幕刷新
End Sub
然房础省评团征延入列短拿后将工作簿另存为启用宏的工作簿(xlsm格式)
标签:excel,生成,修改