Загнать в аргумент функции несвязанные ячейки

Пользователь

Сообщений: 35 Регистрация: 28.10.2015

05.11.2015 23:25:52

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

все работает, когда диапазон - ячейка или ОДНА группа ячеек,
а как мне описать аргументы функции, если я должен сослаться на несколько групп ячеек?

=CountCellsByAnyColor(G6:H9) - вот так работает
=CountCellsByAnyColor(F5;H5;H8;F9;F12;I14;H16;G20) - а вот так нет

Код

Public Function CountCellsByAnyColor(DataRange As Range) As Double
    'считает кол-во ячеек с фоном не прозрачным
      Dim Kol As Double
      Application.Volatile True
      Kol = 0
      For Each cell In DataRange
        If cell.Interior.Color <> 16777215 Then
            Kol = Kol + 1
        End If
      Next cell
      CountCellsByAnyColor = Kol
End Function

Изменено: Dron_Spb - 05.11.2015 23:29:05

МВТ Пользователь Сообщений: 1198 Регистрация: 01.02.2015	#2 05.11.2015 23:47:58 Попробуйте передавать аргументы через ParamArray. Только не забывайте проверять тип переданных данных, прежде, чем использовать в коде функции

Dron_Spb

Пользователь

Сообщений: 35 Регистрация: 28.10.2015

05.11.2015 23:50:19

Цитата
МВТ написал: ParamArray

а можно пример какой-нибудь...
я что-то не включаюсь... - в аргументе массив прописать??

Hugo

Пользователь

Сообщений: 26284 Регистрация: 22.12.2012

05.11.2015 23:52:16

Код

Public Function CountCellsByAnyColor(ParamArray DataRange()) As Double
'считает кол-во ячеек с фоном не прозрачным
    Dim Kol As Double
    Application.Volatile True
    Kol = 0
    For Each cell In DataRange
    For Each c In cell.Cells
        If c.Interior.Color <> 16777215 Then
            Kol = Kol + 1
        End If
        Next
    Next cell
    CountCellsByAnyColor = Kol
End Function

На оба случая.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

06.11.2015 00:14:20

Цитата
Dron_Spb написал: =CountCellsByAnyColor(F5;H5;H8;F9;F12;I14;H16;G20) - а вот так нет

Вот так нужно: скобки - оператор объединения диапазонов

Код
=CountCellsByAnyColor((F5;H5;H8;F9;F12;I14;H16;G20))

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

06.11.2015 00:17:02

вообще-то функцию можно и не переписывать.
достаточно использовать при вызове еще одну парочку скобок.
=CountCellsByAnyColor((F5;H5;H8;F9;F12;I14;H16;G20))

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

Dron_Spb Пользователь Сообщений: 35 Регистрация: 28.10.2015	#7 06.11.2015 00:23:49 Hugo, Казанский, ikki Спасибо, друзья!!!!! я там еще обдолбался почему не работает по цвету в еденичном варианте - а оказалось очень просто - цвет рисовался "условным форматированием" ... Буду иметь ввиду!!

Читают тему