VBAでエクセルのテーブルの”累計”列に累計を計算する式を埋め込みたい。

Question

実現したいこと

VBAでエクセルのテーブルの”累計”列に累計を計算する式を埋め込みたい。

前提

式を埋め込む前のテーブル
テーブル名：TableA

項目	金額	累計
1	10
2	20
3	10
4	15

累計列に式を追加して作成したいテーブル
テーブル名：TableA

項目	金額	累計
1	10	10
2	20	30
3	10	40
4	15	55

Sub 累計を計算する式を追加()
    Dim Shiki As String, SumClmn As String, tablename As String
    SumClmn = "[累計]"
    tablename = "TableA"
    Shiki = "= Sum(Offset(TableA[[#見出し],[金額]],1,0):[@金額])"
    ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).Value = Shiki
End Sub

発生している問題・エラーメッセージ

実行時エラー　'1004'
アプリケーション定義またはオブジェクト定義エラーです。

該当のソースコード

上記のコードでエラーが発生する箇所は下記の行です。

  ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).Value = Shiki

試したこと

該当のソースコードに入力する変数（Shiki)の内容を、”test”にしたところエラーは発生せずに累計列に文字列”test”を入力できました。
そのため、変数Shikiの文字列の内容（ "= Sum(Offset(TableA[[#見出し],[金額]],1,0):[@金額])"）がエラーの原因であることまで特定できました。
また、変数Shikiの内容をVBAを用いずにマニュアルで入力したところエラーは生じず、正しく累計の計算を行うことができました。

補足情報（FW/ツールのバージョンなど）

エクセルのバージョンはMicrosoft　365です。

Comments

[kyokyokyo]

>また、変数Shikiの内容をVBAを用いずにマニュアルで入力したところエラーは生じず、正しく累計の計算を行うことができました。
適切な原因究明を行えていると思います、あと一歩、「マクロの記録」を使用して同じ操作を行い、結果の
VBAを参照すれば、回答にあるFormulaR1C1 プロパティなどを使えばいいことが自力で分かったでしょう。
ご参考まで。

[Qiitan]

マクロ記録に思いが至りませんでした。エラーが生じた際の対応として今後活用していきたいと思います。コメントをくださりありがとうございました。

Answer 1

    Shiki = "= Sum(Offset(TableA[[#見出し],[金額]],1,0):[@金額])"
    ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).Value = Shiki

• 構造化参照における特殊項目指定子を含む数式を設定する場合は Formula プロパティか FormulaR1C1 プロパティを使用する。

    Shiki = "=SUM(OFFSET(TableA[[#Headers],[金額]],1,0):[@金額])"
    ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).Formula = Shiki

• ローカライズされた特殊項目指定子（#Headers→#見出し）を含む数式を設定する場合は FormulaLocal プロパティか FormulaR1C1Local プロパティを使用する。

    Shiki = "=SUM(OFFSET(TableA[[#見出し],[金額]],1,0):[@金額])"
    ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).FormulaLocal = Shiki

Comments

[Qiitan]

ご教授いただきありがとうございました。
無事、エラーを解消することができ大変助かりました。
本当にありがとうございます。