Создать журналы для каждой записи

Question

У меня есть только одна ячейка (скажем, A2) на Листе1 для обновления, и каждый раз, когда я обновляю только A2 на Листе1, я хочу записывать журнал каждой записи отдельно с указанием даты и времени на другом листе2 строка за строкой.

Например, я сначала добавил Apple в A2 Sheet1, и в Sheet2 должна быть запись «Apple» в одном столбце, а «Дата и время» в другом столбце 01.01.2009 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