Excel - Αλλαγή ημερομηνίας αυτόματα

Θέμα

Χρησιμοποιώ αυτόν τον τύπο στο φύλλο εργασίας μου:

 = IF (Ή (A1 = 1, A1 = 2, A1 = 3), ΣΗΜΕΡΑ (), "")

Το πρόβλημα είναι ότι όταν ανοίγω το φύλλο μου την επόμενη μέρα όλες οι ημερομηνίες εισόδου αλλάζουν μέχρι σήμερα, χρειάζομαι τις προηγούμενες εισόδους για να μείνω η ίδια και μόνο η νέα καταχώρηση για να δείξω την σημερινή ημερομηνία, παρακαλώ μπορεί οποιοσδήποτε οργανισμός να βοηθήσει !!

 Ημέρες κατάστασης Σημαία Περιγραφή εργασίας Ημερομηνία 1 16 Μαΐου 2010 2 17 Μαΐου 2010 1 20 Μαΐου 2010 3 21 Μαΐου 2010

Λύση

Εάν η τιμή στο A1 πρόκειται να εισαχθεί με μη αυτόματο τρόπο, μπορείτε να χρησιμοποιήσετε τα συμβάντα

Να κάνω αυτό

1. Πατήστε ALT + F11 για να ξεκινήσετε το VBE
2. Πατήστε CTRL + R για να εμφανιστεί ο εξερευνητής έργου
3. Κάντε διπλό κλικ στο φύλλο όπου θα αλλάξει η τιμή του A1
4. Επικολλήστε αυτόν τον κωδικό

 Αν το συμβάν δεν ενεργοποιήθηκε από την πρώτη στήλη (στήλη Α) τότε τίποτα δεν πρέπει να γίνει Αν (Target.Column 1) Στη συνέχεια Exit Sub 'αν το συμβάν δεν ενεργοποιήθηκε από τη γραμμή 1 Εάν (Target. Σειρά 1) Στη συνέχεια, Exit Sub 'απενεργοποιήστε τα συμβάντα ώστε να μην εισέλθουμε σε κύκλο γεγονότων Application.EnableEvents = False Εάν Target = 1 ή Target = 2 ή Target = 3 Στη συνέχεια' 1 σειρά προς τα κάτω και μια στήλη προς τα δεξιά Target.Offset, 1) = CDate (Τώρα) 'ίδια γραμμή και μία στήλη προς τα δεξιά Target.Offset (0, 1) = "" Αλλιώς "1 σειρά προς τα κάτω και μία στήλη προς τα δεξιά Target.Offset (1, 1) η ίδια σειρά και μία στήλη προς τα δεξιά Target.Offset (0, 1) = CDate (Τώρα) Τέλος Αν τελειώσουμε τώρα μπορούμε να ενεργοποιήσουμε εκ νέου τα αποτελέσματα. Application.EnableEvents = True End Sub