Змест
У гэтым артыкуле паказана, як паставіць пазнаку часу ў Excel пры змене ячэйкі. Вам можа спатрэбіцца адсочваць запісы дадзеных у ячэйках пэўнага слупка. Напрыклад, вы зарэзервавалі слупок B для ўводу даных. Цяпер вам патрэбна пазнака часу ў суседняй ячэйцы ў слупку C, калі ячэйка абнаўляецца ў слупку B. Гэты артыкул дапаможа вам зрабіць гэта 2 эфектыўнымі спосабамі.
Спампуйце трэніровачны сшытак
Вы можна загрузіць вучэбны сшытак з кнопкі загрузкі ніжэй.
2 спосабу ўставіць метку часу ў Excel пры змене ячэйкі
1. Выкарыстоўвайце IF, AND, NOW і іншыя функцыі, каб уставіць метку часу ў Excel
Выканайце наступныя дзеянні, каб атрымаць метку часу з дапамогай формул пры змене ячэйкі.
📌 Крокі
- Спачатку націсніце ALT+F+T , каб адкрыць Параметры Excel . Затым перайдзіце на ўкладку Формулы . Затым пастаўце галачку ў полі Уключыць ітэрацыйныя вылічэнні . Затым усталюйце для Максімальная колькасць ітэрацый значэнне 1. Пасля гэтага націсніце OK.
- Цяпер увядзіце наступную формулу ў ячэйку C5 . Затым перацягніце значок Маркер запаўнення , каб скапіяваць формулу ў ячэйкі ніжэй.
=IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5))
- Затым увядзіце наступную формулу ў ячэйку D5 . Затым перацягніце значок Запаўненне ў ячэйкі ніжэй, як і раней.
=IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5))
- Цяпер пачніце ўводзіць значэнні ў ячэйкі слупка B .Пасля гэтага вы атрымаеце наступны вынік. Тут слупок D з'яўляецца дапаможным слупком. Вы можаце схаваць яго, пстрыкнуўшы правай кнопкай мышы пасля выбару слупка.
- У якасці альтэрнатывы вы можаце проста ўвесці наступную формулу ў ячэйку C5 , каб атрымаць той самы вынік.
=IF(B5"",IF(C5="",NOW(),C5),"")
- Вам можа спатрэбіцца змяніць фарматаванне клеткі ў слупку C . Выберыце слупок, націснуўшы нумар слупка ўверсе. Затым націсніце CTRL+1 , каб адкрыць дыялогавае акно Фарматаваць вочкі . Цяпер націсніце на Custom фармат ліку. Затым увядзіце d-mmm-yyyy hh:mm:ss AM/PM у поле Type . Нарэшце націсніце OK.
Разбіўка формул:
Формула ў ячэйцы C5:
➤ IF(B5=””,””,C5))
Функцыя IF нічога не вяртае, калі ячэйка B5 пусты. У адваротным выпадку вяртае тое самае значэнне, якое захоўваецца ў C5 .
➤ NOW()
Функцыя NOW вяртае бягучы дата і час.
➤ AND(B5””,D5B5)
Функцыя AND вяртае TRUE , калі абодва аргументы праўдзівыя, гэта значыць ячэйка B5 не пустая і вочкі B5 і D5 не маюць аднолькавага значэння.
➤ КАЛІ(І(B5””,D5B5),ЗАРАЗ(),КАЛІ(B5=””,””,C5))
Калі функцыя І вяртае TRUE , затым функцыя IF вяртае бягучую дату і час, атрыманыя з функцыі NOW . У адваротным выпадку ён вяртае вынікатрыманы з аргумента, які змяшчае функцыю КАЛІ .
Формула ў ячэйцы D5:
➤ ISNUMBER(D5)
Функцыя ISNUMBER вяртае TRUE , калі ячэйка D5 змяшчае лік. У адваротным выпадку ён вяртае False .
➤ AND(ISNUMBER(D5),B5=D5)
Функцыя AND вяртае TRUE , калі ячэйка D5 змяшчае лік, а ячэйкі B5 і D5 маюць аднолькавае значэнне. Ён вяртае FALSE у адваротным выпадку.
➤ OR(C5=””,AND(ISNUMBER(D5),B5=D5))
The Функцыя OR вяртае TRUE , калі любы з аргументаў праўдзівы, напрыклад, ячэйка C5 пустая або функцыя AND вяртае TRUE . Ён вяртае FALSE , калі ўсе аргументы ілжывыя.
➤ IF(OR(C5=””,AND(ISNUMBER(D5),B5=D5)),D5 ,B5)
Функцыя КАЛІ вяртае тое самае значэнне, якое захоўваецца ў ячэйцы D5 , калі функцыя АБО вяртае ІСТРА . У адваротным выпадку ён вяртае значэнне ячэйкі B5 .
➤ IF(B5=””,””,IF(OR(C5=””,AND(ISNUMBER(D5) ),B5=D5)),D5,B5))
Функцыя КАЛІ нічога не вяртае, калі ячэйка B5 пустая. У адваротным выпадку ён вяртае вынік, атрыманы з аргумента, які змяшчае функцыю IF .
Больш падрабязна: Як уставіць пазнаку часу Excel пры змене ячэйкі без VBA (3 спосабы)
Падобныя паказанні
- Як уставіць статычную дату ў Excel (4 простыя метады)
- Excel VBA: Устаўце метку часуКалі запускаецца макрас
- Як уставіць штамп даты Excel, калі ячэйкі ў радку зменены
- Пераўтварыць метку часу Unix у дату ў Excel (3 Метады)
2. Прымяніць код VBA для ўстаўкі меткі часу ў Excel пры змене ячэйкі
Вы таксама можаце атрымаць метку часу ў Excel пры змене ячэйкі з дапамогай VBA. Каб зрабіць гэта, выканайце наступныя дзеянні.
📌 Крокі
- Спачатку пстрыкніце правай кнопкай мышы ўкладку мэтавага аркуша. Затым абярыце Праглядзець код . Гэта адкрые модуль кода для гэтага канкрэтнага аркуша.
- Далей скапіруйце наступны код, выкарыстоўваючы кнопку капіявання ў правым верхнім куце.
7267
- Пасля гэтага ўстаўце скапіраваны код у пусты модуль, як паказана ніжэй.
- Далей захавайце дакумент як рабочую кнігу з падтрымкай макрасаў . Цяпер пачніце ўводзіць даныя ў ячэйкі ў слупку B. Тады вы атрымаеце тыя ж вынікі, што і раней.
VBA Тлумачэнне кода:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellCol, TimeCol, Row, Col As Integer
Dim DpRng, Rng As Range
Аб'яўленне неабходных зменных.
CellCol = 2
Увод даных слупок.
TimeCol = 3
Слупок з пазнакай часу.
Радок = Target.Row
Col = Target.Column
Захаванне нумароў радкоў і слупкоў выбранай ячэйкі.
If Row <= 4 Then ExitSub
Любыя змены ў верхніх 4 радках не ствараюць пазнакі часу.
Пазнака часу = фармат (цяпер «ДД-ММ-ГГГГ ГГ:ММ:СС AM/PM”)
Метка часу будзе адфарматавана такім чынам. Змяніце яго пры неабходнасці.
If Target.Text “” Then
If Col = CellCol Then
Cells(Row, TimeCol) = Timestamp
Стварыце метку часу, калі выбраная ячэйка пустая.
Пры памылцы Працягвайце далей
Ігнаруе любая памылка, калі ўзнікае.
Устанавіць DpRng = Target.Dependents
Для кожнага Rng у DpRng
Калі Rng.Column = CellCol Then
Cells(Rng.Row, TimeCol) = Timestamp
Стварыце пазнакі часу для дыяпазону ячэек, калі яны не пустыя.
Больш падрабязна: Як аўтаматычна ўстаўляць запісы даных з пазнакай часу ў Excel (5 метадаў)
Пра што трэба памятаць
- Вам трэба выкарыстоўваць карыстацкую фармат для ячэек у слупку B, каб атрымаць правільна адфарматаваную пазнаку часу.
- Альтэрнатыўная формула працуе толькі тады, калі даныя ўводзяцца ў пустыя ячэйкі.
- Тут увод даных і слупок пазнакі часу складаныя закадаваны ў кодзе VBA. Вам трэба змяніць код на аснове вашага набору даных.
Выснова
Цяпер вы ведаеце, як паставіць метку часу ў Excel пры змене ячэйкі. У вас ёсць дадатковыя пытанні ці прапановы? Для гэтага выкарыстоўвайце раздзел каментарыяў ніжэй. Вы таксама можаце наведаць наш блог ExcelWIKI , каб даведацца больш пра excel. Заставайцеся з намі і працягвайце вучыцца.