V tomto článku je znázornené, ako v programe Excel pri zmene bunky označiť časovú pečiatku. Možno budete potrebovať sledovať vstupy údajov v bunkách určitého stĺpca. Napríklad ste na zadávanie údajov vyhradili stĺpec B. Teraz chcete, aby sa časová pečiatka v susednej bunke v stĺpci C zobrazovala, keď sa aktualizuje bunka v stĺpci B. Tento článok vám pomôže urobiť to 2 účinnými spôsobmi.

Stiahnite si cvičebnicu

Cvičebnicu si môžete stiahnuť z nižšie uvedeného tlačidla na stiahnutie.

2 spôsoby vloženia časovej značky v programe Excel pri zmene bunky

1. Použitie funkcií IF, AND, NOW a ďalších na vloženie časovej pečiatky v programe Excel

Ak chcete získať časovú pečiatku pomocou vzorcov pri zmene bunky, postupujte podľa nasledujúcich krokov.

📌 Kroky

• Prvá tlač ALT+F+T otvoriť Možnosti aplikácie Excel Potom prejdite na Vzorce Ďalej skontrolujte kartu Povolenie iteračného výpočtu potom nastavte políčko Maximálny počet iterácií na 1. Potom kliknite na tlačidlo OK.

• Teraz zadajte do bunky nasledujúci vzorec C5 Potom potiahnite Rukoväť náplne a skopírujte vzorec do buniek pod ním.

• Potom do bunky zadajte nasledujúci vzorec D5 . Ďalej potiahnite Rukoväť náplne ikonu do buniek nižšie ako predtým.

• Teraz začnite zadávať hodnoty do buniek v stĺpec B Potom sa zobrazí nasledujúci výsledok. Tu, stĺpec D je pomocný stĺpec. Môžete ho skryť kliknutím pravým tlačidlom myši po výbere stĺpca.

• Prípadne môžete do bunky jednoducho zadať nasledujúci vzorec C5 aby ste dosiahli rovnaký výsledok.

• Možno bude potrebné zmeniť formátovanie buniek v stĺpec C . Vyberte stĺpec kliknutím na číslo stĺpca v hornej časti. Potom stlačte tlačidlo CTRL+1 otvoriť Formátovanie buniek Teraz kliknite na Vlastné formát čísla. Ďalej zadajte d-mmm-yyyy hh:mm:ss AM/PM v Typ Nakoniec kliknite na tlačidlo OK.

Rozdelenie vzorca:

Vzorec v bunke C5:

➤ IF(B5="","",C5))

Stránka Funkcia IF nevráti nič, ak bunka B5 je prázdna. V opačnom prípade vráti rovnakú hodnotu uloženú v C5 .

➤ NOW()

Stránka Funkcia NOW vráti aktuálny dátum a čas.

➤ A(B5"",D5B5)

Stránka Funkcia AND vráti TRUE ak sú oba argumenty pravdivé, t. j. bunka B5 nie je prázdna a bunky B5 a D5 nemajú rovnakú hodnotu.

➤ IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5))

Ak sa Funkcia AND vráti TRUE , potom Funkcia IF vráti aktuálny dátum a čas získaný z Funkcia NOW V opačnom prípade vráti výsledok získaný z argumentu obsahujúceho Funkcia IF .

Vzorec v bunke D5:

➤ ISNUMBER(D5)

Stránka Funkcia ISNUMBER vráti TRUE ak bunka D5 v opačnom prípade vráti False .

➤ A(ISNUMBER(D5),B5=D5)

Stránka Funkcia AND vráti TRUE ak bunka D5 obsahuje číslo a bunky B5 a D5 majú rovnakú hodnotu. Vracia FALSE v opačnom prípade.

➤ OR(C5="",AND(ISNUMBER(D5),B5=D5))

Stránka Funkcia OR vráti TRUE ak je niektorý z argumentov pravdivý, t. j. bunka C5 je prázdna alebo Funkcia AND vráti TRUE . Vracia sa FALSE ak sú všetky argumenty false.

➤ IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5)

Stránka Funkcia IF vráti rovnakú hodnotu uloženú v bunke D5 ak Funkcia OR vráti TRUE . V opačnom prípade vráti hodnotu bunky B5 .

➤ IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5))

Stránka Funkcia IF nevráti nič, ak bunka B5 je prázdny. V opačnom prípade vráti výsledok získaný z argumentu obsahujúceho Funkcia IF .

