¿Cómo registrar valores cambiantes en una celda en Excel?
¿Cómo registrar cada valor cambiante para una celda que cambia con frecuencia en Excel? Por ejemplo, el valor original en la celda C2 es 100, al cambiar el número 100 a 200, el valor original 100 se mostrará en la celda D2 automáticamente para su registro. Continúe para cambiar 200 a 300, el número 200 se insertará en la celda D3, cambiar 300 a 400 mostrará 300 a D4 y así sucesivamente. El método de este artículo puede ayudarlo a lograrlo.
Registre los valores cambiantes en una celda con código VBA
Registre los valores cambiantes en una celda con código VBA
El siguiente código VBA puede ayudarlo a registrar cada valor cambiante en una celda en Excel. Haz lo siguiente.
1. En la hoja de trabajo que contiene la celda que desea registrar los valores cambiantes, 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. Entonces el Microsoft Visual Basic para aplicaciones se abre la ventana, copie el código VBA a continuación en la ventana Código.
Código de VBA: registrar valores cambiantes en una celda
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
Notas: En el código, C2 es la celda en la que desea registrar todos sus valores cambiantes. D2 es la celda en la que completará el primer valor cambiante de C2.
3. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.
A partir de ahora, cada vez que cambie valores en la celda C2, los valores cambiantes anteriores se registrarán en D2 y en las celdas debajo de D2.
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!