Jak automaticky zadat datum při zadání dat do sloupce?
Při práci na listu chcete, aby se aktuální datum a čas zadávaly do sloupce B automaticky při zadávání dat do sloupce A, jak ukazuje následující snímek obrazovky. Jak byste se v aplikaci Excel mohli pokusit vyřešit tuto práci jednoduchým a rychlým řešením?
Automaticky zadejte datum, když jsou data zadána do sloupce s kódem VBA
Automaticky zadejte datum, když jsou data zadána do sloupce s kódem VBA
Možná pro nás neexistuje žádný přímý způsob řešení této úlohy v aplikaci Excel, ale následující kód VBA vám může pomoci, postupujte takto:
1. Vyberte kartu listu, do které chcete automaticky vložit datum, klepněte na ni pravým tlačítkem a vyberte Zobrazit kód z textové nabídky, pak eh vyskočil Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte následující kód do modulu:
Kód VBA: Automaticky zadejte datum při zadávání údajů do jiného sloupce:
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. Poté uložte a zavřete toto okno s kódem, vraťte se do listu, nyní, když zadáte data do sloupce A, odpovídající buňka ve sloupci B automaticky zadá aktuální datum a čas najednou.
Poznámka: Ve výše uvedeném kódu, A2: A15 jsou buňky, do kterých chcete zadat hodnoty.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
