Vba 更新反映下一年的日期，并更新特定日期的数据

我有一系列特定日期的活动，我想知道Excel中是否有方法更新这些日期以应用于明年（2016年）。例如：将下一年的相应日期（2016年5月1日）更改为2015年6月1日（1月6日-星期二），也就是1月5日-星期二

我的下一个问题是是否可以抓取日期并使用它来更新属于它的数据。例如，在今年余下的时间里，每周一的某节课，比如说哲学课，从早上8点开始上课

---

有没有办法在我的Excel工作表中选择每个星期一，选择一个特定的类并更新它？

对于问题1：试试这个

=DATE（YEAR（A1）+1，MONTH（A1），DAY（A1））

更新：

---

要获取具有相同星期日的最接近的下一年日期：

=日期（年（A1）+1，月（A1），日（A1）+如果（2*ABS）（工作日（A1）-工作日（日期（年（A1）+1‌​,月（A1），日（A1）））对于问题1：试试这个
=日期（年（A1）+1，月（A1），日（A1））

更新：
要获取具有相同星期日的最接近的下一年日期：
=日期（年（A1）+1，月（A1），日（A1）+如果（2*ABS）（工作日（A1）-工作日（日期（年（A1）+1‌​,月（A1），日（A1））试试这个：

DateAdd("ww", 52, dDateIn)

它只增加了52周

如果您想在工作表中使用它，请使用此选项

Public Function GetDateAdd(dDate As Date) As Date

    GetDateAdd = DateAdd("ww", 52, dDate)

End Function

试试这个：

DateAdd("ww", 52, dDateIn)

它只增加了52周

如果您想在工作表中使用它，请使用此选项

Public Function GetDateAdd(dDate As Date) As Date

    GetDateAdd = DateAdd("ww", 52, dDate)

End Function

或者，更好的是，使用以下方法：

=$A$1 + 364

要增加52周，或者更好，使用以下方法：

=$A$1 + 364

再加上52周
我的意思是2015年1月6日，很抱歉给你带来困惑。呃……星期二是1月6日。6月1日不是星期二。是的，1月6日是星期二。我的意思是2015年6月1日是星期二，但2016年6月1日不是星期二，而是星期二Wednesday@pnuts除了闰年…：PI am the-1到底是为了得到正确的日期吗？我的意思是2015年1月6日，为混乱感到抱歉呃……周二是1月6日。6月1日不是周二。是的，1月6日是周二。我的意思是2015年6月1日是周二，但2016年6月1日不是周二，而是周二Wednesday@pnuts除了闰年…：PI am the-1到底是为了得到正确的日期吗？对于你对第一个问题的回答，它不只是改变年份，其余的日子保持不变吗同样的，并且没有反映出正确的日期（意思是明年不是落在星期五，而是落在星期四）啊，我明白了，那么如果你在寻找发生在同一周的下一年的某一天，你的公式应该是：
=DATE（year（A1）+1，MONTH（A1），day（A1）-平日（DATE（year（A1）+1，MONTH（A1），day（A1））+平日（A1））
这个公式的工作原理有点混乱。我试图使用它，但它不起作用，一直告诉我，它们是公式上的一个错误。关于它的工作原理，公式首先计算给定日期和计算日期之间的周天数差，方法是在给定日期加上一年（星期一和星期三相差2天）。然后，从给定日期加上一年的时间中删除此差异。好的，这是有意义的，谢谢。我输入了您提供的公式，但它说我输入的公式不正确。对于您对第一个问题的回答，它不就是改变了年份，其余的日子保持不变，并且没有反映正确的日期吗在上（意思是下一年不是星期五，而是星期四）啊，我明白了，那么如果你在寻找发生在同一周的下一年的某一天，你的公式是：
=日期（年（A1）+1，月（A1），日（A1）-工作日（日期（年（A1）+1，月（A1），日（A1））+工作日（A1））
这个公式的工作原理有点混乱。我试图使用它，但它不起作用，一直告诉我，它们是公式上的一个错误。关于它的工作原理，公式首先计算给定日期和计算日期之间的周天数差，方法是在给定日期加上一年（星期一和星期三之间的差异为2天）。然后，从给定日期加上一年的时间中删除此差异。好的，这很有意义，谢谢。我输入了您提供的公式，但它显示我输入的公式不正确