Excel - mainiet datumu automātiski

Izdevums

Es izmantoju šo formulu savā darba lapā:

 = IF (VAI (A1 = 1, A1 = 2, A1 = 3), TODAY (), "")

Problēma ir tā, ka, atverot savu lapu nākamajā dienā, visi ieejas datumi mainās līdz šodienai, man ir nepieciešama iepriekšējā diena, lai paliktu tāda pati un tikai jaunais ieraksts, lai parādītu šodienas datumu, lūdzu, var palīdzēt jebkura iestāde!

 Status Days Flag Darba apraksts Datums 1 2010. gada 16. maijs 2 2010. gada 17. maijs 1 2010. gada 20. maijs 3 2010. gada 21. maijs

Risinājums

Ja vērtība A1 tiks ievadīta manuāli, varat izmantot notikumus

Darīt to

1. Lai sāktu VBE, nospiediet ALT + F11
2. Nospiediet CTRL + R, lai parādītu projekta pētnieku
3. Veiciet dubultklikšķi uz lapas, kur A1 vērtība tiks mainīta
4. Ielīmējiet šo kodu

 Privātās apakšlapas_apmaiņa (ByVal Target As Range) ', ja notikums netika aktivizēts ar pirmo sleju (A sleja), tad nekas nav jādara Ja (Target.Column 1) Pēc tam iziet no Sub', ja notikums netika aktivizēts ar 1. rindu If (Target. 1. rinda) Pēc tam iziet no sub 'atspējot notikumus, lai mēs netiktu iesaistīti notikumu ciklā Application.EnableEvents = False Ja Target = 1 vai Target = 2 vai Target = 3 Tad' 1 rinda uz leju un viena sleja uz labo Target.Offset (1, 1) = CDate (tagad) viena un tā pati rinda un viena sleja uz labo Target.Offset (0, 1) = "" Else "1 rinda uz leju un viena sleja uz labo. tajā pašā rindā un vienā kolonnā pa labi Target.Offset (0, 1) = CDate (tagad) Beigas Ja 'mēs esam paveikuši tagad, mēs varam aktivizēt evetns atkal Application.EnableEvents = True End Sub