Hogyan figyelhető meg a cellaváltozások az Excelben?

Hogyan figyelhetné meg a munkalap celláit, ha az adatok megváltoznak az Excel programban? Ez segíthet a megváltozott cellák lehető leggyorsabb azonosításában. Ebben a cikkben néhány érdekes módszerről fogok beszélni ennek a feladatnak az Excelben történő kezelésére.

A cellák változásainak figyelése az Excelben a Változások követése funkcióval

Figyelje a cellák változását az Excelben VBA kóddal

A cellák változásainak figyelése az Excelben a Változások követése funkcióval

Az Excel hasznos Útvonal változások funkció, ez segíthet a megváltozott cellák megjelölésében, tegye a következőket:

1. Kattints Felülvizsgálat > Útvonal változások > Jelölje ki a Változások elemet, lásd a képernyőképet:

2. Az Jelölje ki a Változások elemet párbeszédpanelen hajtsa végre a következő műveleteket:

(1.) Ellenőrizze A módosítások nyomon követése szerkesztés közben. Ezzel megosztja a munkafüzetét is.

(2.) A Jelölje ki, melyik változik szakaszban adja meg a mikor, ki és hol elemeket, amire szüksége van.

(3.) Végül ellenőrizze Jelölje ki a változásokat a képernyőn opciót.

3. A beállítások elvégzése után kattintson a gombra OK gomb, most, ha megváltoztat bármely cellaértéket a megadott cellákban, háromszög alakú ikon szegély van a megváltozott cellák körül, lásd a képernyőképet:

Megjegyzések: Ezzel a módszerrel a munkafüzetből közös munkafüzet lesz.

Figyelje a cellák változását az Excelben VBA kóddal

A következő VBA-kód szintén segítséget nyújthat a cellák értékének figyelemmel kísérésében, ha azok megváltoznak, kérjük, tegye a következőket:

1. Kattintson a jobb gombbal a lapfülre, amelyen a cellaváltozásokat figyelni szeretné, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a megnyílt Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő VBA kódot a modulba:

VBA kód: A cellamódosítások figyelése az Excel munkalapon:

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

Jegyzet: A fenti kódban A1: E7 az az adattartomány, amelyet nyomon akar követni, ha a cella megváltozik, az igény szerint módosíthatja.

2. Ezután mentse el és zárja be ezt a kódablakot, és most, amikor megváltoztatja a cella értékét a megadott tartományban, megjelenik egy üzenetmező, amely emlékezteti Önt, lásd a képernyőképet: