Подсчитать количество ячеек во всей книге, где встречается слово "Выдан" - VBA

Узнай цену своей работы

Формулировка задачи:

Есть книга Excel. количество листов может быть от 20 до 200. необходимо подсчитать сколько ячеек содержит слово "Выдан" во всей книге и вывести сообщением на экран. слово "Выдан" в ячейке может располагаться, как в начале текста в ячейке, как в середине текста в ячейке, так и в конце. прошу помочь с написанием макроса!!! заранее благодарен!!

Решение задачи: «Подсчитать количество ячеек во всей книге, где встречается слово "Выдан"»

textual
Листинг программы
Private Sub Test()
    Dim iList As Worksheet, iCount&
    For Each iList In Worksheets
        iCount = iCount + Application.CountIf(iList.UsedRange, "*выдан*")
    Next
    MsgBox "Количество искомых ячеек = " & iCount, , ""
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.571 из 5
Похожие ответы