Top > OOobbs3 > 112
** [[OOobbs3/112]] [#fdb2a581]
-''サマリ'': オートフィルタをかけているシートで全部の行を表示したい
-''環境'': Calc
-''状態'': 未解決
-''投稿者'': [[yutaka]]
-''投稿日'': 2013-04-20 (土) 09:33:32

*** 質問 [#bb49e403]
とりあえず下記のように作ったのですが、これを実行するとフィルタの逆▲マークが一箇所青くなっていてるので本来のコードではないと思うので。

 sub FilterAllVisible
 oRanges = ThisComponent.DatabaseRanges
 oDbRange = oRanges.getByName("range1")
 oDbRange.AutoFilter = true
 oFD = oDbRange.FilterDescriptor
 oFD.UseRegularExpressions=true
 dim aFilterFields(0) as new com.sun.star.sheet.TableFilterField
 aFilterFields(0).Field = 0
 aFilterFields(0).IsNumeric = false
 aFilterFields(0).Operator = com.sun.star.sheet.FilterOperator.NOT_EQUAL
 aFilterFields(0).stringValue = "^$"
 oFD.setFilterFields(aFilterFields())
 oDbRange.refresh()
 end sub

また、下記の場合は、calcのフィルタメニューからオートフィルタをかけようとした時に、チェックボックスにチェックが入っていません。
 ThisComponent.CurrentController.Activesheet.rows.isvisible=true
*** 回答 [#ba00de3e]

#comment


*** 感想,コメント,メモ [#b51590a0]

#comment

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes