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

Без имени, 124 просмотра

Т.е. по определенному сочетанию клавиш макрос считает на всех листах книги ячейки, закрашенные черным цветом, и выводит их количество, например на активном листе в ячейке А1.

Ответы:

Младшенький

Sub NoName()
Dim lngI As Long
Dim objSh As Worksheet
Dim objC As Range
lngI = 0
For Each objSh In ThisWorkbook.Worksheets
For Each objC In objSh.UsedRange
If objC.Interior.Color = vbBlack Then
lngI = lngI + 1
End If
Next
Next
ActiveSheet.Range("A1") = lngI
End Sub

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.