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

программирование excel

Т.е. по определенному сочетанию клавиш макрос считает на всех листах книги ячейки, закрашенные черным цветом, и выводит их количество, например на активном листе в ячейке А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


10 лет назад

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

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

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