Prečítajte si viac: Ako vložiť časovú pečiatku programu Excel pri zmene bunky bez VBA (3 spôsoby)

Podobné čítania

• Ako vložiť statický dátum v programe Excel (4 jednoduché metódy)
• Excel VBA: Vloženie časovej značky pri spustení makra
• Ako vložiť dátumovú pečiatku programu Excel pri zmene buniek v riadku
• Prevod časovej značky Unix na dátum v programe Excel (3 metódy)

2. Použitie kódu VBA na vloženie časovej pečiatky v programe Excel pri zmene bunky

Časovú pečiatku v programe Excel môžete získať aj pri zmene bunky pomocou VBA. Ak to chcete urobiť, postupujte podľa nasledujúcich krokov.

📌 Kroky

• Najprv kliknite pravým tlačidlom myši na kartu cieľového hárka. Potom vyberte Zobraziť kód . Tým sa otvorí modul kódu pre daný pracovný hárok.

• Potom skopírujte nasledujúci kód pomocou tlačidla Kopírovať v pravom hornom rohu.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim CellCol, TimeCol, Row, Col As Integer Dim DpRng, Rng As Range CellCol = 2 TimeCol = 3 Row = Target.Row Col = Target.Column If Row <= 4 Then Exit Sub Timestamp = Format(Now, "DD-MM-YYYY HH:MM:SS AM/PM") If Target.Text "" Then If Col = CellCol Then Cells(Row, TimeCol) = Timestamp Else On Error Resume Next Set DpRng = Target.Dependents ForEach Rng In DpRng If Rng.Column = CellCol Then Cells(Rng.Row, TimeCol) = Timestamp End If Next End If End If End Sub 

• Potom skopírovaný kód vložte do prázdneho modulu, ako je znázornené nižšie.

• Potom uložte dokument ako zošit s povolenými makrami Teraz začnite zadávať údaje do buniek v stĺpci B. Potom dostanete rovnaké výsledky ako predtým.

Vysvetlenie kódu VBA:

Súkromný Sub Worksheet_Change(ByVal Target As Range)

Dim CellCol, TimeCol, Row, Col As Integer

Dim DpRng, Rng ako rozsah

Deklarovanie potrebných premenných.

CellCol = 2

Stĺpec na zadávanie údajov.

TimeCol = 3

Stĺpec časovej pečiatky.

Riadok = Target.Row

Col = Target.Column

Uloženie čísla riadku a stĺpca vybranej bunky.

Ak Riadok <= 4 Potom Exit Sub

Akékoľvek zmeny v horných 4 riadkoch nevytvoria časovú pečiatku.

Časová značka = Format(Now, "DD-MM-RRRR HH:MM:SS AM/PM")

Časová značka bude formátovaná týmto spôsobom. Zmeňte ju podľa potreby.

Ak Target.Text "" Potom

Ak Col = CellCol potom

Cells(Row, TimeCol) = Časová značka

Vytvorenie časovej značky, ak je vybraná bunka prázdna.

Pri chybe pokračovať ďalej

Ignoruje akúkoľvek chybu, ak sa vyskytne.

Set DpRng = Target.Dependents

Pre každý Rng v DpRng

Ak Rng.Column = CellCol Potom

Cells(Rng.Row, TimeCol) = Časová značka

Vytvorenie časových značiek pre rozsah buniek, ak nie sú prázdne.

Čítajte viac: Ako automaticky vkladať časové pečiatky do aplikácie Excel (5 metód)

Čo si treba zapamätať

• Ak chcete získať správne naformátovanú časovú pečiatku, musíte pre bunky v stĺpci B použiť vlastný formát.
• Alternatívny vzorec funguje len vtedy, keď sú údaje zadané do prázdnych buniek.
• V tomto prípade je v kóde VBA pevne zakódované zadávanie údajov a stĺpec časovej pečiatky. Kód musíte upraviť na základe vašej sady údajov.

Záver

Teraz už viete, ako v programe Excel označiť časovú pečiatku pri zmene bunky. Máte ďalšie otázky alebo návrhy? Použite na to sekciu komentárov nižšie. Môžete tiež navštíviť našu ExcelWIKI blog a dozviete sa viac o programe Excel. Zostaňte s nami a učte sa ďalej.