集計行の表示を切り替える
テーブルに表示される集計行はVBAで簡単に表示切替をすることができます。
切り替えには ListObject の ShowTotalsプロパティ を使用します。
構文
Object.ShowTotals= True/False
| Object | ListObjectオブジェクトを表す変数です。 |
| ShowTotals | 集計行をTrueで表示、Falseで非表示にします。 |
集計行の個別設定
テーブルの集計行は合計値や平均値を求めることができます。
集計方法を設定する場合、ListColumns の TotalsCalculationプロパティ で設定が可能です。
構文
Object.TotalsCalculation = XlTotalsCalculation設定値
| Object | ListColumns オブジェクトを表す変数です。 |
| TotalsCalculation | XlTotalsCalculationの値に基づき、集計行の計算方法を決定します。 |
| XlTotalsCalculation定数 | 値 | 説明 |
| xlTotalsCalculationNone | 0 | 計算なし |
| xlTotalsCalculationSum | 1 | 合計 |
| xlTotalsCalculationAverage | 2 | 平均 |
| xlTotalsCalculationCount | 3 | 個数 |
| xlTotalsCalculationCountNums | 4 | 数値の個数 |
| xlTotalsCalculationMin | 5 | 最小 |
| xlTotalsCalculationMax | 6 | 最大 |
| xlTotalsCalculationStdDev | 7 | 標準偏差値 |
| xlTotalsCalculationVar | 8 | 変数 |
| xlTotalsCalculationCustom | 9 | ユーザー設定の計算 |
テーブルの集計行を表示するサンプルコード
Public Sub Sample()
'テーブルを作成する
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, _
Source:=Range("A1:D4"))
Range("A2:A5") = 10 '数値を入力
'■集計行の設定
'集計行を表示する
'「列1」の平均値を求める
With Worksheets("Sheet1").ListObjects(1)
.ShowTotals = True
.ListColumns("列1").TotalsCalculation = xlTotalsCalculationAverage
End With
End Sub
コメント