在編輯excel表格時,如果能時時記錄我們的操作過程,在需要查看修改過程時就很方便了。
如下圖演示,只要修改任一個工作表中的數據,就會在「日誌」表中記錄修改時間、工作表名稱、原值、修改後和操作的單元格地址信息。
是不是很逆天的效果,如果你想在自已的表格中增加日誌功能,就跟蘭色一起操作吧。
第一步:添加「日誌」工作表,輸入標題行。
第二步: 單擊工作表右鍵菜單中的「查看代碼」命令。
第三步:在打開的窗口中,雙擊工程窗口中的『Thisworkbook「,然後把下面的代碼粘貼到右側的空白位置。
代碼:
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
第四步:關閉上面的代碼窗口,回到工作表中後,文件 - 另存為 - 類型:Excel啟用宏的工作簿。
設置完成!
(註:刪除代碼即可讓日誌失去記錄作用)
蘭色說:其實這些看上去很高深的Excel技巧,只需要VBA初級水平就可以實現。VBA入門班2期本月15號即將在YY視頻教室開課,想學習VBA編程的同學抓緊時間報名了,只剩最後5天報名時間。
點左下角「閱讀原文」 了解具體的課程大綱和報名方法