Доброго времени суток! Очень актуальный вопрос.
У меня есть работающая функция (спасибо старожилам планеты!), необходимо ее изменить.
Нужно, чтобы проверялось, находятся ли в ячейках диапазона буквы "А", "Б", "В", "Г", "Д".
Если выполняются условия по заливке (заливка в самой ячейке отсутствует, а соседняя через 1 - имеет заливку по образцу) и в ячейке - одна из перечисленных букв, то функция выдает значение True (иначе False).
Function Color1(rRange As Range, rColor As Range)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
For Each rCell In rRange
If rCell.Interior.Pattern = xlNone Then
If rCell.Offset(, 2).Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
End If
Next rCell
Color1 = vResult
End Function
У меня есть работающая функция (спасибо старожилам планеты!), необходимо ее изменить.
Нужно, чтобы проверялось, находятся ли в ячейках диапазона буквы "А", "Б", "В", "Г", "Д".
Если выполняются условия по заливке (заливка в самой ячейке отсутствует, а соседняя через 1 - имеет заливку по образцу) и в ячейке - одна из перечисленных букв, то функция выдает значение True (иначе False).
Function Color1(rRange As Range, rColor As Range)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
For Each rCell In rRange
If rCell.Interior.Pattern = xlNone Then
If rCell.Offset(, 2).Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
End If
Next rCell
Color1 = vResult
End Function