อัปเดตวันที่ในสเปรดชีต excel ในแต่ละปี

ปัญหา

ฉันมีสเปรดชีต 4 รายการเชื่อมโยงกันซึ่งฉันใช้เพื่อติดตามบัญชีของฉัน

สเปรดชีตทั้งหมด 4 รายการอยู่ในโฟลเดอร์เดียว

ในแต่ละสเปรดชีตฉันมีวันจันทร์ถึงวันอาทิตย์โดยมียอดรวมรายสัปดาห์อยู่ด้านล่างสำหรับแต่ละเดือนที่ใช้คอลัมน์ A

ขึ้นเขียงของฉันคือว่าในแต่ละปีฉันต้องคัดลอกโฟลเดอร์ทั้งหมดลบข้อมูลทั้งหมดออกจากสูตรในและลบวันที่ทั้งหมดและเปลี่ยนเป็นปีถัดไปอย่างเห็นได้ชัดในแต่ละปีที่ 1 จะไม่ลงจอดในวันเดียวกันดังนั้นฉันต้อง ผ่านกระบวนการที่ยาวนานในการลบทั้งหมดและพิมพ์อีกครั้งในวันวันที่สำหรับแต่ละสัปดาห์เพิ่มแถวทั้งหมดเมื่อสิ้นสุดสัปดาห์และดำเนินการเช่นนั้นดังนั้นแต่ละหน้าเป็นเดือนที่แตกต่างกันและผลรวมรายสัปดาห์ทำงานตลอดทาง ปี wk1, wk2, wk3, wk4, wk5, wk6 เป็นต้น

ไม่มีใครรู้วิธีที่ง่ายกว่าของ excel ในการรู้ว่าวันปีใหม่จะเริ่มต้นอย่างไรและแทรกลงในสเปรดชีตใหม่

สารละลาย

ดูว่ามาโครนี้จะช่วยคุณได้ไหม แมโครจะแสดงกล่องอินพุตขึ้น มีพิมพ์ปีสำหรับเช่น 2010 หรือ 2011 (ฉันคิดว่าคุณจะไม่ขยายไปถึงจุดสิ้นสุดของศตวรรษ) คุณสามารถจัดรูปแบบคอลัมน์วันที่ตามที่คุณต้องการ

ทดสอบแมโครและตัดสินใจ

 Sub test () Dim y As Integer, d As Integer y = InputBox ("พิมพ์ปีเช่น 2010") ถ้า y Mod 4 = 0 จากนั้น d = 366 อื่น d = 365 สิ้นสุดถ้า Range ("a1") = "1 / 1 / "& y Range (Range (" A1 "), Cells (d, " A ")) DataSeries Rowcol: = xlColumns, _ ประเภท: = xlChronological, วันที่: = _ xlDay, ขั้นตอน: = 1, เทรนด์: = ช่วงเท็จ ("B1") สูตร = "= วันธรรมดา (A1)" ช่วง ("B1") ช่วงเติมอัตโนมัติ (ช่วง ("B1"), เซลล์ (d, "B")) จุดสิ้นสุด