Uuenda kuupäevad Exceli arvutustabelis igal aastal

Probleem

Mul on omavahel ühendatud neli arvutustabelit, mida kasutan oma kontode jälgimiseks.

Kõik 4 tabelit on ühes kaustas.

Igal arvutustabelis on esmaspäevast pühapäevani kuupäev, mille iga nädala jooksvalt veerus A.

Minu dilemma on see, et igal aastal pean kopeerima kogu kausta, pühkima kõik andmed, jättes valemid välja, ning kustutama kõik kuupäevad ja muutuma järgmisel aastal, sest ilmselgelt igal aastal ei lange 1. päev samal päeval, seega pean ma läbige kogu aeg ja kustutage kõik nädalad, kuupäevad igaks nädalaks, lisage nädala lõpus kogu kogusumma ja jätkake nii, nii et iga lehekülg on erinev kuu ja nädalased kogumised kestavad kogu aasta wk1, wk2, wk3, wk4, wk5, wk6 jne

Kas keegi teab lihtsamat viisit, teades, millisel päeval algab uus aasta ja lisab selle uude arvutustabelisse?

Lahendus

Vaadake, kas see makro aitab teid. Makro avab sisendkasti. seal on aasta, näiteks 2010 või 2011. (ma eeldan, et sa ei jõua sajandi lõpuni). Saate vormindada kuupäeva veerg A nagu soovite.

Testige makro ja otsustage.

 Sub test () Dim y As Integer, d Nagu Integer y = InputBox ("tüüp aasta, nt 2010") Kui y Mod 4 = 0 Siis d = 366 Else d = 365 Lõpp, kui vahemik ("a1") = "1 / 1 / "& y Range (vahemik (" A1 "), lahtrid (d, " A "). DataSeries rida: = xlColumns, _ Type: = xlChronological, Date: = _ xlDay, Step: = 1, Trend: = Vale vahemik ("B1"). Valem = "= nädalapäev (A1)" vahemik ("B1"). Automaatse täitmise vahemik (vahemik ("B1"), lahtrid (d, "B")) lõpp-lõpp