¿Cómo registrar los 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á automáticamente en la celda D2 para su registro. Cuando cambie 200 a 300, el número 200 se insertará en la celda D3; al cambiar 300 a 400, se mostrará 300 en D4 y así sucesivamente. El método de este artículo puede ayudarte a lograrlo.
Registrar valores cambiantes en una celda con código VBA
Registrar valores cambiantes en una celda con código VBA
El siguiente código VBA puede ayudarte a registrar cada valor cambiante en una celda en Excel. Por favor, sigue los siguientes pasos.
1. En la hoja de cálculo que contiene la celda donde deseas registrar los valores cambiantes, haz clic derecho en la pestaña de la hoja y luego haz clic en Ver Código en el menú contextual. Ver captura de pantalla:
2. Luego se abrirá la ventana de Microsoft Visual Basic para Aplicaciones; por favor, copia el siguiente código VBA en la ventana de Código.
Código 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 deseas registrar todos sus valores cambiantes. D2 es la celda en la que se llenará el primer valor cambiante de C2.
3. Presiona las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
A partir de ahora, cada vez que cambies los valores en la celda C2, los valores anteriores se registrarán en D2 y en las celdas debajo de ella.
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!