Подсчитать кол-во закрашенных зеленым цветом ячеек.
|
|
Mark1976 |
Дата: Четверг, 03.03.2022, 21:02 |
Сообщение № 1 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация:
3
±
Замечаний:
0% ±
 Excel 2010, 2013 | |
Здравствуйте. Мне надо в ячейку AJ5 поставить количество закрашенных зеленым цветом ячеек. Диапазон все месяца. Заранее спасибо.
Здравствуйте. Мне надо в ячейку AJ5 поставить количество закрашенных зеленым цветом ячеек. Диапазон все месяца. Заранее спасибо.Mark1976
Сообщение отредактировал Mark1976 - Четверг, 03.03.2022, 21:05 |
|
| Ответить
|
Nic70y |
Дата: Пятница, 04.03.2022, 08:15 |
Сообщение № 2 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
 Excel 2010 | |
ЮMoney 41001841029809
|
|
| Ответить
|
Mark1976 |
Дата: Пятница, 04.03.2022, 09:41 |
Сообщение № 3 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация:
3
±
Замечаний:
0% ±
 Excel 2010, 2013 | |
Nic70y, спасибо. Буду разбираться, но наврядли это получится, так как в кодах и формулах не силен (не понимаю как диапазон выделить?).
Nic70y, спасибо. Буду разбираться, но наврядли это получится, так как в кодах и формулах не силен (не понимаю как диапазон выделить?).Mark1976
|
|
| Ответить
|
Nic70y |
Дата: Пятница, 04.03.2022, 10:26 |
Сообщение № 4 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
 Excel 2010 | |
[vba]Код Function green_(u As Range) i = 0 For Each c In u If c.Interior.Color = 5296274 Then i = i + 1 Next green_ = i End Function [/vba]
[vba]Код Function green_(u As Range) i = 0 For Each c In u If c.Interior.Color = 5296274 Then i = i + 1 Next green_ = i End Function [/vba]Nic70y
ЮMoney 41001841029809
|
|
| Ответить
|
Mark1976 |
Дата: Пятница, 04.03.2022, 11:05 |
Сообщение № 5 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация:
3
±
Замечаний:
0% ±
 Excel 2010, 2013 | |
Nic70y, спасибо. Понимаю, что в лист встроен макрос. Как его найти? При заливке цифра 14 не меняется.
Nic70y, спасибо. Понимаю, что в лист встроен макрос. Как его найти? При заливке цифра 14 не меняется.Mark1976
|
|
| Ответить
|
Nic70y |
Дата: Пятница, 04.03.2022, 11:27 |
Сообщение № 6 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
 Excel 2010 | |
надо "дернуть" УДФку (формулу) в стандартном модуле. Alt+F11
надо "дернуть" УДФку (формулу) в стандартном модуле. Alt+F11Nic70y
ЮMoney 41001841029809
|
|
| Ответить
|
Mark1976 |
Дата: Пятница, 04.03.2022, 19:42 |
Сообщение № 7 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация:
3
±
Замечаний:
0% ±
 Excel 2010, 2013 | |
Nic70y, я так и не понял. ну не понимаю я эксель, так как Вы.
Nic70y, я так и не понял. ну не понимаю я эксель, так как Вы.Mark1976
|
|
| Ответить
|
Serge_007 |
Дата: Пятница, 04.03.2022, 22:53 |
Сообщение № 8 |
|
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
 Excel 2016 | |
ЮMoney:41001419691823 | WMR:126292472390
|
|
| Ответить
|