Возможно ли такое сделать в автофильтре

[IgorGO]

я знаю.
следуют нормально организовать данные. поместите итоговую строку выше фильтра - и задача становиться элементарной.

но если без бырьбы с трудностями Вам никак, то в стиле советских традиций необходимо "создать себе трудности, чтобы потом стойко их преодолевать" (а потом еще и гордиться собственным героизмом и рассказывать детям и внукам. только вот слово героизм немного не точно отражает суть процесса, но это только на мой взгляд).

[Скрипт]

Удалил сообщение.

[Робин]

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

я знаю.
следуют нормально организовать данные. поместите итоговую строку выше фильтра - и задача становиться элементарной.

но если без бырьбы с трудностями Вам никак, то в стиле советских традиций необходимо "создать себе трудности, чтобы потом стойко их преодолевать" (а потом еще и гордиться собственным героизмом и рассказывать детям и внукам. только вот слово героизм немного не точно отражает суть процесса, но это только на мой взгляд).

Этот вариант я знаю.
Но это нужно для составления официального отчетного документа. Который утвержден соответствующим органом власти. И к его содержанию имеются определенные требования нормативно-правового характера. Которые нужно соблюдать. Иначе при проверке, ревизор запишет это как нарушение.

[DiemonStar]

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

Этот вариант я знаю.
Но это нужно для составления официального отчетного документа. Который утвержден соответствующим органом власти. И к его содержанию имеются определенные требования нормативно-правового характера. Которые нужно соблюдать. Иначе при проверке, ревизор запишет это как нарушение.

Тогда единственное нормальное решение - макросом формировать требуемую выборку и строку итогов. Первое довольно неплохо делается расширенным фильтром.

[Робин]

Сообщение от Скрипт

Робин, если средствами Excel не получается сделать, то нужно использовать VBA.

Смысл фильтра заключается в скрытии ненужных строк. Т.е. нужно с помощью VBA написать код, который будет скрывать ненужные строки.

Вы правы!
Но как раз написать такой код у меня и не получается. Если вы знаете как, плиз, подсобите.

[Скрипт]

Робин, можно попробовать и без VBA. Вместо "Автофильтра" используйте "Расширенный фильтр".

[Робин]

Сообщение от Скрипт

Робин, можно попробовать и без VBA. Вместо "Автофильтра" используйте "Расширенный фильтр".

Вот токо токо пробовал, ничего не вышло. Если у вас чето получается, плиз, покажите на примере.
Но, дело в том, что для печати отчета, мне нужна выборка за текущий месяц. А для анализа и сравнения, выборка за другие месяцы. И, как мне кажется, фильтром все это не получишь. Но молжет я чегото не знаю.

[Скрипт]

Если не известно, как делать с помощью программы Excel, значит нужно попробовать использовать VBA.

Пример кода, который просматривает строки с 1 по 10 и скрывает строки, в которых есть число 1. Имеется ввиду, что в ячейке содержится только одно число 1. Если в ячейке будет 101, то строка не будет скрыта.

Вместо просмотра каждой ячейки можно использовать команду Find, которая работает быстрее, чем просмотр каждой ячейки.

Ещё можно попробовать брать строку Excel в массив, а затем массив анализировать. Массивы быстрее просматриваются, чем ячейки Excel, которые являются объектами.

Sub Procedure_1()

    Dim oCell As Excel.Range
    Dim i As Long
    
    'Отключаем обновление монитора, чтобы код работал быстро.
    Application.ScreenUpdating = False
    
    'С помощью цикла с "i" двигаемся по строкам.
    For i = 1 To 10 Step 1
    
        'С помощью цикла "For Each ... In ... Next"
        'просматриваем все ячейке в строке.
        For Each oCell In Rows(i).Cells
        
            If oCell.Value = 1 Then
                
                'Скрываем строку. Т.е. делаем фильтрацию.
                Rows(i).Hidden = True
                
                'Выходим из цикла "For Each", т.к. строку
                'уже скрыли и нет смысла в ней ещё что-то просматривать.
                Exit For
                
            End If
            
        Next oCell
    
    Next i
    
    'Включаем обновление монитора.
    Application.ScreenUpdating = True

End Sub

[Робин]

Сообщение от Скрипт

Если не известно, как делать с помощью программы Excel, значит нужно попробовать использовать VBA.

Пример кода, который просматривает строки с 1 по 10 и скрывает строки, в которых есть число 1. Имеется ввиду, что в ячейке содержится только одно число 1. Если в ячейке будет 101, то строка не будет скрыта.

Вместо просмотра каждой ячейки можно использовать команду Find, которая работает быстрее, чем просмотр каждой ячейки.

Ещё можно попробовать брать строку Excel в массив, а затем массив анализировать. Массивы быстрее просматриваются, чем ячейки Excel, которые являются объектами.

Sub Procedure_1()

    Dim oCell As Excel.Range
    Dim i As Long
    
    'Отключаем обновление монитора, чтобы код работал быстро.
    Application.ScreenUpdating = False
    
    'С помощью цикла с "i" двигаемся по строкам.
    For i = 1 To 10 Step 1
    
        'С помощью цикла "For Each ... In ... Next"
        'просматриваем все ячейке в строке.
        For Each oCell In Rows(i).Cells
        
            If oCell.Value = 1 Then
                
                'Скрываем строку. Т.е. делаем фильтрацию.
                Rows(i).Hidden = True
                
                'Выходим из цикла "For Each", т.к. строку
                'уже скрыли и нет смысла в ней ещё что-то просматривать.
                Exit For
                
            End If
            
        Next oCell
    
    Next i
    
    'Включаем обновление монитора.
    Application.ScreenUpdating = True

End Sub

Доброго дня всем!
Для начала. Не могу понять, почему сайт работает с перебоями? Или это может только у меня?
Далее. Уважаемый Скрипт! Ваш макрос работает. Но решпет проблему лишь частично.
Например, как быть со списками длиннее 10 строк. И как увязать этот макрос с другими макросами.

[Скрипт]

Например, как быть со списками длиннее 10 строк.

Это стандартная задача в VBA в Excel - определение последней строки, в которой есть данные. Для этого можно использовать разные способы, я приведу один способ:

Sub Procedure_1()

    Dim lLastRow As Long
    
    'Основная часть параметров команды "Find" получена
    'с помощью макрорекордера.
    
    'Определение последней строки с данными на активном листе.
    'What:="?" - знак вопроса здесь является специальным символом.
    'SearchDirection:=xlPrevious - поиск с конца в начало.
    lLastRow = Cells.Find(What:="?", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Row

End Sub