Note: The other languages of the website are Google-translated. Back to English

Jak automaticky zadat datum při zadání dat do sloupce?

automatické datum dokumentu při zadávání dat 1

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


šipka modrá pravá bublina 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

automatické datum dokumentu při zadávání dat 2

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, zajímalo by mě, jestli existuje nějaký způsob, jak zadat datum do sloupce před daty, jako když zadám B, datum se objeví v A, a co je důležitější, jestli existuje nějaký způsob, jak použít kód na více sloupců najednou
Tento komentář byl moderátorem webu minimalizován
komentář étendre ce code VBA sur plusieurs colonnes en même temps ?

příklad spojení A -> B et F->G et m ->N

DÍKY
Tento komentář byl moderátorem webu minimalizován
Dobrý den, laurente

Chcete-li tento kód použít na více rozsahů, použijte níže uvedený kód:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tipy: Pokud chcete použít více rozsahů, stačí použít Or připojit se k tomu Not Intersect(Target, Range("A2:A15") skript. Změňte odkaz na buňku A2:A15 na jiný odkaz na rozsah.

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Merci pour ta réponse je l'essaye et je vous tiens au courant
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění