For eksempel, jeg har en rekke verdier, og nå, når jeg endre eller skriv nye verdier i kolonne B, jeg vil ha det vil automatisk registrere gjeldende dato og klokkeslett i kolonne C som følgende skjermbilde vist:
Du kan fullføre denne oppgaven med følgende VBA-kode. Vennligst gjør som dette:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Deretter velger du din brukte regnearket fra venstre Prosjekt Utforsker dobbeltklikk for å åpne modulen, og deretter kopiere og lime inn følgende VBA-kode i det tomme Module:
VBA-kode: Record dato og klokkeslett automatisk når celleforandringer
Privat Sub Worksheet_Change (ByVal Target As Range) 'Oppdater 20140722Dim WorkRng Som RangeDim RNG Som RangeDim xOffsetColumn Som IntegerSet WorkRng = Skjæring (Application.ActiveSheet.Range ("B: B"), Target) xOffsetColumn = 1Hvis Ikke WorkRng Er Ingenting Deretter Application.EnableEvents = False For Hver RNG I WorkRng Hvis ikke VBA.IsEmpty (Rng.Value) Deretter Rng.Offset (0, xOffsetColumn) .Value = Nå Rng.Offset (0, xOffsetColumn) .NumberFormat = "dd-mm-åååå, hh: mm: ss "Else Rng.Offset (0, xOffsetColumn) .ClearContents End If Neste Application.EnableEvents = TrueEnd IfEnd Sub
3. Deretter lagre og lukke denne koden for å gå tilbake til regnearket, nå når du endrer celleverdien eller skrive nye data i kolonne B, vil dato og klokkeslett registreres automatisk i kolonne C.
Merknader:
1. I koden ovenfor, kan du endre "B: B" til en annen kolonne som du ønsker å endre celleverdiene i dette skriptet: Set WorkRng = Skjæring (Application.ActiveSheet.Range ("B: B"), Target) .
2. Med denne xOffsetColumn = 1 skript, kan du sette inn og oppdatere dato og tid til den første kolonnen ved siden av skiftende verdi kolonnen, kan du endre nummeret 1 til andre tall, for eksempel 2,3,4,5 ... det betyr at dato vil bli satt inn i andre, tredje, fjerde eller femte kolonne foruten endret verdiene kolonnen.
3. Når du sletter en verdi i den endrede kolonnen, vil dato og klokkeslett bli fjernet. Anmeldelser