利用Excel VBA代碼編寫日志，查看表格操作修改記錄。
在編輯excel表格時(shí)，如果能時(shí)時(shí)記錄我們的操作過程，在需要查看修改過程時(shí)就很方便了。
如下圖演示，只要修改任一個(gè)工作表中的數(shù)據(jù)，就會(huì)在“日志”表中記錄修改時(shí)間、工作表名稱、原值、修改后和操作的單元格地址信息。
是不是很逆天的效果，如果你想在自己的表格中增加日志功能，就跟筆者一起操作吧。
第一步：添加“日志”工作表，輸入標(biāo)題行。
第二步：單擊工作表右鍵菜單中的“查看代碼”命令。
第三步：在打開的窗口中，雙擊工程窗口中的‘Thisworkbook“，然后把下面的代碼粘貼到右側(cè)的空白位置。
代碼：
Dim XX
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Sh.Name <> "日志" And Target.Rows.Count = 1 Then
With Sheets("日志")
If XX <> Target Then
ROW1 = Sheets("日志").[A65536].End(xlUp).Row + 1
.Cells(ROW1, 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")
.Cells(ROW1, 2) = Sh.Name
.Cells(ROW1, 3) = XX
.Cells(ROW1, 4) = Target.Value
.Cells(ROW1, 5) = Target.Address
End If
End With
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
XX = Target.Value
End Sub
第四步：關(guān)閉上面的代碼窗口，回到工作表中后，文件 - 另存為 - 類型：Excel啟用宏的工作簿。
