Excel - ป้อนข้อมูลอัตโนมัติตามวันที่ที่ระบุ

ปัญหา

ฉันมีไฟล์ Excel ที่ฉันกรอกข้อมูลในแต่ละวันด้วยข้อมูลใหม่ในวันที่ที่สอดคล้องกันในคอลัมน์ B ฉันยังมี 3 คอลัมน์ C, D และ E: ปี, เดือน, สัปดาห์ที่ตรงกับวันที่นั้น ฉันต้องการในขณะที่ป้อนวันที่ด้วยตนเองในคอลัมน์ B คอลัมน์ 3 คอลัมน์ C, D และ E จะได้รับการอัปเดตโดยอัตโนมัติ

สารละลาย

ใช้ VBA:

 แผ่นงานย่อยส่วนตัว (เปลี่ยนเป็นเป้าหมายเป็นช่วง) หากเป้าหมายคอลัมน์ 1 หรือเป้าหมายแถว = 1 จากนั้นออกจากเป้าหมายย่อยออกเป้าหมาย (0, 1) = ปี (เป้าหมาย) เป้าหมายเป้าหมาย (0, 2) = เป้าหมายเดือน .Offset (0, 3) = DatePart ("ww", Target, vbMonday, vbFirstFourDays) End Sub 

• ไฟล์ตัวอย่าง: ที่นี่
• ขอบคุณ eriiic สำหรับเคล็ดลับนี้