Скрипт для расширенного фильтра

[Velvet111]

Надо заставить с помощью макроса автоматически запускать расширенный фильтр при вводе условий.
Нашел скрипт для MS Office (в MS'овском все получилось сделать), но в Libre Office не могу заставить его работать. Что я делаю не так?

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:I5")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
    End If
End Sub

[economist]

Объектная модель Excel и Calс - разные.
Некоторые методы, типа Intersect - отстутсвуют или называются по-другому.
Поэтому VBA-обработка события Change из Excel не заработает в Calc. Нужно переписывать.
Не всегда переписать проще, чем написать заново, возможно даже не через Автофильтр.

Если мне, скажем, нужно скрыть отрицательные строки, то в Calc заработатет вот такой код:

Код Выделить Развернуть


Option VBASupport 1
Option Compatible
'-----------------------------------------------
Sub PsevdoAutoFilter()
For each n in [A8:A1000]
If n.Value<0 then n.EntireRow.Visible = false
End SUb


[rami]

Для начала на главной странице форума в окошко поиска забейте Расширенный фильтр, начните читать с темы макрос для запуска расширенного фильтра в Calc-е?, потом остальные.