Использование Application.WorksheetFunction.CountIfs

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование Application.WorksheetFunction.CountIfs (Макросы/Sub)

Sashagor1982

Дата: Суббота, 13.06.2015, 00:12 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте уважаемые форумчане. Вопрос состоит в следующем.
[vba]

Код

Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел")

[/vba]
Как можно использовать данное свойство, если еще необходимо учесть что столбец 9 НЕ ПУСТОЙ, если WorksheetFunction.CountIfs использовать нельзя, то чем можно заменить? заранее спасибо

Сообщение отредактировал Sashagor1982 - Суббота, 13.06.2015, 00:12

Ответить

KSV

Дата: Суббота, 13.06.2015, 00:43 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

так, добавьте еще одно условие:
[vba]

Код

Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел", Sheets("Лист1").Columns(9), ">""""")

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

ShAM

Дата: Суббота, 13.06.2015, 06:44 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Можно так: [vba]

Код

Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел", Sheets("Лист1").Columns(9), "<>")

[/vba]

Ответить

Sashagor1982

Дата: Суббота, 13.06.2015, 10:01 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Еще одно уточнение, а как можно доработать условие, если необходимо что бы столбец был не пустой и значение содержало "вч", например "вч45377"? А так же наоборот, что бы не содержало?

Ответить

Manyasha

Дата: Суббота, 13.06.2015, 10:25 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Sashagor1982, почему сразу не уточнили?
[vba]

Код

'Начинается на вч
Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел", Sheets("Лист1").Columns(9), "вч*")
'Не начинается на вч, включая пустые ячейки
Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел", Sheets("Лист1").Columns(9), "<>вч*")
'Не начинается на вч, среди Непустых ячеек
Mprap = Application.WorksheetFunction.CountIfs(Sheets("Лист1").Columns(5), v, Sheets("Лист1").Columns(8), "чел", Sheets("Лист1").Columns(9), "<>", Sheets("Лист1").Columns(9), "<>вч*")

[/vba]
UPD.
Если нужно проверить именно содержание, не важно где, в начале или в конце, напр. "вч123", "12вч34", то вместо "вч*" поставьте "*вч*"

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Суббота, 13.06.2015, 10:28

Ответить

Sashagor1982

Дата: Суббота, 13.06.2015, 14:30 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Спасибо

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование Application.WorksheetFunction.CountIfs (Макросы/Sub)

Страница 1 из 1
1