Jump to content

マクロ/Calc/ba027

From The Document Foundation Wiki
This page is a translated version of the page Macros/Calc/ba027 and the translation is 100% complete.


概要

このページでは、空のフィルタを設定することによって現在のシートフィルタを削除するLibreOffice Basicマクロプロシージャを提供します。 7.0 Calc ガイドの第 13 章 ("データベースとしての Calc") から引用した例です。

説明

フィルタをシートに適用すると、そのシートの既存のフィルタが置き換えられます。したがって、シート内のフィルタを削除するには、そのシートに空のフィルタを作成して設定するだけです。 (次のコードを参照)

Code

Sub RemoveSheetFilter()
  Dim oSheet          ' フィルターが含まれるシート。
  Dim oFilterDesc     ' フィルター記述子。
  
  oSheet = ThisComponent.getSheets().getByIndex(0)
  oFilterDesc = oSheet.createFilterDescriptor(True)
  oSheet.filter(oFilterDesc)
End Sub

この Calc spreadsheet には上記の LibreOffice Basic コードが含まれています。