СУММЕСЛИ и автофильтр

[VictorM]

ДОбрый вечер, Уважаемые!
Считаю суммы отрицательных и положительных значений в столбце формулами

=СУММЕСЛИ(B12:B65000;"<0")
и
=СУММЕСЛИ(B12:B65000;">0")

все бы хорошо, но они не срабатывают при применении автофильтра, т.е считают, независимо от выбора, весь диапазон.
Можно ли как-то сделать, чтобы можно было считать суммы отфильтрованные автофильтром?
Может здесь нужен другой подход, другие формулы?
Спасибо.

[R Dmitry]

Сообщение от VictorM

ДОбрый вечер, Уважаемые!
Считаю суммы отрицательных и положительных значений в столбце формулами

=СУММЕСЛИ(B12:B65000;"<0")
и
=СУММЕСЛИ(B12:B65000;">0")

все бы хорошо, но они не срабатывают при применении автофильтра, т.е считают, независимо от выбора, весь диапазон.
Можно ли как-то сделать, чтобы можно было считать суммы отфильтрованные автофильтром?
Может здесь нужен другой подход, другие формулы?
Спасибо.

для минуса
=(ОКРУГЛ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;B11: B2499);0))+СУММЕСЛИ(B11:B65000;"<0" )-СУММ(B11:B65000)
поспешил...........
если по аналогии сделать плюс
=(ОКРУГЛ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;B11: B2499);0))+СУММЕСЛИ(B11:B65000;">0" )-СУММ(B11:B100)

то выдает не совсем то что надо ((

[VictorM]

нда...
похоже формулами тут не получится, буду пробовать макрос
макрос тоже устроит

[VictorM]

Поскольку решение с макросом меня вполне устраивает (критерии автофильтра задаются кнопками на листе), повесил на кнопки вот такой макрос

Sub СуммаМинусПлюс()
    iминус = 0
    iплюс = 0
    With ThisWorkbook.Worksheets(1)
        If .AutoFilterMode = True And .FilterMode = True Then
            With .AutoFilter.Range.Columns(2)
                Set iFilterRange = _
                .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
                For Each iCell In iFilterRange
                    iVal = iCell.Value
                    If iVal < 0 Then iминус = iминус + iVal
                    If iVal > 0 Then iплюс = iплюс + iVal
                Next
            End With
        End If
    End With
    [b1] = iминус
    [b2] = iплюс
End Sub

Все отлично работает!
Код перебора отфильтрованных строк взят отсюда Как перебрать только отфильтрованные строки в автофильтре

[vikttur]

Наворочал перед сном
Для отрицательных (формула массива). Для положительных поменять знак или формула ниже

=СУММ(ЕСЛИ(A11:A2499=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;A11:A2499)/ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;A11:A2499);ЕСЛИ(B11:B2499<0;B11:B2499)))
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;B11:B2499)-отрицательные

Работает, если фильтровать по числовым данным столбца А

[VictorM]

Наворочал перед сном

Хорошие у вас мысли перед сном
Спасибо!

[ZORRO2005]

VictorM,
была похожая задача:
http://www.programmersforum.ru/showthread.php?t=126908

см.вложение

[ZORRO2005]

Даже можно проще:

=СУММ(--(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(B10;СТРОКА(1:200);))*(B11:B210<0)))

=СУММ(--(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(B10;СТРОКА(1:200);))*(B11:B210>0)))

[VictorM]

ZORRO2005, да, красиво! Спасибо!
Все в копилку!

[rexec]

Сообщение от ZORRO2005

Даже можно проще:
[CODE]=СУММ(--(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(B10;СТР ОКА(1:200))*(B11:B210<0)))

Скажите, пожалуйста, для чего стоят "--" перед промежуточными итогами?
Заранее спасибо