Hur registrerar jag förändrade värden i en cell i Excel?
Hur registrerar jag varje förändringsvärde för en cell som ofta förändras i Excel? Till exempel är originalvärdet i cell C2 100, när du ändrar nummer 100 till 200 kommer originalvärdet 100 automatiskt att visas i cell D2 för inspelning. Fortsätt för att ändra 200 till 300, nummer 200 kommer att införas i cell D3, ändra 300 till 400 visar 300 till D4 och så vidare. Metoden i den här artikeln kan hjälpa dig att uppnå det.
Spela in förändrade värden i en cell med VBA-kod
Spela in förändrade värden i en cell med VBA-kod
Nedanstående VBA-kod kan hjälpa dig att registrera alla förändrade värden i en cell i Excel. Gör så här.
1. I kalkylbladet innehåller cellen som du vill registrera ändrade värden, högerklicka på arkfliken och klicka sedan på Visa kod från snabbmenyn. Se skärmdump:
2. Sedan Microsoft Visual Basic för applikationer fönstret öppnas, vänligen kopiera nedan VBA-kod till kodfönstret.
VBA-kod: registrera förändrade värden i en cell
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
Anmärkningar: I koden är C2 cellen som du vill spela in alla dess förändrade värden. D2 är cellen som du fyller i det första värdet på C2.
3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, varje gång du ändrar värden i cell C2, kommer de tidigare ändringsvärdena att registreras i D2 och cellerna under D2.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!