Hur anger man datum automatiskt när data matas in i en kolumn?
När du arbetar på ett kalkylblad vill du att det aktuella datumet och tiden ska matas in i en kolumn B automatiskt när du matar in data i kolumn A enligt följande skärmdump. Hur kan du försöka lösa detta jobb i Excel med en enkel och snabb lösning?
Ange datum automatiskt när data matas in i en kolumn med VBA-kod
Ange datum automatiskt när data matas in i en kolumn med VBA-kod
Kanske finns det inget direkt sätt för oss att hantera detta jobb i Excel, men följande VBA-kod kan hjälpa dig, gör så här:
1. Välj arkfliken som du vill infoga datum automatiskt, högerklicka sedan på det och välj Visa kod från textmenyn, sedan poppade in i eh Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i modulen:
VBA-kod: Ange datum automatiskt när du anger data i en annan kolumn:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
With Target(1, 2)
.Value = Date & " " & Time
.EntireColumn.AutoFit
End With
End If
End Sub
2. Spara och stäng sedan detta kodfönster, gå tillbaka till kalkylbladet, nu när du anger data i kolumn A kommer motsvarande cell i kolumn B automatiskt att ange aktuellt datum och tid på en gång.
Anmärkningar: I ovanstående kod, A2: A15 är de celler som du vill ange värden.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!