¿Cómo contar la cantidad de veces que se cambia una celda en Excel?
Para contar la cantidad de veces que se cambia una celda específica en Excel, los códigos VBA proporcionados en este artículo pueden ayudar.
Cuente la cantidad de veces que se cambia una celda con código VBA
Cuente la cantidad de veces que se cambia una celda con código VBA
Los siguientes códigos de VBA pueden ayudarlo a contar la cantidad de veces que se cambia una celda específica en Excel.
1. En la hoja de trabajo que contiene una o más celdas para las que necesita calcular el cambio total, haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Ver código desde el menú contextual. Ver captura de pantalla:
2. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie y pegue uno de los siguientes códigos VBA en el Código ventana de acuerdo a sus necesidades.
Código VBA 1: seguimiento de cambios en una sola celda
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: En el código, B9 es la celda que necesita para contar sus cambios, y C9 es la celda para completar el resultado del recuento. Cámbielos según sea necesario.
Código VBA 2: seguimiento de cambios en varias celdas de una columna
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: En esta línea "Establecer xRRg = xCell.Offset(0, 1)", el número 1 representa el número de columnas a desplazar a la derecha de la referencia inicial (aquí la referencia inicial es la columna B, y el recuento que desea devolver está en la columna C que se ubica al lado de la columna B). Si necesita generar los resultados en la columna S, cambia el número 1 a 10.
De ahora en adelante, cuando cambie la celda B9 o cualquier celda en el rango B9:B1000, el número total de cambios se superpondrá y se completará automáticamente en la celda especificada.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!