Gå til hovedindhold

Hvordan overvåges celleændringer i Excel?

Hvordan kunne du overvåge et regnearkceller, hvis dataene ændres i Excel? Dette kan hjælpe dig med at identificere de ændrede celler så hurtigt som muligt. Denne artikel vil jeg tale om nogle interessante metoder til at håndtere denne opgave i Excel.

Overvåg celleændringer i Excel med funktionen Track Changes

Overvåg celleændringer i Excel med VBA-kode


pil blå højre boble Overvåg celleændringer i Excel med funktionen Track Changes

Excel har en nyttig Sporændringer funktion, kan det hjælpe dig med at markere de ændrede celler. Gør som følger:

1. Klik anmeldelse > Sporændringer > Fremhæv ændringer, se skærmbillede:

ændringer til doc monitor 1

2. I Fremhæv ændringer i dialogboksen, skal du udføre følgende handlinger:

(1.) Kontroller Spor ændringer under redigering. Dette deler også din projektmappe.

(2.) Under Fremhæv hvilke ændringer afsnittet Hvornår, Hvem og Hvor, som du har brug for.

(3.) Kontroller endelig Fremhæv ændringer på skærmen valgmulighed.

ændringer til doc monitor 2

3. Når du er færdig med indstillingerne, skal du klikke på OK knap, nu, når du ændrer celleværdier i de angivne celler, er der en kant med et trekantet ikon omkring de ændrede celler, se skærmbillede:

ændringer til doc monitor 3

Bemærk: Med denne metode bliver din projektmappe en delt projektmappe.


pil blå højre boble Overvåg celleændringer i Excel med VBA-kode

Følgende VBA-kode kan også hjælpe dig med at overvåge celleværdier, når de ændres, gør venligst som dette:

1. Højreklik på arkfanen, som du vil overvåge celleændringer, og vælg Vis kode fra genvejsmenuen i det åbnede Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende VBA-kode i modulet:

VBA-kode: Overvåg celleændringer i Excel-regneark:

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

ændringer til doc monitor 4

Bemærk: I ovenstående kode, A1: E7 er det dataområde, som du vil overvåge, hvis cellen ændres, kan du ændre det til dit behov.

2. Gem og luk derefter dette kodevindue, og når du ændrer celleværdien i det angivne interval, vises en meddelelsesboks for at minde dig om, se skærmbillede:

ændringer til doc monitor 5

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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