¿Cómo registrar los datos históricos de la celda A1 especificada en Excel?
Abra su hoja de Excel, asumiendo que tiene la hoja 1 para implementar esta función.
Presiona alt F11, luego busca la hoja1 en la ventana izquierda del proyecto, haz doble clic e ingresa el siguiente código.
SubSheet_Change privado (objetivo ByVal como rango)
Dim
Tiene destino
Si. Dirección = "$A$1 "Entonces
Si Rango(" B65536 "). final (xlArriba). Fila = 1, Celdas(1, 2) = " "Entonces
Rango("b1") =. Valor
Otro
Celda(Rango("B65536").End(xlUp).Fila 1, 2) = . valor
Termina si
Termina si
Termina con
Conector final
Luego cierra VBE. Ingrese cualquier dato en A1 para ver el efecto.