Hvordan registreres skiftende værdier i en celle i Excel?
Hvordan registrerer man hver skiftende værdi for en ofte skiftende celle i Excel? For eksempel er den oprindelige værdi i celle C2 100. Når du ændrer nummer 100 til 200, vil den oprindelige værdi, 100, automatisk blive vist i celle D2 til optagelse. Når du ændrer 200 til 300, vil tallet 200 blive indsat i celle D3, ændring 300 til 400 vil vise 300 til D4 og så videre. Metoden i denne artikel kan hjælpe dig med at opnå det.
Registrer skiftende værdier i en celle med VBA-kode
Registrer skiftende værdier i en celle med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at registrere alle skiftende værdier i en celle i Excel. Gør som følger.
1. I regnearket, der indeholder den celle, hvor du vil registrere skiftende værdier, skal du højreklikke på arkfanen og derefter klikke på Vis kode fra genvejsmenuen. Se skærmbillede:
2. Derefter Microsoft Visual Basic til applikationer vinduet åbnes, skal du kopiere nedenstående VBA-kode til kodevinduet.
VBA-kode: registrer skiftende værdier i en celle
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
Noter: I koden er C2 den celle, du vil registrere alle dens skiftende værdier. D2 er den celle, du vil udfylde den første skiftende værdi af C2.
3. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, hver gang du ændrer værdier i celle C2, vil de tidligere værdier blive registreret i D2 og cellerne under den.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!