Preskoči na glavno vsebino

Kako spremljati spremembe celic v Excelu?

Kako lahko nadzirate celice delovnega lista, če se podatki spremenijo v Excelu? To vam lahko pomaga, da spremenite spremenjene celice, kakor hitro je mogoče. V tem članku bom govoril o nekaterih zanimivih metodah za reševanje te naloge v Excelu.

Spremljajte spremembe celic v Excelu s funkcijo Track Changes

Spremembe sprememb celic v Excelu s kodo VBA


puščica modri desni mehurček Spremljajte spremembe celic v Excelu s funkcijo Track Changes

Excel ima uporabno Sledi spremembam funkcija, vam lahko pomaga označiti spremenjene celice, naredite naslednje:

1. Kliknite pregled > Sledi spremembam > Označite spremembe, glej posnetek zaslona:

spremembe doc monitorja 1

2. v Označite spremembe v pogovornem oknu izvedite naslednje postopke:

(1.) Preverite Spremljajte spremembe med urejanjem. S tem si delite tudi svoj delovni zvezek.

(2.) Pod Označite, katere spremembe se spremenijo v razdelku določite elemente Kdaj, Kdo in Kje, kot jih potrebujete.

(3.) Končno preverite Označite spremembe na zaslonu možnost.

spremembe doc monitorja 2

3. Po končanih nastavitvah kliknite OK , ko spremenite katere koli vrednosti celic v določenih celicah, je okoli spremenjenih celic obroba s trikotno ikono, glejte posnetek zaslona:

spremembe doc monitorja 3

Opombe: S to metodo bo vaš delovni zvezek postal deljeni delovni zvezek.


puščica modri desni mehurček Spremembe sprememb celic v Excelu s kodo VBA

Naslednja koda VBA vam lahko pomaga tudi pri spremljanju vrednosti celic, ko se spremenijo, naredite naslednje:

1. Z desno miškino tipko kliknite zavihek lista, na katerem želite spremljati spremembe celic, in izberite Ogled kode iz kontekstnega menija v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v modul:

Koda VBA: Spremljanje sprememb celic na Excelovem delovnem listu:

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

spremembe doc monitorja 4

Opomba: V zgornji kodi je A1: E7 je obseg podatkov, ki ga želite nadzirati, če se celica spremeni, ga lahko spremenite po svoji potrebi.

2. Nato shranite in zaprite to okensko okno in zdaj, ko spremenite vrednost celice v določenem obsegu, se prikaže sporočilo, ki vas opomni, glejte posnetek zaslona:

spremembe doc monitorja 5

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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