Hoe vaak een cel is gewijzigd in Excel tellen?

Om het aantal keren dat een specifieke cel in Excel wordt gewijzigd te tellen, kunnen de VBA-codes in dit artikel helpen.

Het aantal keren dat een cel is gewijzigd met VBA-code tellen

Het aantal keren dat een cel is gewijzigd met VBA-code tellen

De volgende VBA-codes kunnen u helpen om het aantal keren dat een specifieke cel in Excel wordt gewijzigd te tellen.

1. In het werkblad dat een of meer cellen bevat waarvoor u de totale verandering moet berekenen, klikt u met de rechtermuisknop op het tabblad van het blad en klikt u vervolgens op Weergave Code in het contextmenu. Zie screenshot:

2. In het venster Microsoft Visual Basic for Applications dat wordt geopend, kopieert en plakt u een van de volgende VBA-codes naar het Code-venster, afhankelijk van uw behoeften.

VBA-code 1: Wijzigingen in één cel volgen

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 Sub

Opmerking: In de code is B9 de cel waarvan u de wijzigingen wilt tellen, en C9 is de cel waarin het tellingresultaat wordt weergegeven. Pas deze aan zoals nodig.

VBA-code 2: Wijzigingen in meerdere cellen in een kolom volgen

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 Sub

Opmerking: In deze regel "Set xRRg = xCell.Offset(0, 1)", stelt het getal 1 het aantal kolommen voor dat naar rechts verschoven moet worden ten opzichte van de startreferentie (hier is de startreferentie kolom B, en de telling die u wilt retourneren staat in kolom C die naast kolom B ligt). Als u de resultaten in kolom S wilt uitvoeren, verandert u het getal 1 in 10.

Vanaf nu zal, wanneer cel B9 of elke cel in het bereik B9:B1000 verandert, het totale aantal veranderingen worden opgeteld en automatisch worden ingevuld in de aangewezen cel.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!