INHOUDSOPGAWE
Hierdie artikel illustreer hoe om tydstempel in Excel wanneer 'n sel verander. Jy sal dalk rekord moet hou van data-inskrywings in die selle van 'n spesifieke kolom. Byvoorbeeld, jy het kolom B gereserveer om data in te voer. Nou wil jy die tydstempel in 'n aangrensende sel in kolom C hê wanneer 'n sel in kolom B opgedateer word. Hierdie artikel sal jou help om dit op 2 effektiewe maniere te doen.
Laai Oefenwerkboek af
Jy kan die oefenwerkboek aflaai vanaf die aflaai-knoppie hieronder.
Tydstempel in Excel.xlsm
2 maniere om tydstempel in Excel in te voeg wanneer sel verander
1. Gebruik IF, AND, NOW en ander funksies om Tydstempel in Excel in te voeg
Volg die stappe hieronder om 'n tydstempel te kry deur formules te gebruik wanneer 'n sel verander.
📌 Stappe
- Druk eers ALT+F+T om Excel-opsies oop te maak. Gaan dan na die Formules -oortjie. Merk dan die Aktiveer iteratiewe berekening -merkblokkie. Stel dan die Maksimum Iterasies na 1. Daarna, klik OK.
- Voer nou die volgende formule in die sel in C5 . Sleep dan die Vulhandvatsel -ikoon om die formule na die selle hieronder te kopieer.
=IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5))
- Voer dan die volgende formule in sel D5 in. Sleep dan die Vulhandvatsel -ikoon na die selle hieronder soos vroeër.
=IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5))
- Begin nou waardes in die selle in kolom B in te voer.Daarna sal jy die volgende resultaat kry. Hier is kolom D 'n helperkolom. Jy kan dit wegsteek deur regs te klik nadat jy die kolom gekies het.
- Alternatiewelik kan jy net die volgende formule in sel C5
om dieselfde resultaat te kry.
=IF(B5"",IF(C5="",NOW(),C5),"")
- Jy sal dalk die formatering van die selle in kolom C . Kies die kolom deur op die kolomnommer boaan te klik. Druk dan CTRL+1 om die Format selle dialoogkassie oop te maak. Klik nou op die Custom nommerformaat. Voer vervolgens d-mmm-jjjj uu:mm:ss AM/PM in die Tipe -veld in. Klik ten slotte OK.
Formule-uiteensetting:
Formule in sel C5:
➤ IF(B5=””,””,C5))
Die IF-funksie gee niks terug as sel B5 is leeg. Andersins, gee dieselfde waarde terug wat in C5 gestoor is.
➤ NOW()
Die NOU-funksie gee die huidige terug datum en tyd.
➤ AND(B5””,D5B5)
Die AND-funksie gee WAAR as beide argumente is waar, dit wil sê sel B5 is nie leeg nie en selle B5 en D5 het nie dieselfde waarde nie.
➤ IF(AND(B5””,D5B5),NOW(),IF(B5=””,””,C5))
As die EN-funksie gee WAAR terug, dan gee die IF-funksie die huidige datum en tyd wat verkry is van die NOU-funksie . Andersins gee dit die resultaat terugverkry uit die argument wat die IF-funksie bevat.
Formule in Sel D5:
➤ ISNUMBER(D5)
Die ISNUMBER-funksie gee WAAR terug as sel D5 'n getal bevat. Andersins gee dit Onwaar terug.
➤ AND(ISNUMBER(D5),B5=D5)
Die AND-funksie gee WAAR as sel D5 'n getal bevat en selle B5 en D5 het dieselfde waarde. Dit gee andersins ONWAAR terug.
➤ OF(C5=””,EN(ISNUMMER(D5),B5=D5))
Die OF-funksie gee WAAR as enige een van die argumente waar is, maw sel C5 is leeg of die EN-funksie gee WAAR . Dit gee ONWAAR terug as al die argumente onwaar is.
➤ IF(OF(C5=””,EN(IS GETAL(D5),B5=D5)),D5 ,B5)
Die IF-funksie gee dieselfde waarde terug wat in sel D5 gestoor is as die OF-funksie WAAR terugstuur . Andersins gee dit die waarde van sel B5 .
➤ IF(B5=””,””,IF(OF(C5=””,EN(ISNUMBER(D5) ),B5=D5)),D5,B5))
Die IF-funksie gee niks terug as sel B5 leeg is. Andersins gee dit die resultaat wat verkry is van die argument wat die IF-funksie bevat.
Lees meer: Hoe om Excel-tydstempel in te voeg wanneer sel verander sonder VBA (3 maniere)
Soortgelyke lesings
- Hoe om statiese datum in Excel in te voeg (4 eenvoudige metodes)
- Excel VBA: Voeg tydstempel inWanneer 'n makro uitgevoer word
- Hoe om Excel-datumstempel in te voeg wanneer selle in ry gewysig word
- Skakel Unix-tydstempel na datum in Excel (3) Metodes)
2. Pas VBA-kode toe om Tydstempel in Excel in te voeg wanneer sel verander
Jy kan ook 'n tydstempel in Excel kry wanneer 'n sel verander met VBA. Volg die stappe hieronder om dit te kan doen.
📌 Stappe
- Klik eers met die rechtermuisknop op die teikenwerkblad-oortjie. Kies dan Bekyk kode . Dit sal die kodemodule vir daardie spesifieke werkblad oopmaak.
- Kopieer dan die volgende kode deur die kopieerknoppie in die regter boonste hoek te gebruik.
3511
- Daarna, plak die gekopieerde kode op die leë module soos hieronder getoon.
- Volgende, stoor die dokument as 'n makro-geaktiveerde werkboek . Begin nou data in die selle in kolom B in te voer. Dan sal jy dieselfde resultate kry as vroeër.
VBA Kode Verduideliking:
Privaat Sub Werkblad_Verander (ByVal Target As Range)
Dim CellCol, TimeCol, Row, Col As Heelgetal
Dim DpRng, Rng As Range
Verklaar noodsaaklike veranderlikes.
CellCol = 2
Data-invoer kolom.
TimeCol = 3
Tydstempelkolom.
Ry = Target.Row
Kol = Doel.Kolom
Stoor die ry- en kolomnommers van die geselekteerde sel.
Indien Ry <= 4 Verlaat danSub
Enige veranderinge binne die boonste 4 rye sal nie 'n tydstempel skep nie.
Tydstempel = Formaat(Nou, "DD-MM-JJJJ UU:MM:SS AM/PM”)
Die tydstempel sal op hierdie manier geformateer word. Verander dit soos vereis.
As Target.Text “” Then
If Col = CellCol Then
Cells(Row, TimeCol) = Tydstempel
Skep 'n tydstempel as die geselekteerde sel leeg is.
Op fout Hervat Volgende
Ignoreer enige fout as dit voorkom.
Stel DpRng = Target.Dependents
Vir elke Rng In DpRng
As Rng.Column = CellCol Then
Cells(Rng.Row, TimeCol) = Tydstempel
Skep tydstempels vir 'n reeks selle indien nie leeg nie.
Lees meer: Hoe om tydstempeldata-inskrywings outomaties in Excel in te voeg (5 metodes)
Dinge om te onthou
- Jy moet 'n pasgemaakte gebruik formateer vir die selle in kolom B om 'n behoorlik geformateerde tydstempel te kry.
- Die alternatiewe formule werk net wanneer data in leë selle ingevoer word.
- Hier is die data-invoer en die tydstempelkolom moeilik gekodeer in die VBA-kode. Jy moet die kode verander op grond van jou datastel.
Gevolgtrekking
Nou weet jy hoe om tydstempel in Excel wanneer 'n sel verander. Het jy enige verdere navrae of voorstelle? Gebruik asseblief die kommentaarafdeling hieronder daarvoor. Jy kan ook ons ExcelWIKI -blog besoek om meer oor Excel te verken. Bly by ons en hou aan om te leer.