Подсчёт ячеек по цвету фона ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт ячеек по цвету фона ячейки (Макросы/Sub)

KIMVSR

Дата: Вторник, 14.07.2015, 14:46 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 118

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте,

Прошу помощи в вопросе подсчёта ячеек по цвету фона этих ячеек.

Нашёл вот такую вот статейку:

http://www.extendoffice.com/documen....or.html

Там схема действий и код:

[vba]

Код

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

[/vba]

Я скопировал этот код в свой sheet и стал применять формулы, указанные в мануале:

Цитата

Count the colored cells: =colorfunction(A,B:C,FALSE)
Sum the colored cells: =colorfunction(A,B:C,TRUE)

Разумеется, заменил значения в формулах на соответствующие значения из своей таблицы (файл прикрепил к теме).
Формулы работать отказываются!

Может кто-то смог бы объяснить мне, почему мои лыжи не едут? :-)
Был бы очень признателен!

К сообщению приложен файл: cell_color_vsr.xlsx (9.3 Kb)

Ответить

_Boroda_

Дата: Вторник, 14.07.2015, 14:49 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Потому, что сохранили файл в формате xlsx, а нужно в xlsm, или xlsb, или xls.

В xlsx макросы автоматически удаляются при сохранении - он специально так сделан для повышения безопасности.

К сообщению приложен файл: cell_color_vsr.xlsm (15.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

KIMVSR

Дата: Вторник, 14.07.2015, 15:34 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 118

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, огромное спасибо в очередной раз! pray

Прошу прощения за свою невнимательность!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт ячеек по цвету фона ячейки (Макросы/Sub)

Страница 1 из 1
1