Come contare il numero di volte in cui una cella viene modificata in Excel?
Per contare il numero di volte in cui una cella specificata viene modificata in Excel, i codici VBA forniti in questo articolo possono aiutare.
Conta il numero di volte in cui una cella viene modificata con il codice VBA
Conta il numero di volte in cui una cella viene modificata con il codice VBA
I seguenti codici VBA possono aiutarti a contare il numero di volte in cui una cella specificata viene modificata in Excel.
1. Nel foglio di lavoro che contiene una o più celle per le quali è necessario calcolare la modifica totale, fare clic con il pulsante destro del mouse sulla scheda del foglio, quindi fare clic su Visualizza codice dal menu contestuale. Vedi screenshot:
2. In apertura Microsoft Visual Basic, Applications Edition finestra, copia e incolla uno dei seguenti codici VBA nel file Code finestra secondo le vostre esigenze.
Codice VBA 1: traccia le modifiche a una sola cella
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
Note:: Nel codice, B9 è la cella di cui hai bisogno per contare le sue modifiche e C9 è la cella per popolare il risultato del conteggio. Si prega di cambiarli come necessario.
Codice VBA 2: traccia le modifiche a più celle in una colonna
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
Note:: In questa riga "Imposta xRRg = xCell.Offset(0, 1)", il numero 1 rappresenta il numero di colonne da spostare a destra del riferimento iniziale (qui il riferimento iniziale è colonna Be il conteggio che vuoi restituire è nella colonna C che si trova accanto alla colonna B). Se è necessario visualizzare i risultati nella colonna S, cambia il numero 1 a 10.
D'ora in poi, quando la cella B9 o qualsiasi cella nell'intervallo B9:B1000 cambia, il numero totale di modifiche verrà sovrapposto e compilato automaticamente nella cella specificata.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!