Přejít k hlavnímu obsahu

Jak sledovat změny buněk v aplikaci Excel?

Jak byste mohli sledovat buňky listu, pokud se data změní v aplikaci Excel? To vám může pomoci identifikovat změněné buňky co nejrychleji. V tomto článku budu hovořit o některých zajímavých metodách řešení tohoto úkolu v aplikaci Excel.

Monitorujte změny buněk v aplikaci Excel pomocí funkce Sledovat změny

Monitorujte změny buněk v aplikaci Excel pomocí kódu VBA


šipka modrá pravá bublina Monitorujte změny buněk v aplikaci Excel pomocí funkce Sledovat změny

Excel má užitečné Sledování změn Tato funkce vám pomůže označit změněné buňky, postupujte takto:

1, klikněte přezkoumání > Sledování změn > Zvýrazněte změny, viz screenshot:

změny monitoru doc ​​1

2. V Zvýrazněte změny dialogové okno, proveďte následující operace:

(1.) Zkontrolovat Sledujte změny během úprav. To také sdílí váš sešit.

(2.) Pod Zvýrazněte, které se mění V části určete položky Kdy, Kdo a Kde podle potřeby.

(3.) Nakonec zkontrolujte Zvýrazněte změny na obrazovce volba.

změny monitoru doc ​​2

3. Po dokončení nastavení klikněte na OK Tlačítko, nyní, když změníte jakékoli hodnoty buněk v určených buňkách, je kolem změněných buněk hranice s trojúhelníkovou ikonou, viz screenshot:

změny monitoru doc ​​3

Poznámka: Díky této metodě se váš sešit stane sdíleným sešitem.


šipka modrá pravá bublina Monitorujte změny buněk v aplikaci Excel pomocí kódu VBA

Následující kód VBA vám také pomůže sledovat hodnoty buněk, když se změní, proveďte toto:

1. Klikněte pravým tlačítkem na záložku listu, kterou chcete sledovat, aby se buňky změnily, a vyberte Zobrazit kód z kontextového menu v otevřeném Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte následující kód VBA do modulu:

Kód VBA: Monitorujte změny buněk v listu aplikace Excel:

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

změny monitoru doc ​​4

Poznámka: Ve výše uvedeném kódu A1: E7 je rozsah dat, který chcete sledovat, pokud se buňky změní, můžete jej podle potřeby změnit.

2. Poté uložte a zavřete toto okno s kódem a nyní, když změníte hodnotu buňky v zadaném rozsahu, zobrazí se okno se zprávou, které vám připomene, viz screenshot:

změny monitoru doc ​​5

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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