Подсчитать количество ячеек во всей книге, где встречается слово "Выдан" - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы