作成

Dim オートフィルタ As Object
オートフィルタ = シート.createFilterDescriptor(True)
オートフィルタ.ContainsHeader = True

フィルタ条件を登録

Dim フィルタ条件の配列(条件数 - 1) As New com.sun.star.sheet.TableFilterField
With フィルタ条件の配列(0)
.Field = 列番号
条件
End With
...
オートフィルタ.setFilterFields(フィルタ条件の配列())

列番号

セル範囲の左端が　0

実行

セル範囲.filter(オートフィルタ)

※ セル範囲にはヘッダ行を含めること

フィルタ条件のリセット

すべて

Dim オートフィルタ As Object
オートフィルタ = シート.createFilterDescriptor(True)
セル範囲.filter(オートフィルタ)

フィルタ条件

　文字列

等しい

With フィルタ条件の配列(i)
.Field = 列番号
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
.StringValue = "文字列"
End With

正規表現

オートフィルタ.UseRegularExpressions = True

With フィルタ条件の配列(i)
.Field = 列番号
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
.StringValue = "正規表現"
End With

　数値

等しい

With フィルタ条件の配列(i)
.Field = 列番号
.Operator = com.sun.star.sheet.FilterOperator.EQUAL
.IsNumeric = True
.NumericValue = 数値
End With

　複数の条件

With フィルタ条件の配列(0)
.Field = 列番号
条件
End With

With フィルタ条件の配列(1)
.Field = 列番号
条件
.Connection = com.sun.star.sheet.FilterConnection.OR
End With
...

※ 2つ目以降の条件にOR条件を追加すること

値の配列からループで条件を作成

Dim 配列 As Variant
配列 = Array(値1, ...)

Dim フィルタ条件の配列(UBound(配列)) As New com.sun.star.sheet.TableFilterField

For i = 0 To UBound(配列)
With フィルタ条件の配列(i)
.Field = 列番号
条件

If i > 0 Then
.Connection = com.sun.star.sheet.FilterConnection.OR
End If
End With
Next

真偽値

データ型