重置一个保留输出值的表

Question

我有一张表格，其中C1至C3（例如）用…编程。

• C1：=10-A1
• C2：=10-A2
• C3：=10-A3

…分别。

在一周中，我将更改A1，A2和A3的值，但是在一周的最后，我希望清除A列，并希望C列具有该周的最后输出值，例如，如果我在A1中输入的最后一个值是3，单元格C1将向我显示7，下周，单元格A1将被清除，单元格C1仍将具有程序，但以值{ {1}}，而不是7。

Answer 1

您需要将数据更改为以下内容

然后在一周结束时运行代码以开始下一周：
该代码将当前星期复制到最后一周的值，并清除当前星期。

Option Explicit

Public Sub StartNextWeek()
    With ThisWorkbook.Worksheets("week")
        'copy current to last week
        .Range("B2:B4").Value = .Range("A2:A4").Value

        'clear current week
        .Range("A2:A4").Clear
    End With
End Sub

因此，下周您将以

开始