VBA L oop и DateDiff - PullRequest
       0

VBA L oop и DateDiff

0 голосов
/ 30 января 2020

Я сейчас работаю над проектом на VBA. При реализации l oop я столкнулся с проблемами, так как мои формулы не работают. Если бы кто-нибудь мог помочь мне, я был бы очень признателен. Предполагалось подсчитать количество дней от заказа до даты отгрузки, а затем создать al oop, чтобы показать столько же результатов, сколько фильтр. Макрос будет назначен новой кнопке, поэтому он не будет иметь никаких связей с фильтрацией. Я считаю, что проблема заключается в l oop.

Sub DateDiff_Day()
Range("O8").Select
Do Until ActiveCell.Value = " "
Dim datValue1 As Date
Dim datValue2 As Date
datValue1 = Worksheets("Adv.filter, Pivot, Chart").Range("F8")
datValue2 = Worksheets("Adv.filter, Pivot, Chart").Range("H8")
CopyToRAnge: Worksheets("Adv.filter, Pivot, Chart").Range("O8") = DateDiff("d", datValue1, datValue2)
 Loop
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...