Difference between revisions of "RU/kb/00000675"
From Wiki
Jump to navigationJump to search (Основной текст) |
|||
| Line 11: | Line 11: | ||
Sub SimpleSheetFilter() | Sub SimpleSheetFilter() | ||
Dim oSheet ' Лист, на котором применен фильтр. | Dim oSheet ' Лист, на котором применен фильтр. | ||
| − | |||
Dim oFilterDesc ' Критерии фильтра. | Dim oFilterDesc ' Критерии фильтра. | ||
Dim oFields(0) As New com.sun.star.sheet.TableFilterField | Dim oFields(0) As New com.sun.star.sheet.TableFilterField | ||
Latest revision as of 12:07, 11 January 2012
Материал для этой статьи сформулирован на основе обсуждения
в community.i-rs.ru.
Фильтрацию столбца таблицы можно выполнить с помощью следующего макроса:
Sub SimpleSheetFilter()
Dim oSheet ' Лист, на котором применен фильтр.
Dim oFilterDesc ' Критерии фильтра.
Dim oFields(0) As New com.sun.star.sheet.TableFilterField
oSheet = ThisComponent.getSheets().getByIndex(0)
oFilterDesc = oSheet.createFilterDescriptor(True)
With oFields(0)
.Field = 5 ' Filter column F.
.IsNumeric = True ' Используется числовое значение
.Operator = com.sun.star.sheet.FilterOperator.GREATER
.NumericValue = 4 ' Значения больше 4
End With
oFilterDesc.setFilterFields(oFields())
oSheet.filter(oFilterDesc)
End Sub
Загрузить файл с примером: File:Filtr macro ru.ods.
