Подсчитать количество вхождений строки в диапазоне - PullRequest
0 голосов
/ 16 мая 2019

Я пытаюсь выполнить проверку, если пользователь правильно отфильтровал определенный столбец.

Моя идея состоит в том, что я получу (1) общее количество видимых строк и (2) получу общее количество видимых строк, в которых есть строка "TKF *".

Если 1-й = 2-й, тогда будет выполнен код, в противном случае появится уведомление для участника проверить фильтр.

Теперь у меня проблема с подсчетом количества строк, в которых есть строка "TKF *" только в видимой строке. Я попытался CountIf, но он все еще считает нефильтрованные строки, которые содержат строку. Ниже приведены текущие коды, которые у меня есть:

Dim rng As Range
Dim VRows As Integer
Set rng = ActiveSheet.AutoFilter.Range
VRows = rng.Columns(1).SpecialCells(xlCellTypeVisible).count - 1 'count of total visible rows

Dim TKFcount As Integer
TKFcount = Application.CountIf(Range("C1:C100"), "TKF*")

If VRows = TKFcount Then
'some code here
Else
'notify user to check filter
End If

Я попытался найти в сети некоторые решения, но все, что я могу найти, это то, что CountIf не исключает нефильтрованные строки. Цените, если кто-то может просветить меня и посоветовать альтернативу?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...