Hoe telt u het aantal keer dat een cel in Excel is gewijzigd?
Met de VBA-codes in dit artikel telt u eenvoudig het aantal keer dat een specifieke cel in Excel wordt gewijzigd.
Tel het aantal keren dat een cel wordt gewijzigd met VBA-code
Tel het aantal keren dat een cel wordt gewijzigd met VBA-code
De volgende VBA-codes helpen u het aantal keren te tellen dat een specifieke cel in Excel wordt gewijzigd.
1. Klik met de rechtermuisknop op het bladtab van het werkblad dat één of meer cellen bevat waarvoor u het totale aantal wijzigingen wilt berekenen, en klik vervolgens op Code weergeven in het contextmenu. Zie de schermafbeelding:
2. Plak in het geopende venster Microsoft Visual Basic for Applications een van de volgende VBA-codes in het Code-venster, afhankelijk van uw behoeften.
VBA-code 1: Wijzigingen bijhouden voor slechts één cel
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End SubOpmerking: In de code is B9 de cel waarvan u de wijzigingen wilt tellen en C9 de cel waarin het telresultaat wordt weergegeven. Pas deze naar wens aan.
VBA-code 2: Wijzigingen bijhouden voor meerdere cellen in een kolom
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End SubOpmerking: In de regel "Set xRRg = xCell.Offset(0, 1)" vertegenwoordigt het getal 1het aantal kolommen dat naar rechts wordt afgeweken ten opzichte van de startreferentie (hier is de startreferentie kolom)B, en het gewenste telresultaat staat in kolom C, direct naast kolom B). Als u de resultaten in kolom S wilt weergeven, wijzig dan het getal 1 in 10.
Vanaf nu wordt, telkens wanneer cel B9 of een willekeurige cel in het bereik B9:B1000 wordt gewijzigd, het totale aantal wijzigingen automatisch bijgehouden en ingevuld in de opgegeven cel.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins