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

Question

我为DATE创建了宏按钮，如下所示：

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

如果我将DATE输入第一个单元格，我想自动将相关的周数添加到下一个单元格中。可能吗？有人可以为此提供帮助吗？

Answer 1

这应该可以解决问题，将周数（周日从周日开始）放在右边的一个单元格中：

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