Re: Как сосчитать ячейки п

Вот он макрос. Я так понял, Вам эта цифра нужна для информации, а не для
вставки в какую-либо ячейку.
Sub Макрос1()
Dim cell As Range " Переменная для перебора адресов ячеек в диапазоне
Dim kolvo As Integer " Переменная-счётчик
kolvo = 0 " Устанавливаем счётчик в 0
For Each cell In Range("a1:g10").Cells " Здесь вместо a1:g10 укажете
ЛЮБОЙ диапазон
If cell.Interior.ColorIndex = ActiveCell.Interior.ColorIndex Then "
Цвет нашли?
kolvo = kolvo + 1 " Прокручиваем счётчик
End If
Next
MsgBox "Колличество ячеек с такой заливкой - " & kolvo " Выводим сообщение
End Sub



Предыдущие сообщения

::2009-02-20 ::Как сосчитать ячейки по ц

Похожие сообщения

::2009-02-20 ::Как сосчитать ячейки по ц

::2009-02-24 ::Re: Как сосчитать ячейки п

Сообщения рядом

::2009-02-24 ::Настройка Microsoft Office

::2009-02-24 ::Как написать число в степ

::2009-02-24 ::Re: Настройка Microsoft Office

::2009-02-24 ::Re: Как написать число в с



Архив эхо-конференции

Страницы ::
1 ::2 ::3 ::4 ::5 ::6 ::7 ::8