Hvordan registreres skiftende værdier i en celle i Excel?
Hvordan registreres hver skiftende værdi for en celle, der ofte skifter i Excel? For eksempel er den originale værdi i celle C2 100, når tallet 100 til 200 ændres, vises den oprindelige værdi 100 automatisk i celle D2 til optagelse. Fortsæt med at skifte 200 til 300, nummer 200 indsættes i celle D3, skift 300 til 400 viser 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 indeholder den celle, 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, registreres de tidligere skiftende værdier i D2 og cellerne under D2.
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!