Hoe veranderende waarden in een cel in Excel vastleggen?
Hoe elke veranderende waarde vast te leggen voor een regelmatig veranderende cel in Excel? De oorspronkelijke waarde in cel C2 is bijvoorbeeld 100, wanneer het getal 100 in 200 wordt gewijzigd, wordt de oorspronkelijke waarde 100 automatisch in cel D2 weergegeven voor opname. Ga je gang en verander 200 in 300, nummer 200 wordt ingevoegd in cel D3, verander 300 in 400 geeft 300 in D4 weer, enzovoort. De methode in dit artikel kan u daarbij helpen.
Registreer veranderende waarden in een cel met VBA-code
Registreer veranderende waarden in een cel met VBA-code
De onderstaande VBA-code kan u helpen elke veranderende waarde in een cel in Excel vast te leggen. Ga als volgt te werk.
1. In het werkblad bevat de cel waarvan u de veranderende waarden wilt vastleggen, klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het contextmenu. Zie screenshot:
2. Vervolgens de Microsoft Visual Basic voor toepassingen venster wordt geopend, kopieer de onderstaande VBA-code naar het codevenster.
VBA-code: registreer veranderende waarden in een cel
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
Opmerkingen: In de code is C2 de cel waarvan u alle veranderende waarden wilt opnemen. D2 is de cel waarin u de eerste veranderende waarde van C2 zult invullen.
3. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
Vanaf nu worden elke keer dat u waarden in cel C2 wijzigt, de vorige veranderende waarden vastgelegd in D2 en de cellen onder D2.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!