Excel:如何根据单元格值更改的时间创建历史数据

Excel:如何根据单元格值更改的时间创建历史数据,excel,portfolio,Excel,Portfolio,我正在Excel中处理一个项目: 首先,我有一个单元格,它的值每天都在变化。 每天当这个单元格发生变化时,我希望它报告当天的值及其相应的日期 因此,我创建了两行=日期和值 我想让它在每次单元格值改变时都创建新的列 例如,今天这个单元格的值是10 然后,这将创建一个新列,其值为todays date和10。 明天单元格的值是12。 这将创建一个新列,其中日期为明天,值为12 因此,这将是一个历史性的时间框架,我可以回顾每一天的价值。 此外,我无法预测单元格的未来值,因此它必须根据每天显示的当前值创

我正在Excel中处理一个项目:

首先,我有一个单元格,它的值每天都在变化。 每天当这个单元格发生变化时,我希望它报告当天的值及其相应的日期

因此,我创建了两行=日期和值 我想让它在每次单元格值改变时都创建新的列

例如,今天这个单元格的值是10 然后,这将创建一个新列,其值为todays date和10。 明天单元格的值是12。 这将创建一个新列,其中日期为明天,值为12

因此,这将是一个历史性的时间框架,我可以回顾每一天的价值。 此外,我无法预测单元格的未来值,因此它必须根据每天显示的当前值创建新列

提前感谢:)


尝试查看youtube视频并在google上搜索类似问题,但没有成功。

尝试将此代码插入工作表代码:

Option Explicit

Private Sub Worksheet_Change(ByVal rngTarget As Range)
    Dim rngValue As Range: Set rngValue = Me.Range("B2")
    Dim rngDateValue As Range: Set rngDateValue = rngValue.Offset(-1, 0).Resize(2, 1)
    Dim rngNew As Range: Set rngNew = rngDateValue.Offset(0, 1)

    If Not Intersect(rngTarget, rngValue) Is Nothing Then
        rngNew.Insert xlShiftToRight, xlFormatFromLeftOrAbove
        Set rngNew = rngDateValue.Offset(0, 1) ' Restore modification caused by Insert
        rngNew.Value = rngDateValue.Value
    End If
End Sub
我假设您要保存的值在B2中,以及它上面的相应日期,如图所示:


它是如何变化的?您是否手动覆盖它?