Суммирование клеток по цвету

Автор vipmax77, 28 января 2013, 21:18

0 Пользователи и 1 гость просматривают эту тему.

Hasim

Исправленный вариант.

[вложение удалено Администратором]

vipmax77

Цитата: Hasim от 29 января 2013, 11:12
Исправленный вариант.

ОГРОМНОЕ СПАСИБО!!! ТЕПЕРЬ ВСЁ ЯСНО И ПОНЯТНО!

Smaigas

Цитата: vipmax77 от 29 января 2013, 11:01
...
Спасибо! Но у меня всё равно не пашет((((((( в чём дело?((((

Почему не пашет не знаю. Оказывается я не полностью вник в суть вопроса и не то считал(я считал количество ячеек), не важно, правильное решение Тебе уже и так подсказали.

Hasim

Цитата: Smaigas от 29 января 2013, 10:40Почему не пашет не знаю.
Какие формулы стоят в F2 и G2?
Они то и выдают ошибку #ССЫЛКА!

Smaigas

=SUM(D4:D500000) и =SUM(E4:E500000) соответственно. Только почему то после записи в XLS и повторном открытии и у меня выдаёт #REF!.

Hasim

Цитата: Smaigas от 29 января 2013, 12:24=SUM(D4:D500000) и =SUM(E4:E500000)
Ну вы и хватанули!
500 000 строк в Экселе!?

Smaigas

А что я знаю? Я в нём не работаю! А Calc сжёвывает ;) (всё равно считал не то)

Hasim

#22
В Экселе всего 65536 строк.

А в Calc 1 миллион с гаком.
Только зачем это нужно?
Calc и на 5000 еле ворочается!

Leojse

#23
Запаздало пишу, но, может кому-то еще нужно)...
Попробуйте этот код vba:
Function СУММ_ЦВЕТ(Диапазон_суммирования As Range, Цвет_берется_из_ячейки As Range)
For Each cll In Диапазон_суммирования.Cells
If cll.Interior.ColorIndex = Цвет_берется_из_ячейки.Interior.ColorIndex Then
   summa = summa + cll.Value
End If
Next
СУММ_ЦВЕТ = summa
End Function

Формула      =СУММ_ЦВЕТ(C3:C12;C10), где с3-с12- диапазон, с10- ячейка-образец
пересчет ctrl+alt+f9.
Макрос работает и в excel, и в calc.

Lovecvetra

Помогите пожалуйста, столкнулся с проблемой учета рабочего времени по объектам. OpenOffice не знаю как задать функцию чтобы посчитало самостоятельно по цвету ячеек сумму отработанных часов за месяц, заранее спасибо. ПРИМЕР:

[вложение удалено Администратором]