Добрый день.
помогите пжлст написать макрос который будет считать количество вхождений удовлетворяющих заданным параметрам.
есть диапазон закрашенных ячеек в столбце А.
я нашел (благодаря вашему форуму) диапазон с какой ячейки начинается и заканчивается заливка. желтый цвет.
N - номер строки с которой начинается
Z - номер строки с которой заканчивается
нужно задать диапазон с N и Z
в рамках этого диапазона провести проверку сколько строк удовлетворяющих условиям:
1. если ячейка в столбце А закрашена жёлтым
2. если ячейка в столбце B равна 1
3. если ячейка в столбце С равна "годен"
не работает
помогите пжлст))
помогите пжлст написать макрос который будет считать количество вхождений удовлетворяющих заданным параметрам.
есть диапазон закрашенных ячеек в столбце А.
я нашел (благодаря вашему форуму) диапазон с какой ячейки начинается и заканчивается заливка. желтый цвет.
N - номер строки с которой начинается
Z - номер строки с которой заканчивается
нужно задать диапазон с N и Z
в рамках этого диапазона провести проверку сколько строк удовлетворяющих условиям:
1. если ячейка в столбце А закрашена жёлтым
2. если ячейка в столбце B равна 1
3. если ячейка в столбце С равна "годен"
Код |
---|
Dim rgPoisk As Range, kol As Long, N,Z As Variant For Each rgPoisk In ActiveSheet.Range(Cells(N, 1), Cells(Z, 1)) kol =0 If Cells(rgPoisk, 1).Interior.Color = x And Cells(rgPoisk, 2) = 1 And Cells(rgPoisk, 3) = "годен" Then kol = kol + 1 Else: End If Next rgPoisk Debug.Print kol End Sub |
помогите пжлст))