グループフッタ

グループフッタは、グループ化を設定したシート下部に表示される追加行です。グループフッタを表示するには、列フッタを表示する必要があります。列フッタの詳細については「列フッタ」を参照してください。

次の図では、グループ下の各行の列Aに、合計を算出する数式の結果を表示します。各行は、列A内のデータによってグループ化されています。

設定方法

グループフッタを表示するには、ColumnFooter クラスのVisible プロパティおよび、SheetView クラスのGroupFooterVisible プロパティをtrueに設定します。

また、グループフッタのスタイルは、GroupFooterInfos プロパティを使用して設定できます。GroupFooterInfos プロパティはGroupInfo オブジェクトのコレクションを参照します。スタイルの設定方法は、「グループのスタイル」と同様です。

サンプルコード

次のサンプルコードは、第1列の値を合計し、その値を列フッタに表示します。

C#
Visual Basic

this.FpSpread1.ActiveSheetView.RowCount=8;
this.FpSpread1.ActiveSheetView.ColumnCount = 15;
this.FpSpread1.ActiveSheetView.GroupBarVisible = true;
this.FpSpread1.ActiveSheetView.AllowGroup = true;
this.FpSpread1.ActiveSheetView.GroupFooterVisible = true;
this.FpSpread1.ActiveSheetView.ColumnFooter.Visible = true;
this.FpSpread1.ActiveSheetView.ColumnFooter.RowCount = 2;
this.FpSpread1.ActiveSheetView.ColumnFooter.DefaultStyle.Border.BorderStyle = BorderStyle.Double;
this.FpSpread1.ActiveSheetView.ColumnFooter.Columns[12].HorizontalAlign = HorizontalAlign.Left;
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[0, 12].RowSpan = 2;
//値
for (int r = 0; r < this.FpSpread1.ActiveSheetView.RowCount; r++)
{
    for (int j = 0; j < this.FpSpread1.ActiveSheetView.ColumnCount; j++)
    {
        FpSpread1.ActiveSheetView.DataModel.SetValue(r, j, j + r * FpSpread1.ActiveSheetView.ColumnCount);
    }
}
int i = 0;
this.FpSpread1.ActiveSheetView.Columns[i].AggregationType = FarPoint.Web.Spread.Model.AggregationType.Sum;
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[0, i].Value = "Sum";
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[1, i].Value = "Sum:[{0}]";

FpSpread1.ActiveSheetView.RowCount = 8
FpSpread1.ActiveSheetView.ColumnCount = 15
FpSpread1.ActiveSheetView.GroupBarVisible = True
FpSpread1.ActiveSheetView.AllowGroup = True
FpSpread1.ActiveSheetView.GroupFooterVisible = True
FpSpread1.ActiveSheetView.ColumnFooter.Visible = True
FpSpread1.ActiveSheetView.ColumnFooter.RowCount = 2
FpSpread1.ActiveSheetView.ColumnFooter.DefaultStyle.Border.BorderStyle = BorderStyle.Double
'値
Dim r As Integer
Dim j As Integer
For r = 0 To FpSpread1.Sheets(0).RowCount
    For j = 0 To FpSpread1.Sheets(0).ColumnCount
        FpSpread1.ActiveSheetView.DataModel.SetValue(r, j, j + r * FpSpread1.ActiveSheetView.ColumnCount)
    Next j
Next r
Dim i As Integer = 0
FpSpread1.ActiveSheetView.Columns(0).AggregationType = FarPoint.Web.Spread.Model.AggregationType.Sum
FpSpread1.ActiveSheetView.ColumnFooter.Cells(0, i).Value = "Sum"
FpSpread1.ActiveSheetView.ColumnFooter.Cells(1, i).Value = "Sum:[{0}]"