Question

Sheet1中只有一个单元格（例如A2）需要更新，并且每次我只更新Sheet1中的A2时，我都希望逐行分别记录每个条目的日志以及日期和时间。

例如，我首先在Sheet1的A2中添加了Apple，并且应在Sheet2中以Apple的形式输入Apple，在另一列的Date and Time是01/01/2019 10:00 AM。下次我再次将A2从Apple更新为Mango时，Sheet2应该以不同的时间戳反映Apple和Mango。

希望问题很明确。请帮助我。

Answer 1

我将从这个开始：

https://support.microsoft.com/en-us/help/213612/how-to-run-a-macro-when-certain-cells-change-in-excel

然后在该子项中，找到日志中的下一个空白单元格并将该值更新为：

Now() & " Updated to: " & Sheets("Sheet1").Range("A2").Value

Answer 2

您可以使用输入框：

Sub updateA2()

    Dim oldValue As String
    Dim newValue As String
    Dim OpenCell As Range

    oldValue = Worksheets("sheet1").Range("A2").Value

    newValue = InputBox(Prompt:="Type a new value for A2.")

    Worksheets("sheet1").Range("A2").Value = newValue

    Set OpenCell = Worksheets("sheet2").Range("A1").End(xlDown)

    'Make sure you have row headings and one row of data alread entered or this will go too far down
    OpenCell.Value = oldValue
    OpenCell.Offset(0, 1).Value = newValue
    OpenCell.Offset(0, 2).Value = Now()
    OpenCell.Offset(0, 3).Value = Environ("Username")


End Sub

为每个条目创建日志

2 个答案: