Перебирая список дат для отображения даты

Question

Я пытаюсь создать макрос, который, как и многие другие, проведет l oop по датам в столбце, сравнит его с «датой исполнения» и покажет количество оставшихся дат

К сожалению, макрос, который я написал, не дает желаемого результата и вместо этого дает мне огромное количество.

мой код для этой части до сих пор:

Sub calcDays()

Dim dueDate As Date
Dim macroLastRow As Long
Dim macroWs As Worksheet


Set macroWs = ThisWorkbook.Worksheets("Macro")

macroLastRow = macroWs.Range("A" & Rows.Count).End(xlUp).Row
dueDate = Range("B1").Value


For i = 2 To macroLastRow

Cells(i, 2).Value = DateDiff("d", i, dueDate)

Next i



End Sub

Это то, что я получаю после запуска макроса:

Я надеюсь, что вы, ребята, сможете дать совет! Большое спасибо заранее!

Answer 1

Нет значения, присвоенного invoiceDate. Вы можете заменить его на Cells(i, 1).Value, и это сделает свое дело.
Я также рекомендовал бы вам включить настройку «Требуется объявление переменной». Вы можете найти способ сделать это здесь в ответе.

Кроме того, отмените мою правку на ваш пост, чтобы проблема осталась.