Hoe veranderende waarden in een cel in Excel te registreren?
Hoe elke veranderende waarde voor een vaak veranderende cel in Excel te registreren? Bijvoorbeeld, de oorspronkelijke waarde in cel C2 is 100. Wanneer je het getal 100 wijzigt naar 200, wordt de oorspronkelijke waarde, 100, automatisch weergegeven in cel D2 ter registratie. Wanneer je 200 wijzigt naar 300, wordt het getal 200 ingevoegd in cel D3, en als je 300 wijzigt naar 400, wordt 300 weergegeven in D4, enzovoort. De methode in dit artikel kan je helpen dit te bereiken.
Veranderende waarden in een cel registreren met VBA-code
Veranderende waarden in een cel registreren met VBA-code
De onderstaande VBA-code kan je helpen om elke veranderende waarde in een cel in Excel te registreren. Volg de volgende stappen.
1. In het werkblad dat de cel bevat waarin je de veranderende waarden wilt registreren, klik met de rechtermuisknop op het tabblad van het werkblad en klik vervolgens op Weergave Code in het contextmenu. Zie screenshot:
2. Het venster Microsoft Visual Basic for Applications wordt geopend, kopieer de onderstaande VBA-code naar het Code-venster.
VBA-code: veranderende waarden in een cel registreren
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 SubOpmerkingen: In de code is C2 de cel waarvan je alle veranderende waarden wilt registreren. D2 is de cel waarin je de eerste veranderende waarde van C2 zal invullen.
3. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Vanaf nu zal elke keer wanneer je waarden in cel C2 wijzigt, de vorige waarden worden geregistreerd in D2 en de cellen eronder.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen