Hoe de huidige tijdstempel invoegen wanneer gegevens in een andere cel in Excel veranderen?
Stel dat u een werkblad ontvangt waarin u gegevens in een bepaalde kolom moet wijzigen. En nadat u het werkblad hebt gewijzigd, moet u het gewijzigde tijdstempel invoegen om anderen te laten weten welke cellen zijn gewijzigd. Hoe ga je ermee om? Dit artikel laat u zien hoe u het huidige tijdstempel invoegt wanneer gegevens in een andere cel in Excel veranderen, zoals onderstaand screenshot.
Voeg het huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code
Voeg het huidige tijdstempel in wanneer gegevens in een andere cel veranderen met VBA-code
Zoals onderstaand screenshot laat zien, moet u het tijdstempel in kolom E invullen als de overeenkomstige cellen in kolom C worden gewijzigd. Ga als volgt te werk.
1. In het werkblad dat u moet wijzigen en markeren met tijdstempel, klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het Code venster van de Microsoft Visual Basic voor toepassingen venster. Zie screenshot:
VBA-code: voeg de huidige tijdstempel in wanneer gegevens in een andere cel veranderen
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
Opmerking:: In de code betekent nummer 3 dat u gegevens in kolom C gaat wijzigen, en 5 geeft aan dat het tijdstempel wordt ingevuld in kolom E. Wijzig deze op basis van uw behoeften.
3. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
Vanaf nu wordt bij het wijzigen van gegevens in kolom C het tijdstempel ingevuld in de overeenkomstige cellen in kolom E, zoals onderstaand screenshot.
Tip. Datumkiezer. De Datum invoegen nut van Kutools for Excel helpt u om snel een datum met een opgegeven datumnotatie in een geselecteerde cel in te voegen.
Download en probeer het nu! (30-dag vrij parcours)
Gerelateerde artikelen:
- Hoe het laatst opgeslagen tijdstempel op een werkblad in Excel in te voegen of weer te geven?
- Hoe voeg ik een tijdstempel in een specifieke cel in wanneer de macro in Excel wordt uitgevoerd?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!















