每2周填充一次excel细胞日期

Question

我需要每两周用一个日期填充一个单元格。

我们使用敏捷 - Scrum，我希望通过VBA函数添加两个单元格（开始日期和结束日期），即短跑持续时间。

目前我们手动添加它，我不希望团队成员在每个sprint中添加它。

让我的问题清楚：我不希望每个sprint手动输入，而是希望自动填充日期？

Answer 1

您可以在单击按钮下甚至在Workbook_Open事件下使用以下内容，为单元格值添加两周，在我的情况下，我使用B1表示Sprint Start，B2表示Sprint结束：

Sub foo()
    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    'declare and set your worksheet, amend as required
    ws.Cells(1, 2).Value = ws.Cells(1, 2).Value + 14
    'Add 14 days to cell B1
    ws.Cells(2, 2).Value = ws.Cells(2, 2).Value + 14
    'Add 14 days to cell B2
End Sub