Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Счёт количества дат , входящих в диапазон. VBA, Application.WorksheetFunction.CountIfs
 
#1
09.09.2019 15:12:13
Добрый день. Не выходит сосчитать диапазон дат.
Можно и циклом, думаю. Но всё же интересно, как правильно написать условия в скобках...?

Помогите пожалуйста. На форуме не увидел по поиску(

Set RangeDat = sh_bb.Range(Cells(8, 61), Cells(lr, 61))
c = Application.WorksheetFunction.CountIfs(RangeDat, ">=" & DateOfChecking1, RangeDat, "<=" & DateOfChecking2)
c = Application.WorksheetFunction.CountIfs(RangeDat, ">=DateOfChecking1", RangeDat, "<=DateOfChecking2")
Оба варианта возвращают 0

Благодарю!
Изменено: frowzy - 09.09.2019 15:13:53
 
 
 
#2
09.09.2019 15:24:44
не видя данных, можно сказать что 0 правильный ответ.
плюс секреты,  DateOfChecking1 и  DateOfChecking2 что в них?
 
 
 
#3
09.09.2019 15:29:27
V,
DateOfChecking1 as date , DateOfChecking2  as date.
В них забраны даты из массива дат.
DateOfChecking1  01.09.2019
DateOfChecking2  08.09.2019

В диапазоне дат такие даты есть.

c = Application.WorksheetFunction.CountIfs(RangeDat, DateOfChecking1) - считает корректно
Изменено: frowzy - 09.09.2019 15:30:17
 
 
 
#4
09.09.2019 15:32:01
Намек не понят. :) Тогда так. Файл показываем.
 
 
 
#5
09.09.2019 15:50:02
Файл пример.
 
 
 
#6
09.09.2019 16:04:44
Код
Dim DateOfChecking1 As Double, DateOfChecking2 As Double, Fordate, c&, RangeDat, lr&
lr = Sheets("my").Cells(Rows.Count, 1).End(xlUp).Row
Set RangeDat = Range(Cells(1, 1), Cells(lr, 1))
Fordate = Split(Sheets("my").Range("B1"), "-")
DateOfChecking1 = DateValue(Fordate(0)): DateOfChecking2 = DateValue(Fordate(1))
c = Application.WorksheetFunction.CountIfs(RangeDat, ">=" & DateOfChecking1, RangeDat, "<=" & DateOfChecking2)
 
 
 
#7
09.09.2019 16:11:14
V,
У Вас считает?
По прежнему "0"  :sceptic:  у меня(

хотя сек. ошибка у меня.



Всё! Работает, сам виноват, не внимателен чуть) Огромное спасибо  :)  :)  :)  
Изменено: frowzy - 09.09.2019 16:16:03
 
 
 
#8
09.09.2019 16:15:05
Цитата
frowzy написал:
У Вас считает?
не проверял верно или нет но считало.
 
 
 
Страницы: 1
Наверх