ExcelVBA テーブルに集計行を追加する

• オブジェクト（必須）
  テーブルに設定した表範囲を表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトを指定します。
• 設定値（必須）
  集計行の表示と非表示をブール型の値で設定します。

  設定値	内容
  True	集計行を表示します。
  False	集計行を非表示にします。

※指定したテーブルが存在しない場合はエラーになります。

Sub 集計行()
On Error GoTo エラー処理
Range("A1").Select
With ActiveSheet.ListObjects.Add
    .ShowTotals = True
End With
Exit Sub
エラー処理:
     MsgBox "テーブルは作成済みです。"
End Sub

3行目【Range(“A1”).Select】
見出しを含む、データの始まりのセルを選択します。A1セルから始まるアクティブセル領域を参照するので、データ範囲全体を選択する必要はありません。

4行目【With ActiveSheet.ListObjects.Add】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのListObjects【ﾘｽﾄｵﾌﾞｼﾞｪｸﾂ】プロパティで取得したListObjects【ﾘｽﾄｵﾌﾞｼﾞｪｸﾂ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して、データ範囲にテーブルを作成し、With【ｳｨｽﾞ】ステートメントで指定します。

5行目【.ShowTotals = True】
With【ｳｨｽ】ステートメントで指定したテーブルを表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトのShowTotals【ｼｮｰﾄｰﾀﾙ】プロパティにTrueを設定してテーブルに集計行を表示します。既定で右端の列に集計結果が表示されます。

7行目【Exit Sub】
Exit【ｴｸﾞｼﾞｯﾄ】ステートメントでSub【ｻﾌﾞ】プロシージャを途中で終了します。

8～9行目【エラー処理:
MsgBox “テーブルは作成済みです。”】
エラーが発生した場合、2行目のステートメントで8行目の「エラー処理」ラベルまで処理がジャンプし、9行目からの処理を実行します。

Sub テーブル解除()
On Error Resume Next
With ActiveSheet.ListObjects(1)
     .TableStyle = ""
     .ShowTotals = False
     .Unlist
End With
End Sub

4行目【 .TableStyle = “”】
With【ｳｨｽﾞ】ステートメントで指定したテーブルを表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトのTableStyle【ﾃｰﾌﾞﾙｽﾀｲﾙ】プロパティに「””」長さ0の文字列(空白)を指定して既定のスタイルが適用されているテーブルのスタイルを解除します。

5行目【 .ShowTotals = False】
With【ｳｨｽﾞ】ステートメントで指定したテーブルを表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトのShowTotals【ｼｮｰﾀｲﾄﾙ】プロパティにFalseを指定して集計行を非表示にします。集計行を非表示にしないと次のUnlist【ｱﾝﾘｽﾄ】メソッドを実行しても集計行は残ります。

6行目【.Unlist】
With【ｳｨｽﾞ】ステートメントで指定したテーブルを表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトのUnlist【ｱﾝﾘｽﾄ】メソッドを使用してテーブルを解除します。

• オブジェクト（必須）
  テーブルを設定した表範囲を表すListObject【ﾘｽﾄｵﾌﾞｼﾞｪｸﾄ】オブジェクトを指定します。
• 設定値（省略可）
  参照する列をインデックス番号（列の左からの順番）または、列の項目名で指定します。省略した場合はすべての列を表すListColumns【ﾘｽﾄｶﾗﾑｽﾞ】コレクションが参照されます。

• オブジェクト（必須）
  テーブルの各列を表すListColumn【ﾘｽﾄｶﾗﾑ】オブジェクトを指定します。
• 設定値（必須）
  集計方法をXlTotalsCalculation列挙型の定数または、値で指定します。

  XlTotalsCalculation列挙型

  定数	値	内容
  xlTotalsCalculationNone	0	計算なし
  xlTotalsCalculationSum	1	合計
  xlTotalsCalculationAverage	2	平均
  xlTotalsCalculationCount	3	空ではないセルの数
  xlTotalsCalculationCountNums	4	数値データの数
  xlTotalsCalculationMin	5	リストの最小値
  xlTotalsCalculationMax	6	リストの最大値
  xlTotalsCalculationStdDev	7	標準偏差値
  xlTotalsCalculationVar	8	変数
  xlTotalsCalculationCustom	9	ユーザー設定の計算

集計行の表示、非表示の設定をするShowTotals【ｼｮｰﾄｰﾀﾙｽﾞ】プロパティにTrueを設定して集計行を表示すると、既定では右端の列の集計結果だけが表示されます。集計方法は、列に含まれるデータの種類によってExcelが自動で設定します。

右端列の集計結果が不要な場合は、右端の列を表すListColumn【ﾘｽﾄｶﾗﾑ】オブジェクトのTotalsCalculation【ﾄｰﾀﾙｶﾙｸﾚｰｼｮﾝ】プロパティにxlTotalsCalculationNoneを設定して、「集計なし」に設定します。