Hvordan tæller man antallet af gange, en celle er ændret i Excel?
For at tælle antallet af gange, en specificeret celle ændres i Excel, kan VBA-koderne i denne artikel hjælpe.
Tæl antallet af gange, en celle er ændret med VBA-kode
Tæl antallet af gange, en celle er ændret med VBA-kode
Følgende VBA-koder kan hjælpe dig med at tælle antallet af gange, en specificeret celle ændres i Excel.
1. I regneark, der indeholder en eller flere celler, for hvilke du skal beregne den samlede ændring, skal du højreklikke på arkfanen og derefter klikke på Vis kode fra genvejsmenuen. Se skærmbillede:
2. I åbningen Microsoft Visual Basic til applikationer vindue, kopier og indsæt en af følgende VBA-koder i Kode vindue efter dine behov.
VBA-kode 1: Spor ændringer til kun én celle
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
Bemærk: I koden er B9 den celle, du skal tælle dens ændringer, og C9 er den celle, der skal udfylde tælleresultatet. Skift dem, som du har brug for.
VBA-kode 2: Spor ændringer til flere celler i en kolonne
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
Bemærk: I denne linje "Indstil xRRg = xCell.Offset(0, 1)", nummeret 1 repræsenterer antallet af kolonner, der skal forskydes til højre for startreferencen (her er startreferencen kolonne B, og det antal, du vil returnere, er i kolonnen C som er placeret ved siden af kolonne B). Hvis du har brug for at udskrive resultaterne i kolonne S, ændre nummeret 1 til 10.
Fra nu af, når celle B9 eller en celle i området B9:B1000 ændres, vil det samlede antal ændringer blive overlejret og automatisk udfyldt i den angivne celle.
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!