Als u bijhouden van de datum en tijd die iemand gegevens in een werkblad invoert wilt, wordt de beste manier om dit te bereiken in Excel is met een paar regels van Visual Basic for Applications-code. Wanneer iemand gegevens in een bereik van cellen die u opgeeft wijzigt, verschijnt een tijdstempel aan de rechterkant. U kunt de tijdstempels direct naast de cellen die u wilt controleren of twintig kolommen over plaatsen. Met behulp van deze code, weergave altijd van tijdstempels ergens aan de rechterkant.
Als u VBA-code eerder nog nooit hebt gebruikt, laat dit intimideren u niet. Als u kunt kopiëren en plakken, kunt u deze code vrij gemakkelijk.
Stap 1
Onderzoeken van het werkblad en bepalen welke cellen u wilt hebben tijdstempel en waar de tijdstempels moeten worden weergegeven. De weergave van tijdstempels kunnen op elke kolom die u aan de rechterkant van de gegevens. Als de gegevens betrekking hebben op twee of meer kolommen, zo zal de tijdstempels. Tellen hoeveel kolommen over de tijdstempels moeten worden weergegeven. Dit is van de kolom Target Offset nummer.
In dit voorbeeld, wij willen tijdstempels worden weergegeven in kolom D, wanneer gegevens worden ingevoerd in kolom B, zodat het bereik zal worden B:B en het nummer van de Target gecompenseerd zullen 2 wanneer we de VBA-code invoert.
Stap 2
Met de rechtermuisknop op de tab van het blad onder het werkblad. Programmacode weergeven te openen in het Visual Basic for Applications, of VBA editorvenster selecteren.
Stap 3
Klik op het witte veld in het werkbladvenster bevindt. Als uw werkblad blad 1, bijvoorbeeld, zal het zeggen "Blad 1" in de titelbalk. Als er meer dan één blad in de werkmap is, of als u meerdere werkmappen openen, ziet u extra vensters binnen de VBA-editor.
Stap 4
De volgende drie regels code Kopieer en plak ze in de VBA-editor:
_Private sub WorksheetChange (ByVal Target As Range)
Als Target.Cells.Count > 1 of IsEmpty(Target) sluit Sub
Zoniet snijden (Target, Range ("a:, B:B")) Is niets dan
Stap 5
Vervang a:, B:B in de laatste coderegel door de kolommen of cellen waarnaar u tijdstempel. Een gehele kolom typt u de kolomletter tweemaal, met een dubbele punt tussen. A: is bijvoorbeeld aller kolom A.
Geef als u afzonderlijke cellen, de celcoördinaten, elk met een komma scheiden. In het voorbeeld hier, we opgegeven kolom B als B:B, maar we kunnen hebt opgegeven dat alleen de vier cellen die moeten worden bijgehouden, die zou B2, B4, B5, B6.
Stap 6
Kopieer en plak deze vier regels code in de VBA-editor onder de code die er al:
On Error Resume Next
Application.EnableEvents = False
Target.Offset(, 1) = nu
Target.Offset(, 1). EntireColumn.AutoFit
Stap 7
De nummer 1 in de laatste twee coderegels wordt vervangen door het nummer van Target gecompenseerd voor uw werkblad. In de screenshot gebruikten we een offset van 2. Merk op dat er een spatie tussen de komma en het aantal moet worden.
Stap 8
Kopieer en plak deze laatste vier regels code in de VBA-editor onder de code die er al:
Application.EnableEvents = True
Op Error GoTo 0
End If
End Sub
Stap 9
Klik op de X in de rechter bovenhoek om de VBA-Editor te sluiten. De code wordt automatisch opgeslagen.
Stap 10
Typ iets in een van de gegevenscellen van uw. Een tijdstempel wordt weergegeven in de kolom aan de rechterkant. In het voorbeeld hier, er rekening mee dat Bob en Phil gegevens ingevoerd op hetzelfde moment. Carol haar gegevens een minuut later toegevoegd en Brandy toegevoegd Hare 26 minuten na Carol.
Stap 11
Klik op het tabblad bestand en kies Opslaan als. Wijzig het bestandstype in het menu Opslaan als Type in navigatie venster * Excel-werkmap (.xlsm) **.
WaarschuwingTelkens wanneer die u de werkmap opent, zal een bericht verschijnen boven het werkblad met de waarschuwing dat macro's zijn uitgeschakeld. Klik op de knop inschakelen om te activeren uw VBA-code.
