СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ - Microsoft Office Excel - Страница 2

fantastik · 29.01.2009, 14:34

Спасибки за формулу!!!
Я её немного изменил и теперь можно сумировать и по цвету шрифта!!!

Function sumRangeColorF(iObrazets, iDiapazon) As Double

iColor = iObrazets.Font.ColorIndex

For Each iCell In iDiapazon
If iCell.Font.ColorIndex = iColor Then
If IsNumeric(iCell) = True Then
sumRangeColorF = sumRangeColorF + iCell
End If
End If
Next

End Function

fantastik · 29.01.2009, 14:35

Спасибки за формулу!!!
Я её немного изменил и теперь можно сумировать и по цвету шрифта!!!

Function sumRangeColorF(iObrazets, iDiapazon) As Double

iColor = iObrazets.Font.ColorIndex

For Each iCell In iDiapazon
If iCell.Font.ColorIndex = iColor Then
If IsNumeric(iCell) = True Then
sumRangeColorF = sumRangeColorF + iCell
End If
End If
Next

End Function

))))))))))))))))))))))))))))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разный цвет фона в таблице (php)	Lonix	PHP	2	04.10.2008 21:39
Суммирование определенных ячеек при переносе	Pilot	Microsoft Office Excel	5	17.07.2008 12:46
Суммирование ячеек с флажками	69angel69	Microsoft Office Excel	2	04.03.2008 18:23
Суммирование ячеек с заданным шагом	valerij	Microsoft Office Excel	10	10.10.2007 00:22
Стили ячеек. Цвет фона, шрифт: размер, начертание ..	Virtson	Microsoft Office Excel	3	10.03.2007 16:19

29.01.2009, 14:34	#11
fantastik Регистрация: 29.01.2009 Сообщений: 3	Спасибки за формулу!!! Я её немного изменил и теперь можно сумировать и по цвету шрифта!!! Function sumRangeColorF(iObrazets, iDiapazon) As Double iColor = iObrazets.Font.ColorIndex For Each iCell In iDiapazon If iCell.Font.ColorIndex = iColor Then If IsNumeric(iCell) = True Then sumRangeColorF = sumRangeColorF + iCell End If End If Next End Function

29.01.2009, 14:35	#12
fantastik Регистрация: 29.01.2009 Сообщений: 3	Спасибки за формулу!!! Я её немного изменил и теперь можно сумировать и по цвету шрифта!!! Function sumRangeColorF(iObrazets, iDiapazon) As Double iColor = iObrazets.Font.ColorIndex For Each iCell In iDiapazon If iCell.Font.ColorIndex = iColor Then If IsNumeric(iCell) = True Then sumRangeColorF = sumRangeColorF + iCell End If End If Next End Function ))))))))))))))))))))))))))))