Kiekvienais metais atnaujinkite datas Excel skaičiuoklėje

Problema

Turiu 4 susietas skaičiuokles, kurias naudoju, kad galėčiau sekti savo sąskaitas.

Visos 4 skaičiuoklės yra viename aplanke.

Kiekvienoje skaičiuoklėje turiu datą nuo pirmadienio iki sekmadienio, o kiekvieną savaitę, einančią žemyn stulpelyje A.

Mano dilema yra ta, kad kiekvienais metais turiu nukopijuoti visą aplanką, nuvalyti visus duomenis, paliekant formules, ir ištrinti visas datas ir pakeisti kitais metais, nes akivaizdu, kad kiekvienais metais pirmasis nebus iškrautas tą pačią dieną, todėl turiu eikite per ilgą visų ištrinimo ir įrašymo dienų, kiekvienos savaitės datų procesą, savaitės pabaigoje pridėkite bendrą eilutę ir tęskite taip, kad kiekvienas puslapis būtų skirtingas mėnuo, o savaitės sumos - visa wk1, wk2, wk3, wk4, wk5, wk6 ir tt metai

Ar kas nors žino apie paprastesnį „Excel“ būdą, žinodamas, kokia diena prasideda, ir įtraukia ją į naują skaičiuoklę?

Sprendimas

Pažiūrėkite, ar ši makro padės jums. Makrokomandoje bus įvestas įvesties laukelis. ten įrašykite metus, pvz., 2010 m. arba 2011 m. (manau, kad jums nereikės pratęsti iki amžiaus pabaigos). galite formatuoti datos stulpelį A, kaip norite.

Patikrinkite makrokomandą ir nuspręskite.

 Sub test () Dim y As Integer, d Kaip Integer y = InputBox ("tipo metai, pvz., 2010") Jei y Mod 4 = 0 Tada d = 366 Else d = 365 Pabaiga Jei intervalas ("a1") = "1 / 1 / "& y Diapazonas (diapazonas (" A1 "), ląstelės (d, " A ").) DataSeries eilutė: = xlColumns, _ Tipas: = xlChronological, Date: = _ xlDay, Step: = 1, Trend: = Klaidingas diapazonas ("B1"). Formula = "= savaitės diena (A1)" diapazonas ("B1"). Automatinio pildymo diapazonas (diapazonas ("B1"), ląstelės (d, "B")) pabaiga