Excel - samodejno spremeni datum

Težava

To formulo uporabljam na delovnem listu:

  •  = IF (OR (A1 = 1, A1 = 2, A1 = 3), DANES (), "") 

Težava je v tem, da ko naslednji dan odprem svoj list, se vsi datumi vstopa spremenijo v današnji dan, potrebujem prejšnje predpise, da ostanejo enaki in samo nov vnos, ki bo pokazal današnji datum, prosim, lahko kateri koli organ pomaga!

 Statusni dnevi Opis delovnega mesta zastave Datum 1 16. maj 2010 2 17. maj 2010 1 20. maj 2010 3 21. maj 2010 

Rešitev

Če bo vrednost v A1 vnesena ročno, lahko uporabite dogodke

Za to

  • 1. Pritisnite ALT + F11, da zaženete VBE
  • 2. Pritisnite CTRL + R, da prikažete raziskovalca projekta
  • 3. Dvakrat kliknite na list, kjer se bo spremenila vrednost A1
  • 4. Prilepite to kodo

 Private Sub Worksheet_Change (ByVal Target As Range) ', če dogodek ni bil sprožen s prvim stolpcem (stolpec A), potem ničesar ni mogoče storiti. Vrstica 1) Nato zapustite Sub 'onemogočite dogodke, da ne bomo stopili v cikel dogodkov Application.EnableEvents = False Če Target = 1 Ali Target = 2 Ali Target = 3 Potem' 1 vrstico navzdol in en stolpec desno Target.Offset (1, 1) = ista vrstica CDate (zdaj) in en stolpec desno Target.Offset (0, 1) = "" Else "1 vrstica navzdol in en stolpec desno Target.Offset (1, 1) =" "' isto vrstico in en stolpec desno Target.Offset (0, 1) = CDate (zdaj) End Če 'smo končali zdaj lahko omogočimo evetns še enkrat Application.EnableEvents = True End Sub 

Upoštevajte, da

Hvala za rizvisa1 za ta nasvet na forumu.

Prejšnji Članek Naslednji Članek

Top Nasveti