простинький макросс

[moose123]

Добрый день всем!

Помогите пожалуйста с написанием макросса

Задачу прикрепляю в виде рисунка

Нужно чтобы сверяло каждую дату из столбца D c каждой датой из столбца С и если больше чем в годе дней, тогда в столбец Е умножать на 0. тоесть нужно чтобы последняя дата была не больше чем 1 год.

вот что я написал но выводит ошибку, пока не разобрался в чем ошибка, так как новичек в этом деле

вот код:

Sub myMacro()
Dim i As Integer
Dim k As Integer
i = 1
k = 1
Do While Cells(i, 4) <> ""
    Do While Cells(k, 3) <> ""
        If Cells(i, 4) - Cells(k, 3) >= 365 Then Cells(k, 5) = 0
        k = k + 1
    Loop
    i = i + 1
Loop

End Sub

[SAS888]

Для вычитания дат используйте функцию DateDiff, которая подробно описана в справке по VBA Excel.

[moose123]

Да даты оно отнимает, проблема в том что я не знаю как правильно сделать цикл, сверяло каждую дату из столбца D c каждой датой из столбца С, а вторая - если больше чем в годе дней, тогда в столбец Е умножать на 0.

[moose123]

Ничего не выходить ( , люди помогите )

[The_Prist]

Зачем Вам дополнительный цикл по одной и той же информации? Думаю, так будет проще:

Sub myMacro()
Dim li As long
For li = 1 to cells(rows.count,4).end(xlup).row
        If (Cells(li, 4) - Cells(li, 3)) >= 365 Then Cells(li, 5) = 0
next li
End Sub

Про cells(rows.count,4).end(xlup).row см.здесь.

[moose123]

Спасибо за ответ, но почемуто когда я нажимаю запуск, ничего не происходит (

может действительно оно не отнимает даты (

[The_Prist]

Сообщение от moose123

почемуто когда я нажимаю запуск, ничего не происходит (

Если судить по скрину, то и не должно. У Вас там нет разности дат в 365 дней и более.
Если же такие даты есть - то неплохо бы взглянуть на файл и на то, как и где Вы расположили код.

[DiemonStar]

Function YearDiff(ByVal Date1 As Date, ByVal Date2 As Date) As Integer
  YearDiff = Year(Date2) - Year(Date1) + IIf(Month(Date2) + IIf(Day(Date2) < Day(Date1), -1, 0) < Month(Date1), -1, 0)
End Function

примерно такая функция будет работать правильнее (учитывая и високосные года в том числе). Выводит только количество полных календарных лет.

[moose123]

Сообщение от The_Prist

Если судить по скрину, то и не должно. У Вас там нет разности дат в 365 дней и более.
Если же такие даты есть - то неплохо бы взглянуть на файл и на то, как и где Вы расположили код.

Почему не должно?
Я не сравниваю D2-C2, ... D5-C5, мне надо сравнить D2-C2, D3-C2 D3-C3, D4-D2 D4-D3 D4-D4, и т.д.

И что вы имеете в виду "как и где Вы расположили код."
Табличка у меня точно такая как на скрине, я нажал Алт-Ф11 на текущем листе создал макрос, сохранил, и нажал запустить.

[moose123]

Сообщение от DiemonStar

Function YearDiff(ByVal Date1 As Date, ByVal Date2 As Date) As Integer
  YearDiff = Year(Date2) - Year(Date1) + IIf(Month(Date2) + IIf(Day(Date2) < Day(Date1), -1, 0) < Month(Date1), -1, 0)
End Function

примерно такая функция будет работать правильнее (учитывая и високосные года в том числе). Выводит только количество полных календарных лет.

Спасибо, да мне нужно также учитывать и высокосный год, но в том что вы написали я ни грамма не понимаю, мне нужно вставить данную функцию вместо числа "365" ?, извените за глупый вопрос.