Excel - Schimbați automat data

Problema

Folosesc această formulă pe foaia mea de lucru:

 = DACĂ (OR (A1 = 1, A1 = 2, A1 = 3), AȘTEPT (), "")

Problema este că atunci când deschid foaia mea a doua zi toate datele de intrare se schimba astăzi, am nevoie de intrările de ziua precedentă să rămână la fel și doar noua intrare pentru a arăta ziua de azi, vă rugăm să orice organism ajuta!

 Statut Zilele Flag Descrierea postului Data 1 16 mai 2010 2 17 mai 2010 1 20 mai 2010 3 21 mai 2010

Soluţie

Dacă valoarea din A1 va fi tastată manual, puteți utiliza evenimente

Pentru a face asta

1. Apăsați ALT + F11 pentru a porni VBE
2. Apăsați CTRL + R pentru a afișa exploratorul de proiect
3. Faceți dublu clic pe foaia în care va fi modificată valoarea A1
4. Inserați acest cod

 Dacă subiectul nu a fost declanșat de prima coloană (coloana A) atunci nu trebuie făcut nimic Dacă (Target.Column 1) Apoi Exit Sub 'dacă evenimentul nu a fost declanșat de rândul 1 Dacă (Target. Rândul 1) Apoi Exit Sub dezactivează evenimentele astfel încât să nu intrăm în ciclul evenimentelor Application.EnableEvents = False Dacă țintă = 1 sau Target = 2 sau Target = 3 Apoi '1 rând în jos și o coloană în dreapta Target.Offset (1, 1) = CDate (Acum) același rând și o coloană la dreapta Target.Offset (0, 1) = "" Alt "1 rând în jos și o coloană în dreapta Target.Offset (1, 1) același rând și o coloană la dreapta Target.Offset (0, 1) = CDate (Now) End Dacă "am terminat acum, putem permite evetns din nou Application.EnableEvents = True End Sub