Как сделать фильтр столбцов (не строк)?

[mchip]

Проще приложить пример файла. Может быть есть другой способ?

[jar76]

вот пример

[LOP_YH]

непонятно по каким критериям будет отбор по столбцам происходить...
в строках выбираем ЦФО, например, что выбирать в столцах??? у Вас там что повторяется?

[jar76]

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

[pivas]

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

[jar76]

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

[Vismutp]

Добрый день, подскажите пожалуйста где можно по подробнее узнать о создании подобного фильтра или макроса? Честно я так и не понял как при выборе определённого значе6ния отображается именно этот список столбцов.

[Vismutp]

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

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

Подскажите пожалуйста в данном примере используется макрос?

[riniks17]

Sub Макрос1()
'
' Макрос1
'
C = ActiveCell.Column
S = ActiveCell.Row
n = Cells(S, C)
On Error Resume Next
For x = 4 To 22
Columns(x).Select
Selection.Find(What:=n, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If Err.Number <> 0 Then Selection.EntireColumn.Hidden = True Else Selection.EntireColumn.Hidden = False
Err.Number = 0
Next x

End Sub

Я пользую такой фильтр. Выделяешь любую ячейку и выполняешь макрос. Все столбцы с такими же значениями фильтруются. Количество столбцов пропиши сам сколько надо, что б участвовало в фильтрации. Для макроса назначь кнопку. Буду рад, если помогло.

[Hugo121]

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

Подскажите пожалуйста в данном примере используется макрос?

Да, в модуле листа.
Я бы его так изменил:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> Range("A1").Address Then Exit Sub
    If Cells(1, 1).Value = 0 Then Exit Sub    'это может быть лишнее
    Application.ScreenUpdating = False
    Range("A1:N1").EntireColumn.Hidden = False
    For i = 2 To 13
        If Cells(3, i).Value <> Cells(1, 1).Value Then Columns(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub