質問編集履歴
2
試したことに記載していた変数のテーブル名を修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -47,7 +47,7 @@
|
|
|
47
47
|
### 試したこと
|
|
48
48
|
|
|
49
49
|
該当のソースコードに入力する変数（Shiki)の内容を、”test”にしたところエラーは発生せずに累計列に文字列”test”を入力できました。
|
|
50
|
-
そのため、変数Shikiの文字列の内容（ "= Sum(Offset(
|
|
50
|
+
そのため、変数Shikiの文字列の内容（ "= Sum(Offset(TableA[[#見出し],[金額]],1,0):[@金額])"）がエラーの原因であることまで特定できました。
|
|
51
51
|
また、変数Shikiの内容をVBAを用いずにマニュアルで入力したところエラーは生じず、正しく累計の計算を行うことができました。
|
|
52
52
|
|
|
53
53
|
### 補足情報（FW/ツールのバージョンなど）
|
1
コード内のテーブル名に誤りがあったため修正しました（TablOne>>TableA)
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
Dim Shiki As String, SumClmn As String, tablename As String
|
|
27
27
|
SumClmn = "[累計]"
|
|
28
28
|
tablename = "TableA"
|
|
29
|
-
Shiki = "= Sum(Offset(
|
|
29
|
+
Shiki = "= Sum(Offset(TableA[[#見出し],[金額]],1,0):[@金額])"
|
|
30
30
|
ThisWorkbook.ActiveSheet.Range(tablename & SumClmn).Value = Shiki
|
|
31
31
|
End Sub
|
|
32
32
|
```
|