OOoBasic/Calc/SubTotal

Sub SubTotal_1
  oSheet = ThisComponent.getSheets().getByIndex(0)
  
  ' 列の条件設定
  oSubTotalCol = CreateUnoStruct("com.sun.star.sheet.SubTotalColumn")
  oSubTotalCol.Column = 1
  oSubTotalCol.Function = com.sun.star.sheet.GeneralFunction.SUM
  
  oDesc = oSheet.createSubTotalDescriptor(True)
  oDesc.addNew(Array(oSubTotalCol), 0)
  
  oDesc.BindFormatsToContent = False
  
  oSheet.applySubTotals(oDesc, True)
End Sub

小計を適用する列の指定は com.sun.star.sheet.SubTotalColumn で行います。

.sheet.SubTotalColumn
Column	列インデックス
Function	適用する関数 (下記参照)

小計全体の設定は次のプロパティで行います。

プロパティ	型	説明
BindFormatsToContent	boolean	書式を含む
Count	long	小計を適用する列数
EnableSort	boolean	並べ替える
EnableUserSortList	boolean	ユーザー定義の並べ替えリストを使用する
InsertPageBreaks	boolean	グループごとに改ページ
IsCaseSensitive	boolean	大小文字を区別する
MaxFieldCount	long	最大フィールド数。3 (読み込み専用)
SortAscending	boolean	昇順に並べ替える
UserSortListIndex	long	使用するユーザー定義の並べ替えリストのインデックス

設定した列の指定は addNew メソッドで追加します。最大数は 3 です。設定を初期化するには clear メソッドを呼び出します。また、com.sun.star.container.XIndexAccess インターフェースのメソッドも使用できます。

addNew メソッドの最初の引数には SubTotalColumn の配列で条件を指定します。また、二つ目の引数はグループ化する列のインデックスです。

Function

関数の指定は com.sun.star.sheet.GeneralFunction で行います。

.sheet.GeneralFunction
NONE	なし
AUTO	自動。セルの値が全て数値の場合 SUM、そのほか COUNT
SUM	合計
COUNT	総数
AVERAGE	平均
MAX	最大
MIN	最小
PRODUCT	積
COUNTNUMS	総数 (数値のみ)
STDEV	標準偏差 (標本調査)
STDEVP	標準偏差 (母集団)
VAR	分散 (標本調査)
VARP	分散 (母集団)

小計の適用

上記で作成したディスクリプタを applySubTotals メソッドの引数として与え、小計を適用します。メソッドの二つ目の引数は前の結果を上書きするかどうかを指定します。上記参照。

小計の削除

removeSubTotals メソッドを呼び出して小計を削除します。正しく解除されません (バグ？)。

Sub SubTotal_5
  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex(0)
  oSheet.removeSubTotals()
End Sub

OOoBasic/Calc/SubTotal

Menu

Search

recent(15)

小計

概要

小計ディスクリプタ

Function

小計の適用

小計の削除