Пользовательская функция с необязательными параметрами

[s_bag]

Пожалуйста, подскажите, что не так в коде. Пытаюсь сделать два параметра необязательными, но функция работает только, если выбираю три критерия...

Function СумЦвет(диапазон As Range, критерий1 As Range, Optional критерий2 As Range = "", _
Optional критерий3 As Range = "") As Double
' Суммирует значения ячеек в "диапазоне",
' цвет которых совпадает с цветом в ячейке одного из "критериев"
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Interior.Color = критерий1.Interior.Color Or _
i.Interior.Color = критерий2.Interior.Color Or _
i.Interior.Color = критерий3.Interior.Color Then
СумЦвет = СумЦвет + i
End If
Next
End Function

[Hugo121]

если есть критерий2 то
если есть критерий3 то

[EducatedFool]

Универсальный вариант функции (количество параметров не ограничено):

Function СумЦвет(диапазон As Range, ParamArray критерии() As Variant) As Double
    ' Суммирует значения ячеек в "диапазоне",
    ' цвет которых совпадает с цветом в ячейке одного из "критериев"
    Application.Volatile True
    Dim res As Boolean, cell As Range
    For Each cell In диапазон.Cells
        res = False
        For Each ra In критерии
            res = res Or ra.Interior.Color = cell.Interior.Color
        Next
        If res Then СумЦвет = СумЦвет + Val(Replace(cell, ",", "."))
    Next cell
End Function

Пример использования в формуле:

=СумЦвет(D1:D15;F3;I5;L11;N7)

[Hugo121]

Например так (побыстрее):

Function СумЦвет2(диапазон As Range, критерий1, Optional критерий2, _
                  Optional критерий3) As Double
' Суммирует значения ячеек в "диапазоне",
' цвет которых совпадает с цветом в ячейке одного из "критериев"
    Application.Volatile True
    Dim i As Range
    On Error Resume Next
    критерий1 = критерий1.Interior.Color
    критерий2 = критерий2.Interior.Color
    критерий3 = критерий3.Interior.Color
    On Error GoTo 0
    If IsMissing(критерий2) Then критерий2 = -1
    If IsMissing(критерий3) Then критерий3 = -1
    For Each i In диапазон
        Select Case i.Interior.Color
        Case Is = критерий1: СумЦвет2 = СумЦвет2 + i
        Case Is = критерий2: СумЦвет2 = СумЦвет2 + i
        Case Is = критерий3: СумЦвет2 = СумЦвет2 + i
        End Select
    Next

End Function

Но конечно возможны и другие варианты.

[Hugo121]

Ещё идея быстрого алгоритма для случая "много цветов и ячеек" (и для paramarray() тоже):
в начале кода собираем в словарь цвета критериев (именно значение цвета), затем в цикле по ячейкам каждую проверяем на наличие в словаре её цвета.
Так избавимся от лишних циклов в цикле и лишних проверок.

[maksim_serg]

Уважаемые знатоки, для общего развития объясните эту строчку:

Dim res As Boolean, cell As Range
    For Each cell In диапазон.Cells
        res = False
        For Each ra In критерии
            res = res Or ra.Interior.Color = cell.Interior.Color
        Next
        If res Then СумЦвет = СумЦвет + Val(Replace(cell, ",", "."))
    Next cell

[IgorGO]

опа!))

по типам операторов приоритеты такие
арифметические операторы
операторы сравнения
логические операторы
в каждом типе своя шкала приоритетов: знаете что 3+2*5 = 13 (а не 25).

res = res Or ra.Interior.Color = cell.Interior.Color

так вот в этой строке сначала выполниться оператор сравнения
ra.Interior.Color = cell.Interior.Color (результат ЛОЖЬ или ИСТИНА)
потом
логический оператор Or
потом оператор присвоения переменной res результата выполнения предыдущих операторов.
если бы было

res = res Or ra.Interior.Color = cell.Interior.Color*1

то самым первым выполнилось бы
cell.Interior.Color*1, а потом это уже сравнивалось бы с ra.Interior.Color и т.д.

[maksim_serg]

это то понятно, но если ее перевести на "русский" то получиться:
ИСТИНА(res = res) или ИСТИНА(ra.Interior.Color = cell.Interior.Color)
и что она должна сделать?

[IgorGO]

нет первый = это не сравнение это присвоение res = ...
встречались с таким i = i+1 у i теперь новое значение на 1 больше чем до того.
в результате выполнения этой строки
res = res Or ra.Interior.Color = cell.Interior.Color
res получит новое значение

[maksim_serg]

хорошо, переведем по другому:
res= ЛОЖЬ(Dim res As Boolean) или ИСТИНА(ra.Interior.Color = cell.Interior.Color)
и итог?