Hoe cellenwijzigingen in Excel te monitoren?

Hoe zou je de cellen van een werkblad kunnen monitoren als de gegevens in Excel worden gewijzigd? Dit kan je helpen om de gewijzigde cellen zo snel mogelijk te identificeren. In dit artikel zal ik het hebben over enkele interessante methoden om deze taak in Excel aan te pakken.

Cellenwijzigingen in Excel monitoren met de functie Wijzigingen bijhouden

Cellenwijzigingen in Excel monitoren met VBA-code

Cellenwijzigingen in Excel monitoren met de functie Wijzigingen bijhouden

Excel heeft een handige functie Wijzigingen bijhouden, die je kan helpen om de gewijzigde cellen te markeren. Volg de volgende stappen:

1. Klik op Beoordelen > Wijzigingen bijhouden > Wijzigingen markeren, zie onderstaande schermafbeelding:

2. Voer in het dialoogvenster Wijzigingen markeren de volgende acties uit:

(1.) Schakel Wijzigingen bijhouden tijdens het bewerken in. Dit deelt ook uw werkboek.

(2.) Onder de sectie Welke wijzigingen markeren, specificeert u de opties Wanneer, Wie en Waar zoals u nodig hebt.

(3.) Tot slot vinkt u de optie Wijzigingen op het scherm markeren aan.

3. Nadat u de instellingen hebt voltooid, klikt u op de knop OK. Nu, wanneer u een celwaarde in de gespecificeerde cellen wijzigt, verschijnt er een rand met een driehoekig pictogram rond de gewijzigde cellen, zie onderstaande schermafbeelding:

Opmerking: Met deze methode wordt uw werkboek een gedeeld werkboek.

Cellenwijzigingen in Excel monitoren met VBA-code

De volgende VBA-code kan u ook helpen om celwaarden te monitoren wanneer ze worden gewijzigd. Volg deze stappen:

1. Klik met de rechtermuisknop op het tabblad van het werkblad waarvan u celwijzigingen wilt monitoren en kies Broncode weergeven in het contextmenu. Kopieer en plak in het geopende venster Microsoft Visual Basic for Applications de volgende VBA-code in de Module:

VBA-code: Cellenwijzigingen in Excel-werkblad monitoren:

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

Opmerking: In de bovenstaande code is A1:E7 het gegevensbereik dat u wilt monitoren op celwijzigingen. U kunt dit naar behoefte wijzigen.

2. Sla daarna dit codevenster op en sluit het. Nu, wanneer u de celwaarde in het gespecificeerde bereik wijzigt, verschijnt er een pop-upbericht om u te waarschuwen, zie onderstaande schermafbeelding: