Cum să înregistrați valorile modificate într-o celulă din Excel?
Cum să înregistrați fiecare valoare în schimbare pentru o celulă care se schimbă frecvent în Excel? De exemplu, valoarea inițială în celula C2 este 100, la schimbarea numărului 100 la 200, valoarea originală 100 va fi afișată automat în celula D2 pentru înregistrare. Continuați să schimbați 200 la 300, numărul 200 va fi introdus în celula D3, schimbarea 300 la 400 va afișa 300 la D4 și așa mai departe. Metoda din acest articol vă poate ajuta să o realizați.
Înregistrați valorile modificate într-o celulă cu cod VBA
Înregistrați valorile modificate într-o celulă cu cod VBA
Codul VBA de mai jos vă poate ajuta să înregistrați fiecare valoare schimbătoare într-o celulă din Excel. Vă rugăm să faceți următoarele.
1. În foaia de lucru conține celula pe care doriți să înregistrați valorile modificate, faceți clic dreapta pe fila foaie și apoi faceți clic pe Afișați codul din meniul contextual. Vedeți captura de ecran:
2. Apoi Microsoft Visual Basic pentru aplicații se deschide fereastra, copiați mai jos codul VBA în fereastra Cod.
Cod VBA: înregistrați valorile modificate într-o celulă
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
notițe: În cod, C2 este celula pe care doriți să o înregistrați toate valorile sale schimbătoare. D2 este celula pe care o veți completa prima valoare schimbătoare a lui C2.
3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
De acum înainte, de fiecare dată când modificați valorile din celula C2, valorile anterioare modificate vor fi înregistrate în D2 și celulele de sub D2.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!