做一個(gè)表，經(jīng)常修改，時(shí)間長(zhǎng)了，誰(shuí)還能記得修改了什么，什么時(shí)候修改的呢？如果一不小心刪除了，要如何恢復(fù)數(shù)據(jù)呢？
這一切的問(wèn)題，是你我這樣的辦公族每天都會(huì)遇到的煩惱！是時(shí)候展現(xiàn)真正的技術(shù)了！
以上問(wèn)題，在學(xué)習(xí)完我們今天的技巧后，都不是事什么時(shí)候？改了什么？原內(nèi)容是什么？修改是什么？所有記錄？
▍記錄內(nèi)容：
1、修改時(shí)間：可以精確到秒
2、事件：新增還是修改
3、單元格：操作的單元格地址
4、原內(nèi)容：新增內(nèi)容，原內(nèi)容為空
5、新內(nèi)容：修改后的內(nèi)容
▍制作教程
本案例，我們使用事件來(lái)記錄單元格的變化，不懂VBA也沒(méi)有關(guān)系，直接套用記錄！
1、右擊任意工作表名稱，查看代碼，打開VBE
2、雙擊需要記錄修改記錄的工作表
3、復(fù)制代碼，粘貼進(jìn)去，點(diǎn)擊右上角的×，關(guān)閉VBE
▍代碼如下
Public?oldValue?As?Variant
Private?Sub?Worksheet_Change(ByVal?Target?As?Range)
????Dim?iRow?As?Integer,?changeTp?As?String
????If?Target.Cells.Count?<>?1?Then?End
????If?Target.Column?>?5?Then?End?'控制修改內(nèi)容檢查的范圍這里是A-E列
????newvalue?=?Target.Value
????'內(nèi)容發(fā)生變化，記錄
????If?oldValue?<>?newvalue?Then
????????iRow?=?Worksheets("修改記錄").Cells(Rows.Count,?1).End(3).Row?+?1
????????If?oldValue?=?""?Then
????????????changeTp?=?"新增"
????????Else
????????????If?newvalue?<>?""?Then
????????????????changeTp?=?"修改"
????????????End?If
????????End?If
?????
????????With?Worksheets("修改記錄")
????????????'修改的日期時(shí)間
????????????.Cells(iRow,?1)?=?"'"?&?Format(Now,?"yyyy-mm-dd?hh:mm:ss")
????????????.Cells(iRow,?2)?=?changeTp
????????????.Cells(iRow,?3)?=?Target.Address(0,?0)
????????????.Cells(iRow,?4)?=?oldValue
????????????.Cells(iRow,?5)?=?newvalue
????????End?With
????End?If
End?Sub
Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)
????If?Target.Cells.Count?<>?1?Then?End
????If?Target.Column?>?5?Then?End?'控制修改內(nèi)容檢查的范圍這里是A-E列
????oldValue?=?Target.Value
????Debug.Print?"原始內(nèi)容："?&?oldValue
End?Sub
