** [[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 |