Автоматически подсчитывать цветные ячейки с помощью VBA в Excel

ГлавнаяДругие контенты, Новости, ТехнологииАвтоматически подсчитывать цветные ячейки с помощью VBA в Excel
Автоматически подсчитывать цветные ячейки с помощью VBA в Excel
Автоматически подсчитывать цветные ячейки с помощью VBA в Excel
Автоматически подсчитывайте цветные ячейки с помощью VBA в Excel. Настройте листы для удобного подсчета цветных ячеек. Бесплатные шаблоны и шаблоны с кодом доступны для приобретения за 50 долларов США.
https://www.easyexcelanswers.com/templates.html

Нажмите на эту ссылку, чтобы ознакомиться с моим индивидуальным обучением http://www.calendly.com/easyexcelanswers

Для получения дополнительной помощи посетите мой веб-сайт www.easyexcelanswers.com или напишите мне по адресу [email protected].

Свяжитесь со мной по поводу настройки этого шаблона для ваших нужд.

Нажмите, чтобы получить онлайн-консультацию по Excel http://www.calendly.com/easyexcelanswers

Вы изо всех сил пытаетесь обновить данные Microsoft SQL Server?
Я рекомендую использовать хорошо известный Excel для обновления и управления вашими данными в SQL Server с помощью надстройки Excel SQL Spreads.
Нажмите https://sqlspreads.com/?pidbarbhenderson, чтобы узнать, как SQL Spreads лучше всего работает для конечных пользователей, не обладающих техническими знаниями, и загрузите нашу бесплатную 14-дневную пробную версию. Вы получите два месяца бесплатно при покупке годовой подписки по нашей ссылке.

Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене.

https://www.amazon.com/shop/barbhenderson

Для записи видео я использую синий конденсаторный микрофон, вот ссылка
https://amzn.to/37gyyGa

Используйте Crowdcast для создания вебинаров
https://app.linkmink.com/a/crowdcast/83

Я использую Tube Buddy для продвижения своих видео.
Проверь их
https://www.Tubebuddy.com/easyexcelanswers

Следуйте за мной на Facebook
https://www.facebook.com/easyexcel.answers

НАПИШИТЕ ЭТО ВИДЕО В Твиттере

Подпишись на меня в Твиттере
EasyExcelОтветы

ИГ @barbhendersonconsulting

Вы можете помочь и создать перевод на ваш родной язык.
http://www.youtube.com/timedtext_cs_panel?cUCFH2kZykqt-VX5W9waJzYvQ&tab2

*данное описание может содержать партнерские ссылки. Когда вы нажмете на них, я могу получить небольшую комиссию без каких-либо дополнительных затрат с вашей стороны. Я рекомендую только те продукты и услуги, которыми сам пользовался или с которыми имел опыт.

Как вставить код VBA в Excel https://youtu.be/AByFH0TN53M

код
Подавтоcntcol()
Тусклый диапазон ячеек, диапазон ячеек2 как диапазон
Dim tarc1, tarc2, tarc3 как диапазон
Затемнить TargetColor как можно дольше
Тусклый счет до тех пор, пока
Dim c как диапазон
Установить диапазон ячеек Sheet1.Range(/"F2:F14/")
Установить диапазон ячеек2 Sheet1.Range(/"G2:G14/")
Установите tarc1 Sheet1.Range(/"A4/")
Установите tarc2 Sheet1.Range(/"A5/")
Установите tarc3 Sheet1.Range(/"A8/")
'ниже
TargetColor tarc1.DisplayFormat.Interior.Color 'цвет ячейки в формате A4
Для каждого c In cellrange 'в столбце f
Если c.DisplayFormat.Interior.Color TargetColor Тогда подсчитайте подсчет 1
Следующий в
ниже графа
Диапазон(/"B4/") ниже
'выше
TargetColor tarc2.DisplayFormat.Interior.Color 'цвет ячейки в формате A5
Для каждого c In cellrange 'в столбце f
Если c.DisplayFormat.Interior.Color TargetColor Тогда Count1 Count1 1
Следующий в
выше Count1
Диапазон(/"B5/") выше
'более
TargetColor tarc3.DisplayFormat.Interior.Color 'цвет ячейки в формате A8
Для каждого c In cellrange2 'в столбце g
Если c.DisplayFormat.Interior.Color TargetColor Тогда Count2 Count2 1
Следующий в
подробнее
Диапазон(/"B8/") подробнее
Конец субтитра

Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.

No Comments

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *