Excel - Zmeniť dátum automaticky

Problém

Tento vzorec používam na svojom pracovnom hárku:

 = IF (OR (A1 = 1, A1 = 2, A1 = 3), DNES (), "")

Problém je v tom, že keď otvorím svoj list na druhý deň, všetky dátumy vstupu sa zmenia na dnešok, potrebujem predchádzajúci deň, aby zostali rovnaké a len nový záznam, ktorý bude zobrazovať dnešný dátum, prosím, môže vám pomôcť akýkoľvek orgán !!

 Stavové dni Vlajka Popis úlohy Dátum 1 16 máj 2010 2 17 máj 2010 1 20 máj 2010 3 21. máj 2010

Riešenie

Ak sa hodnota v A1 bude zadávať manuálne, môžete použiť udalosti

Urobiť to

1. Stlačením tlačidla ALT + F11 spustite program VBE
2. Stlačením klávesov CTRL + R zobrazte prieskumníka projektu
3. Dvakrát kliknite na hárok, kde sa bude meniť hodnota A1
4. Vložte tento kód

 Private Sub Worksheet_Change (cieľový rozsah ByVal ako rozsah) ', ak udalosť nebola spustená prvým stĺpcom (stĺpec A), potom nič robiť, ak (Target.Column 1) Potom Exit Sub', ak udalosť nebola spustená riadkom 1 If (Target). Riadok 1) Potom Exit Sub 'vypnúť udalosti, takže sa dont dostať do cyklu udalostí Application.EnableEvents = False Ak je cieľ = 1 alebo cieľ = 2 alebo cieľ = 3 Potom' 1 riadok nadol, a jeden stĺpec vpravo Target.Offset (1, 1) = rovnaký riadok CDate (teraz) a jeden stĺpec vpravo Target.Offset (0, 1) = "" Else 1 riadok nadol a jeden stĺpec vpravo Target.Offset (1, 1) = "" ' rovnaký riadok a jeden stĺpec vpravo Target.Offset (0, 1) = CDate (teraz) Koniec Ak sa „teraz urobíme, môžeme znova povoliť evetns Application.EnableEvents = True End Sub