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

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