Как автоматически добавлять значения в Excel каждый день

Question

Здравствуйте, я хотел бы знать, возможно ли добавлять значения в уже существующие значения каждый день.Например, у меня есть несколько транспортных средств в таблице Excel, и я хочу добавлять специальные значения каждый день.Значения одинаковы каждый день.Транспортное средство имеет 150 км, а завтра будет 200 км.Как я могу сделать это обновлять ежедневно автоматически?Заранее спасибо!

Answer 1

Я докажу образец кода, который может вам помочь:

Option Explicit

Sub test()

    Dim LastRow As Long, i As Long, KMS As Long, AdditionalValue As Long
    Dim Vehicle As String
    Dim stDate As Date

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

            For i = 2 To LastRow

                AdditionalValue = 50
                stDate = .Range("A" & i).Value
                Vehicle = .Range("B" & i).Value
                KMS = .Range("C" & i).Value

                Do Until stDate = Date

                    KMS = KMS + AdditionalValue
                    stDate = stDate + 1

                Loop

                .Range("D" & i).Value = KMS

            Next i

    End With

End Sub

Результаты: