Hoppa till huvudinnehåll

Hur övervakar jag cellförändringar i Excel?

Hur kan du övervaka ett kalkylbladceller om data ändras i Excel? Detta kan hjälpa dig att identifiera de ändrade cellerna så fort du kan. Den här artikeln kommer jag att prata om några intressanta metoder för att hantera denna uppgift i Excel.

Övervaka cellförändringar i Excel med funktionen Spåra ändringar

Övervaka cellförändringar i Excel med VBA-kod


pil blå höger bubbla Övervaka cellförändringar i Excel med funktionen Spåra ändringar

Excel har ett användbart Spåra ändringar funktion kan det hjälpa dig att markera de ändrade cellerna, gör så här:

1. Klicka översyn > Spåra ändringar > Markera ändringar, se skärmdump:

ändringar av doc monitor 1

2. I Markera ändringar dialogrutan, gör följande:

(1.) Kontrollera Spåra ändringar under redigering. Detta delar också din arbetsbok.

(2.) Under Markera vilka förändringar avsnittet, ange artiklarna När, Vem och Var som du behöver.

(3.) Kontrollera äntligen Markera ändringar på skärmen alternativ.

ändringar av doc monitor 2

3. När du har gjort inställningarna klickar du på OK knappen, nu, när du ändrar några cellvärden i de angivna cellerna, finns en kant med en triangulär ikon runt de ändrade cellerna, se skärmdump:

ändringar av doc monitor 3

Anmärkningar: Med den här metoden blir din arbetsbok en delad arbetsbok.


pil blå höger bubbla Övervaka cellförändringar i Excel med VBA-kod

Följande VBA-kod kan också hjälpa dig att övervaka cellvärden när de ändras, gör så här:

1. Högerklicka på arkfliken som du vill övervaka celländringar och välj Visa kod från snabbmenyn, i den öppnade Microsoft Visual Basic för applikationer kopiera och klistra in följande VBA-kod i modulen:

VBA-kod: Övervaka cellförändringar i Excel-kalkylblad:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

ändringar av doc monitor 4

Notera: I ovanstående kod, A1: E7 är det dataområde som du vill övervaka om cellen ändras kan du ändra det efter dina behov.

2. Spara och stäng sedan det här kodfönstret, och nu, när du ändrar cellvärdet i det angivna intervallet, kommer en meddelandefält att dyka upp för att påminna dig, se skärmdump:

ändringar av doc monitor 5

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Merhaba. WhatsApp üzerinden bana gelen bir excell dosyası var. Bunu bilgisayar üstünden açıp. Bunda ki hareketleri ve değişiklikleri görme şansım var mı ?
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations