Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Счётеслимн на VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Счётеслимн на VBA (Формулы/Formulas)
Счётеслимн на VBA
noelnoel93 Дата: Четверг, 28.07.2022, 16:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Добрый вечер.Нужно посчитать сколько раз встречается то или иное значение в таблице с учетом даты. В примере я показал это с помощью формулы СЧЁТЕСЛИМН. А как реализовать это на VBA?
К сообщению приложен файл: 8469051.xlsx (14.4 Kb)


Сообщение отредактировал noelnoel93 - Четверг, 28.07.2022, 17:45
 
Ответить
СообщениеДобрый вечер.Нужно посчитать сколько раз встречается то или иное значение в таблице с учетом даты. В примере я показал это с помощью формулы СЧЁТЕСЛИМН. А как реализовать это на VBA?

Автор - noelnoel93
Дата добавления - 28.07.2022 в 16:53
boa Дата: Пятница, 29.07.2022, 13:00 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

365
noelnoel93, Здравствуйте

[vba]
Код
Function MyCOUNTIFS(Arg1 As Range, Arg2 As Variant, Arg3 As Range, Arg4 As Variant)
    
    MyCOUNTIFS = Application.WorksheetFunction.CountIfs(Arg1, Arg2, Arg3, Arg4)
    
End Function
[/vba]
К сообщению приложен файл: 8469051.xlsb (18.5 Kb)


 
Ответить
Сообщениеnoelnoel93, Здравствуйте

[vba]
Код
Function MyCOUNTIFS(Arg1 As Range, Arg2 As Variant, Arg3 As Range, Arg4 As Variant)
    
    MyCOUNTIFS = Application.WorksheetFunction.CountIfs(Arg1, Arg2, Arg3, Arg4)
    
End Function
[/vba]

Автор - boa
Дата добавления - 29.07.2022 в 13:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Счётеслимн на VBA (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!