質問編集履歴
1
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -72,15 +72,11 @@
|
|
|
72
72
|
|
|
73
73
|
|
|
74
74
|
|
|
75
|
-
|
|
75
|
+
|
|
76
|
-
|
|
77
|
-
Sheets("Sheet2").Cells(1, 3) = WorksheetFunction.Subtotal(9, Sheets("Sheet2").Range("B:B"))
|
|
78
|
-
|
|
79
|
-
Sheet1.AutoFilterMode = False
|
|
80
76
|
|
|
81
77
|
|
|
82
78
|
|
|
83
|
-
'result.xlsxを開き合計値を込
|
|
79
|
+
'result.xlsxを開き合計値を書き込む
|
|
84
80
|
|
|
85
81
|
Set wb = Workbooks.Open(ThisWorkbook.Path & "/result.xlsx")
|
|
86
82
|
|