Преглед садржаја
Овај чланак илуструје како да означите временску ознаку у Екцел-у када се ћелија промени. Можда ћете морати да пратите уносе података у ћелијама одређене колоне. На пример, резервисали сте колону Б за унос података. Сада желите временску ознаку у суседној ћелији у колони Ц када се ћелија ажурира у колони Б. Овај чланак ће вам помоћи да то урадите на два ефикасна начина.
Преузмите Вежбање
Ви можете преузети радну свеску за вежбање са дугмета за преузимање испод.
Временска ознака у Екцел.клсм
2 начина да уметнете временску ознаку у Екцел када се ћелија промени
1. Користите ИФ, АНД, САДА и друге функције за уметање временске ознаке у Екцел
Пратите доле наведене кораке да бисте добили временску ознаку користећи формуле када се ћелија промени.
📌 Кораци
- Прво притисните АЛТ+Ф+Т да бисте отворили Екцел опције . Затим идите на картицу Формуле . Затим означите поље за потврду Омогући итеративно израчунавање . Затим подесите Максималне итерације на 1. Након тога кликните на ОК.
- Сада унесите следећу формулу у ћелију Ц5 . Затим превуците икону Филл Хандле да бисте копирали формулу у ћелије испод.
=IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5))
- Затим унесите следећу формулу у ћелију Д5 . Затим превуците икону Филл Хандле у ћелије испод као раније.
=IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5))
- Сада почните да уносите вредности у ћелије у колони Б .Након тога, добићете следећи резултат. Овде је колона Д помоћна колона. Можете је сакрити тако што ћете кликнути десним тастером миша након што изаберете колону.
- Алтернативно, можете само да унесете следећу формулу у ћелију Ц5 да бисте добили исти резултат.
=IF(B5"",IF(C5="",NOW(),C5),"")
- Можда ћете морати да промените форматирање ћелије у колони Ц . Изаберите колону кликом на број колоне на врху. Затим притисните ЦТРЛ+1 да бисте отворили оквир за дијалог Форматирај ћелије . Сада кликните на Прилагођени формат броја. Затим унесите д-ммм-гггг хх:мм:сс АМ/ПМ у поље Типе . Коначно, кликните на ОК.
Подела формуле:
Формула у ћелији Ц5:
➤ ИФ(Б5=””,””,Ц5))
Функција ИФ не враћа ништа ако ћелија Б5 је празан. У супротном, враћа исту вредност сачувану у Ц5 .
➤ НОВ()
Функција САДА враћа тренутну датум и време.
➤ АНД(Б5””,Д5Б5)
Функција АНД враћа ТРУЕ ако оба аргументи су тачни, тј. ћелија Б5 није празна и ћелије Б5 и Д5 немају исту вредност.
➤ ИФ(АНД(Б5””,Д5Б5),САДА(),ИФ(Б5=””,””,Ц5))
Ако је АНД функција враћа ТРУЕ , затим ИФ функција враћа тренутни датум и време добијени из НОВ функције . У супротном, враћа резултатдобијено из аргумента који садржи ИФ функцију .
Формула у ћелији Д5:
➤ ИСНУМБЕР(Д5)
Функција ИСНУМБЕР враћа ТРУЕ ако ћелија Д5 садржи број. У супротном, враћа Фалсе .
➤ АНД(ИСНУМБЕР(Д5),Б5=Д5)
Функција АНД враћа ТРУЕ ако ћелија Д5 садржи број и ћелије Б5 и Д5 имају исту вредност. У супротном враћа ФАЛСЕ .
➤ ОР(Ц5=””,АНД(ИСНУМБЕР(Д5),Б5=Д5))
Тхе ОР функција враћа ТРУЕ ако је било који од аргумената тачан, тј. ћелија Ц5 је празна или И функција враћа ТРУЕ . Враћа ФАЛСЕ ако су сви аргументи лажни.
➤ ИФ(ОР(Ц5=””,АНД(ИСНУМБЕР(Д5),Б5=Д5)),Д5 ,Б5)
Функција ИФ враћа исту вредност похрањену у ћелији Д5 ако ОР функција враћа ТРУЕ . У супротном, враћа вредност ћелије Б5 .
➤ ИФ(Б5=””,””,ИФ(ОР(Ц5=””,АНД(ИСНУМБЕР(Д5) ),Б5=Д5)),Д5,Б5))
Функција ИФ не враћа ништа ако је ћелија Б5 празна. У супротном, враћа резултат добијен из аргумента који садржи ИФ функцију .
Прочитајте више: Како уметнути Екцел временску ознаку када се ћелија промени без ВБА (3 начина)
Слична читања
- Како уметнути статички датум у Екцел (4 једноставна метода)
- Екцел ВБА: Убаци временску ознакуКада се покрене макро
- Како уметнути печат Екцел датума када су ћелије у реду измењене
- Претворити Уник временску ознаку у датум у Екцел (3 Методе)
2. Примените ВБА код да бисте уметнули временску ознаку у Екцел када се ћелија промени
Такође можете добити временску ознаку у Екцел-у када се ћелија промени помоћу ВБА. Пратите доле наведене кораке да бисте то могли да урадите.
📌 Кораци
- Прво, кликните десним тастером миша на картицу циљног радног листа. Затим изаберите Прикажи код . Ово ће отворити модул кода за тај одређени радни лист.
- Даље, копирајте следећи код користећи дугме за копирање у горњем десном углу.
5163
- Након тога, налепите копирани код на празан модул као што је приказано испод.
- Следеће, сачувајте документ као радна свеска са омогућеним макроима . Сада почните да уносите податке у ћелије у колони Б. Тада ћете добити исте резултате као раније.
ВБА Објашњење кода:
Приватан под радни лист_Цханге(БиВал Таргет Ас Ранге)
Дим ЦеллЦол, ТимеЦол, Ров, Цол Ас Интегер
Дим ДпРнг, Рнг Ас Ранге
Декларисање потребних променљивих.
ЦеллЦол = 2
Унос података колона.
ТимеЦол = 3
Колона са временском ознаком.
Ров = Таргет.Ров
Цол = Таргет.Цолумн
Складиштење бројева редова и колона изабране ћелије.
Ако је ред &лт;= 4, онда изађитеСуб
Све измене унутар горња 4 реда неће створити временску ознаку.
Временска ознака = Формат(Сада, „ДД-ММ-ГГГГ ЧЧ:ММ:СС АМ/ПМ”)
Временска ознака ће бити форматирана на овај начин. Промените га по потреби.
Ако Таргет.Тект “” Онда
Ако је Цол = ЦеллЦол Онда
Ћелије(Ров, ТимеЦол) = Временска ознака
Креирајте временску ознаку ако је изабрана ћелија празна.
У случају грешке Настави даље
Игнорише било каква грешка ако се појави.
Подесите ДпРнг = Таргет.Депендентс
За сваки Рнг у ДпРнг
Ако Рнг.Цолумн = ЦеллЦол Тхен
Целлс(Рнг.Ров, ТимеЦол) = Тиместамп
Креирајте временске ознаке за опсег ћелија ако нису празне.
Прочитајте више: Како аутоматски уметнути уносе података временске ознаке у Екцел (5 метода)
Ствари које треба запамтити
- Морате да користите прилагођени форматирајте ћелије у колони Б да бисте добили правилно форматирану временску ознаку.
- Алтернативна формула функционише само када се подаци уносе у празне ћелије.
- Овде су унос података и колона временске ознаке тешки кодирано у ВБА коду. Морате да измените код на основу вашег скупа података.
Закључак
Сада знате како да означите временску ознаку у Екцел-у када се промени ћелија. Имате ли још питања или сугестије? За то користите одељак за коментаре испод. Такође можете да посетите наш ЕкцелВИКИ блог да истражите више о екцелу. Останите са нама и наставите да учите.