Actualizați datele în foaia de calcul Excel în fiecare an

Problema

Am 4 foi de calcul legate între ele pe care le folosesc pentru a ține evidența conturilor mele.

Toate cele 4 foi de calcul sunt într-un singur director.

Pe fiecare foaie de calcul am data de luni până duminică cu un total săptămânal dedesubt pentru fiecare lună care rulează în coloana A.

Dilema mea este că în fiecare an trebuie să copiez toate dosarele, să șterg toate datele care părăsesc formulele și să șterg toate datele și să trec la anul următor, evident că în fiecare an primul nu va ateriza în aceeași zi, prin urmare trebuie să treceți prin lungul proces de ștergere a tuturor și introduceți din nou în zile, date pentru fiecare săptămână, adăugați un rând pentru total la sfârșitul săptămânii și continuați astfel încât fiecare pagină să fie o lună diferită, iar totalul săptămânal să fie parcurs în întregime anul wk1, wk2, wk3, wk4, wk5, wk6 etc.

Știe cineva despre o modalitate mai ușoară de a ști ce zi începe noul an și o introduce într-o foaie de calcul nouă?

Soluţie

Vedeți dacă această macrocomandă vă va ajuta. Macro va aduce o cutie de intrare. scrieți anul respectiv pentru anul 2010 sau 2011. (presupun că nu vă veți extinde până la sfârșitul secolului). puteți să formatați coloana de date A după cum doriți.

Testați macro-ul și decideți.

 Sub test () Dim y ca Integer, d Ca Integer y = InputBox ("tastați anul, de ex. 2010") Dacă y Mod 4 = 0 Atunci d = 366 Alt d = 365 Sfârșit Dacă intervalul "a1" / 1 / "& y Range (intervalul" A1 "), celule (d, " A ")) DataSeries Rowcol: = xlColumns, _ Type: = xlChronological, Date: = Intervalul fals ("B1"), celula (d, "B")) End Sub