Макрос Excel VBA: подсчет условно отформатированных ячеек (динамический диапазон) скачать в хорошем качестве

Макрос Excel VBA: подсчет условно отформатированных ячеек (динамический диапазон)

💼 Наймите меня для автоматизации Excel VBA Нужна помощь в автоматизации рабочих процессов Excel? Я специализируюсь на разработке индивидуальных решений для Excel VBA, которые сэкономят ваше время и избавят от повторяющихся задач. 👉 https://www.upwork.com/freelancers/~0... Макрос Excel VBA: подсчёт условно отформатированных ячеек (динамический диапазон). В этом видео мы создаём код, который автоматически подсчитывает все условно отформатированные ячейки в диапазоне, независимо от количества строк. Этот код позволяет пользователю легко подсчитывать условно отформатированные ячейки в нескольких столбцах, используя разные критерии для каждой ячейки. Мы используем окно сообщения и конструкцию Else If для учёта нулевого, одного или нескольких условно отформатированных ячеек в нашем подсчёте. Данные, использованные в этом видео: https://gsociology.icaap.org/datauplo... Это модификация кода из: https://www.excelsirji.com/vba-code-c... Код: Sub count_cond_cells() Dim rng As Range Dim rngCell As Range Dim row_count As Integer Dim cond_count As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ws.Activate row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown))) cond_count = 0 Set rng = ws.Range("D2:J" & row_count) For Each rngCell In rng If Ячейки(rngCell.Строка, rngCell.Столбец).ОтображениеФормата._ Интерьер.Цвет = RGB(255, 199, 206) Тогда cond_count = cond_count + 1 Конец Если Далее Если cond_count = 0 Тогда MsgBox "Условно отформатированных ячеек нет." ИначеЕсли cond_count = 1 Тогда MsgBox "Есть 1 условно отформатированная ячейка." Иначе MsgBox "Есть " & cond_count & " условно отформатированных ячеек." Конец Если Конец Подпрограммы #ExcelVBA #ExcelMacro