Top > OOobbs3 > 112

OOobbs3/112 Edit

  • サマリ: オートフィルタをかけているシートで全部の行を表示したい
  • 環境: Calc
  • 状態: 未解決
  • 投稿者: yutaka?
  • 投稿日: 2013-04-20 (土) 09:33:32

質問 Edit

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

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

回答 Edit


感想,コメント,メモ Edit



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