База Знаний: Программирование. StarBASIC. Calc. Фильтрация столбца

 < Энциклопедия | База знаний | Общие вопросы | Программирование | Макросы StarBASIC

Материал для этой статьи сформулирован на основе обсуждения
в 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.

---

А. Е. Харламенков; 2011

---

---

К началу страницы