Przejdź do głównej zawartości

Jak monitorować zmiany komórek w programie Excel?

Jak możesz monitorować komórki arkusza, jeśli dane zostaną zmienione w programie Excel? Może to pomóc w jak najszybszym zidentyfikowaniu zmienionych komórek. W tym artykule omówię kilka interesujących metod radzenia sobie z tym zadaniem w programie Excel.

Monitoruj zmiany komórek w programie Excel za pomocą funkcji śledzenia zmian

Monitoruj zmiany komórek w programie Excel za pomocą kodu VBA


strzałka niebieski prawy bąbelek Monitoruj zmiany komórek w programie Excel za pomocą funkcji śledzenia zmian

Excel ma przydatne Śledzenie zmian funkcja, może pomóc ci zaznaczyć zmienione komórki, wykonaj następujące czynności:

1. Kliknij Review > Śledzenie zmian > Podświetl zmianyzobacz zrzut ekranu:

Doc monitor zmiany 1

2, w Podświetl zmiany w oknie dialogowym wykonaj następujące operacje:

(1.) Sprawdź Śledź zmiany podczas edycji. To również udostępnia Twój skoroszyt.

(2.) Pod Zaznacz, które zmiany w sekcji, określ kiedy, kto i gdzie potrzebujesz.

(3.) W końcu sprawdź Wyróżnij zmiany na ekranie opcja.

Doc monitor zmiany 2

3. Po zakończeniu ustawień kliknij OK przycisk, teraz, gdy zmienisz jakiekolwiek wartości komórek w określonych komórkach, wokół zmienionych komórek pojawi się ramka z trójkątną ikoną, patrz zrzut ekranu:

Doc monitor zmiany 3

Note: Dzięki tej metodzie skoroszyt stanie się skoroszytem współdzielonym.


strzałka niebieski prawy bąbelek Monitoruj zmiany komórek w programie Excel za pomocą kodu VBA

Poniższy kod VBA może również pomóc w monitorowaniu wartości komórek, gdy są zmieniane, wykonaj następujące czynności:

1. Kliknij prawym przyciskiem myszy kartę arkusza, którą chcesz monitorować zmiany komórek, i wybierz Wyświetl kod z menu kontekstowego w otwartym pliku Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod VBA do modułu:

Kod VBA: Monitoruj zmiany komórek w arkuszu programu 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

Doc monitor zmiany 4

Uwaga: W powyższym kodzie A1: E7 to zakres danych, który chcesz monitorować w przypadku zmiany komórki, możesz go zmienić w zależności od potrzeb.

2. Następnie zapisz i zamknij to okno kodu, a teraz, gdy zmienisz wartość komórki w określonym zakresie, pojawi się okno komunikatu przypominające, zobacz zrzut ekranu:

Doc monitor zmiany 5

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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