Екцел - Промените датум аутоматски

Питање

Користим ову формулу на радном листу:

  •  = ИФ (ОР (А1 = 1, А1 = 2, А1 = 3), ДАНАС (), "") 

Проблем је у томе што када отворим свој лист сљедећи дан, сви улазни датуми се мијењају у данашње, требам претходне дневне предјеле да останем исти и само нови унос да покажем данашњи датум, молим да било које тијело помогне !!

 Статусни датум Ознака посла Датум 1 16 Мај 2010 2 17 Мај 2010 1 20 Мај 2010 3 21 Мај 2010 

Решење

Ако је вредност у А1 ручно унесена, можете користити догађаје

Да то уради

  • 1. Притисните АЛТ + Ф11 да бисте покренули ВБЕ
  • 2. Притисните ЦТРЛ + Р да бисте приказали истраживача пројекта
  • 3. Двапут кликните на лист где ће се променити вредност А1
  • 4. Залијепите овај код

 Привате Суб Ворксхеет_Цханге (БиВал Таргет Ас Ранге) 'ако догађај није био покренут од стране првог ступца (колона А), онда ништа за направити Ако (Таргет.Цолумн 1) Затим Екит Суб' ако догађај није био активиран редом 1 Иф (Таргет. Ред 1) Затим изађите из Суб 'онемогућите догађаје тако да не улазимо у циклус догађаја Апплицатион.ЕнаблеЕвентс = Фалсе Иф Таргет = 1 Или Таргет = 2 ор Таргет = 3 Тхен' 1 ред довн, и један ступац у десно Таргет.Оффсет (1, 1) = ЦДате (сада) 'исти ред и један ступац десно Таргет.Оффсет (0, 1) = "" Елсе "1 ред доље, и један ступац у десно Таргет.Оффсет (1, 1) =" "' исти ред и један ступац у десно Таргет.Оффсет (0, 1) = ЦДате (сада) Крај Ако 'смо завршили сада можемо поново омогућити еветнс Апплицатион.ЕнаблеЕвентс = Истинити крај Суб 

Напоменути да

Хвала ризвиса1 за овај тип на форуму.

Претходни Чланак Sledeći Чланак

Топ Савети