Comment insérer l'horodatage actuel lorsque les données d'une autre cellule changent dans Excel?

Supposons que vous receviez une feuille de calcul qui nécessite que vous modifiiez les données dans une certaine colonne. Et après avoir modifié la feuille de calcul, vous devez insérer l'horodatage modifié pour indiquer aux autres quelles cellules ont été modifiées. Comment y faire face? Cet article vous montrera la méthode d'insertion de l'horodatage actuel lorsque les données d'une autre cellule changent dans Excel, comme illustré ci-dessous.

Insérer l'horodatage actuel lorsque les données d'une autre cellule changent avec le code VBA

Insérer l'horodatage actuel lorsque les données d'une autre cellule changent avec le code VBA

Comme illustré ci-dessous, vous devez renseigner l'horodatage dans la colonne E si les cellules correspondantes de la colonne C sont modifiées. Veuillez faire comme suit.

1. Dans la feuille de calcul, vous devez modifier et marquer avec horodatage, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Voir le code dans le menu contextuel.

2. Ensuite, copiez et collez le code VBA ci-dessous dans le Code fenêtre de la Microsoft Visual Basic pour applications la fenêtre. Voir la capture d'écran:

Code VBA: insérer l'horodatage actuel lorsque les données d'une autre cellule changent

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

Notes: Dans le code, le numéro 3 signifie que vous allez modifier les données de la colonne C, et 5 indique que l'horodatage sera renseigné dans la colonne E. Veuillez les modifier en fonction de vos besoins.

3. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, lors de la modification des données dans la colonne C, l'horodatage sera renseigné dans les cellules correspondantes de la colonne E, comme illustré ci-dessous.

Articles connexes:

• Comment insérer ou afficher le dernier horodatage enregistré sur une feuille de calcul dans Excel?
• Comment insérer un horodatage dans une cellule spécifique lorsque la macro est exécutée dans Excel?