Заранее благодарим за любую помощь, которую вы можете предложить.
С помощью этого сайта я создал следующую функцию;
Функция ColorFunction (rColor As Range, rRange As Range, необязательная SUM As Boolean)
Dim rCell как диапазон
Дим lCol как долго
Тусклый результат
lCol = rColor.Interior.ColorIndex
Если СУММ = Истина Тогда
Для каждой rCell в rRange
Если rCell.Interior.ColorIndex = lCol Тогда
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Следующая ячейка
Еще
Для каждой rCell в rRange
Если rCell.Interior.ColorIndex = lCol Тогда
vрезультат = 1 + vрезультат
End If
Следующая ячейка
End If
ЦветФункция = vРезультат
End Function
В каждой целевой ячейке мне нужна сумма всех ячеек в этой строке, содержащих цвет указанной ячейки;
= функция цвета (AR4, H5: AP5, ИСТИНА)
Как я могу заставить целевую продажу обновляться, когда любая другая ячейка в строке (H5: AP5) меняет цвет?
С помощью этого сайта я создал следующую функцию;
Функция ColorFunction (rColor As Range, rRange As Range, необязательная SUM As Boolean)
Dim rCell как диапазон
Дим lCol как долго
Тусклый результат
lCol = rColor.Interior.ColorIndex
Если СУММ = Истина Тогда
Для каждой rCell в rRange
Если rCell.Interior.ColorIndex = lCol Тогда
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Следующая ячейка
Еще
Для каждой rCell в rRange
Если rCell.Interior.ColorIndex = lCol Тогда
vрезультат = 1 + vрезультат
End If
Следующая ячейка
End If
ЦветФункция = vРезультат
End Function
В каждой целевой ячейке мне нужна сумма всех ячеек в этой строке, содержащих цвет указанной ячейки;
= функция цвета (AR4, H5: AP5, ИСТИНА)
Как я могу заставить целевую продажу обновляться, когда любая другая ячейка в строке (H5: AP5) меняет цвет?