Excel 2010 如果输入日期，如何将周数自动输入下一个单元格？

我已经为日期创建了宏按钮，如下所示：

Sub asdf()
ActiveCell.Value = Format(Now, "mm/dd/yy")
End Sub

---

如果我在第一个单元格中输入

日期

，我想将相关的周数自动添加到下一个单元格中。可能吗？有人能帮忙吗

这应该可以做到，将周数（从星期天开始的周数）一个单元格放在右边：

Sub asdf()
    ActiveCell.Value = Format(Now, "mm/dd/yy")
    ActiveCell.Offset(0, 1) = Application.WeekNum(ActiveCell, 1)
End Sub

---

需要更多的解释。你是想在按下按钮时发生这种情况，还是只想在键入日期时发生这种情况？