如何在Excel的單元格中記錄更改的值

如何在Excel的單元格中記錄更改的值？

如何在Excel中記錄頻繁更改的單元格的每個更改值？例如，單元格C2中的原始值為100，將數(shù)字100更改為200時，原始值100將自動顯示在單元格D2中進(jìn)行記錄。繼續(xù)將200更改為300，將200插入到單元格D3中，將300更改為400將顯示300到D4，依此類推。本文中的方法可以幫助您實現(xiàn)它。

使用VBA代碼在單元格中記錄更改值

使用VBA代碼在單元格中記錄更改值驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！

下面的VBA代碼可以幫助您在Excel的單元格中記錄每個更改的值。請執(zhí)行以下操作。

1.在工作表中包含要記錄更改值的單元格，右鍵單擊工作表選項卡，然后單擊 查看代碼 從上下文菜單中。看截圖：

2.然后 Microsoft Visual Basic應(yīng)用程序 窗口正在打開，請將下面的VBA代碼復(fù)制到“代碼”窗口中。

VBA代碼：在單元格中記錄更改的值

Dim xVal As StringUpdate by Extendoffice 2018/8/22Private Sub Worksheet_Change(ByVal Target As Range)Static xCount As IntegerApplication.EnableEvents = FalseIf Target.Address = Range("C2").Address ThenRange("D2").Offset(xCount, 0).Value = xValxCount = xCount + 1ElseIf xVal <> Range("C2").Value ThenRange("D2").Offset(xCount, 0).Value = xValxCount = xCount + 1End IfEnd IfApplication.EnableEvents = TrueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)xVal = Range("C2").ValueEnd SubCopy

：在代碼中，C2是要記錄其所有更改值的單元格。 D2是您將填充C2的第一個變化值的單元格。

3。按其他 + Q 關(guān)閉鍵 Microsoft Visual Basic應(yīng)用程序 窗口。

從現(xiàn)在開始，每次更改單元格C2中的值時，以前的更改值將記錄在D2和D2以下的單元格中。