https://www.easyexcelanswers.com/templates.html
Для получения дополнительной помощи посетите мой веб-сайт http://www.easyexcelanswers.com или напишите мне по адресу [email protected].
Свяжитесь со мной по поводу настройки этого шаблона для ваших нужд.
Нажмите, чтобы получить онлайн-консультацию по Excel http://www.calendly.com/easyexcelanswers
Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене.
https://www.amazon.com/shop/barbhenderson
Для записи видео я использую синий конденсаторный микрофон, вот ссылка
https://amzn.to/37gyyGa
Используйте Crowdcast для создания вебинаров
https://app.linkmink.com/a/crowdcast/83
Если вам нужно купить Office 2019, следуйте
https://amzn.to/2VX5dv8
Я использую Tube Buddy для продвижения своих видео.
Проверь их
https://www.Tubebuddy.com/easyexcelanswers
Следуйте за мной на Facebook
https://www.facebook.com/easyexcel.answers
НАПИШИТЕ ЭТО ВИДЕО в Твиттере https://youtu.be/6Zjs2NqZTJQ
Подпишись на меня в Твиттере
EasyExcelОтветы
ИГ @barbhendersonconsulting
Вы можете помочь и создать перевод на ваш родной язык.
http://www.youtube.com/timedtext_cs_panel?cUCFH2kZykqt-VX5W9waJzYvQ&tab2
*это описание может содержать партнёрские ссылки. Когда вы нажмете на них, я могу получить небольшую комиссию без каких-либо дополнительных затрат с вашей стороны. Я рекомендую только те продукты и услуги, которыми сам пользовался или с которыми имел опыт.
Код
Функция COUNTConditionColorCells(CellsRange как диапазон, ColorRng как диапазон)
'сделать рабочий лист всегда обновляемым
Приложение.Волатильный
'определить мои переменные
Тусклая работа как логическое значение
Dim dbw как строка
Уменьшить CFCELL как диапазон
Dim CF1 как одиночный
Dim CF2 как двойной
Тусклый CF3 как долго
Работать неверно
'для первого условного формата на количество условий в диапазоне
Для CF1 1 в CellsRange.FormatConditions.Count
'если первый цвет условия находится в диапазоне, то начинаем отсчет
Если CellsRange.FormatConditions(CF1).Interior.ColorIndex ColorRng.Interior.ColorIndex Тогда
Работайте верно
Выход для
Конец, если
Следующий CF1
CF2 0
CF3 0
Если работа верна, то
Для каждого CFCELL в CellsRange
'считаем цвета в диапазоне
dbw CFCELL.FormatConditions(CF1).Формула1
dbw Application.ConvertFormula(dbw, xlA1, xlR1C1)
dbw Application.ConvertFormula(dbw, xlR1C1, xlA1, , ActiveCell.Resize(CellsRange.Rows.Count, CellsRange.Columns.Count).Cells(CF3 1))
Если Evaluate(dbw) True Тогда CF2 CF2 1
CF3 CF3 1
Следующий CFCELL
Еще
COUNTConditionColorCells /"НЕТ ЦВЕТА/"
Выход из функции
Конец, если
COUNTConditionColorCells CF2
Конечная функция
Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.
No Comments